<%@ 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"


%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>国度恶意注册排行TOP30</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
const MaxPerPage=30
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
<link href="../../../css.css" rel="stylesheet" type="text/css">
<body >

  
<table border="0" width="50%" cellspacing="0" cellpadding="0" align="center" bgcolor="#cccccc" height="16">
  <tr>
      
    <td width="100%" bgcolor="#cccccc">国度恶意注册排行TOP30<br>
      <br>
<font color="#FF0000">（与“拉人记录”向差太大的，识为恶意注册者，降低国度等级，严重者删除id号）</font></td>
</tr>
</table>
 
  
<%
dim sql
dim rs
dim filename
sql="select top 20 介绍人,count(id) as num from 用户 where allvalue>50 and 介绍人<>'无' group by 介绍人 order by count(id) desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>没有可排行的对象 </p>"
else
%>
<table width="50%" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#000000" bordercolorlight="#000000"
bordercolordark="#FFFFFF">
  <tr> 
    <td width="100" height="16" align="center" bgcolor="#cccccc">排行</td>
    <td width="100" height="16" align="center" bgcolor="#cccccc">姓名</td>
    <td width="*" height="16" align="center" bgcolor="#cccccc">拉人数</td>
  </tr>
  <%do while not rs.eof%>
  <tr bordercolor="#cccccc"  > 
    <td width="100" align="center"><%=filename+1%> </td>
    <td width="100" align="center"><%=rs("介绍人")%> </td>
    <td width="*" align="center"><font color="#0000FF"><%=rs("num")%></font></td>
  </tr>
  <%
rs.movenext
filename=filename+1
if filename>19 then Exit Do
loop
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</table>

</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
