<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"


zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"


n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
%>
<html>
<head>
<link href="../../../css.css" rel="stylesheet" type="text/css">
<title><%=Application("zhbg_chatroomname")%>--个人拉人记录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body >
<table width="718" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr>
    <td height="55" align="center">
<script language="JavaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}
</script>
      <a href="javascript:load()">【刷新】</a><img border="0" src="LR.GIF"> <a href="javascript:history.go(-1)">【返回】</a> 
    </td>
  </tr>
<tr>    
    <td colspan="2" align="center">感谢你朋友,这些人是你拉到我们国度的！<br>
  只有你拉的人存点够5000点才可以<font color="#FF0000">在这里</font>显示出来！别忘了给官府要<font color="#FF0000">奖励</font>哦~~<br>
  （<font color="#FF0000">依据--[国度排行]--的为准，每拉10人奖励“加点卡、升级卡、涨钱卡各3张”</font>）<br>
  当人数够时，你不要他们也会给你的，哈哈~~多拉人吧~~</font><br>
  对了，还忘了告诉你，你每天<font color="#FF0000">领取的工资</font>，其中有一项是：<font color="#FF0000">拉的人数×50万</font>，看看工资就知道了啊~<br>
  <font color="#FF0000">（拉的人的存点在8450“13级”）点以上才算一人）</font><br>
  <br>
      简介：拉人可以增加你自己的点数，当你所拉到我们国度的人存点大于5000(10级) 时,<br>
      你每个月都可以从他身上<font color="#0000FF"><font color="#FF0000">扒皮一定点数</font></font>（是计算机自动按5%计算，并不影响所拉人的泡点），在月底的<br>
      时候是最多的。如果这一个月过去了，你将扒不到皮的，只有等一下个月了，此值不累加！所以请大家多拉人吧！ <font color="#0000FF"><br>
      </font> </td>    
</tr> 
<tr>    
    <td colspan="2" align="center"><font size="3">拉人总数:</font><font size="3" color="#008080"><b><%=(jl)%></b></font><font size="3">人</font> 
    </td>    
</tr> 
</table>
<table width="718" border="3" cellpadding="3" cellspacing="3" height="209" align="center" bordercolor="#cccccc">
  <tr> 
    <%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM 用户 where allvalue>5000 and 介绍人='"& zhbg_name &"' order by -mvalue",conn
%>
    <td width="28" height="10"> <div align="center">ID</div></td>
    <td width="67" height="10"> <div align="center">姓名<img border="0" src="../../chat/img/mob_s_19.gif"></div></td>
    <td width="28" height="10"> <div align="center">性别</div></td>
    <td width="57" height="10"> <div align="center">门派</div></td>
    <td width="63" height="10"> <div align="center">身份<img border="0" src="../../chat/img/02.jpg"></div></td>
    <td width="125" height="10"> <div align="center">最后登陆</div></td>
    <td width="52" height="10"> <div align="center">月泡点</div></td>
    <td width="46" height="10"> <div align="center">管理级</div></td>
    <td width="37" height="10"> <div align="center">战斗级<img border="0" src="../../chat/img/clip_image013.gif"></div></td>
    <td width="42" height="10"> <div align="center">扒皮点</div></td>
    <td width="52" height="10"> <div align="center">扒皮</div></td>
  </tr>
  <%
jl=0
do while not rs.bof and not rs.eof
jl=jl+1
%>
  <tr> 
    <td width="28" height="74"> <div align="center"><%=rs("ID")%></div></td>
    <td width="67" height="74"> <div align="center"><%=rs("姓名")%></div></td>
    <td width="28" height="74"> <div align="center"><%=rs("性别")%></div></td>
    <td width="57" height="74"> <div align="center"><%=rs("门派")%></div></td>
    <td width="63" height="74"> <div align="center"><%=rs("身份")%></div></td>
    <td width="125" height="74"> <div align="center"><%=rs("lasttime")%></div></td>
    <td width="52" height="74"> <div align="center"><%=rs("mvalue")%></div></td>
    <td width="46" height="74"> <div align="center"><%=rs("grade")%></div></td>
    <td width="37" height="74"> <div align="center"><%=rs("等级")%></div></td>
    <td width="42" height="74"> <div align="center"><%=int(rs("mvalue")*0.05)%></div></td>
    <td width="52" height="74"> <div align="center"> 
        <%
prevtime=CDate(rs("lasttime"))
if DateDiff("m",prevtime,sj)=0 and rs("保留2")<>"扒皮"&Month(date()) and rs("mvalue")>20 then%>
        <a href="BABI.ASP?id=<%=rs("id")%>">扒皮</a> 
        <%else%>
        不能操作 
        <%end if%>
      </div></td>
  </tr>
  <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>