<%@ 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=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
<link href="../../../css.css" rel="stylesheet" type="text/css">
<body >
<div align="center">
  <table border="0" width="100%" cellspacing="0" cellpadding="0" align="center" bgcolor="#cccccc" height="16">
    <tr>
<td width="100%"><font  size="2">20位月泡点积分最多的(非官府)</font></td>
</tr>
</table>
<%
dim sql
dim rs
dim filename
sql="select * from 用户 where 门派<>'官府' and DateDiff('m',cdate(lasttime),now())=0 order by mvalue desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>没有可排行的对象 </p>"
else
%>
  <table border="1" cellspacing="1" width="100%" bordercolorlight="#000000"
bordercolordark="#FFFFFF" cellpadding="0" bordercolor="#cccccc">
    <tr  bgcolor="#cccccc"> 
      <td width="10%" height="16" align="center">姓名</td>
      <td width="7%" height="16" align="center">性别</td>
      <td width="9%" height="16" align="center">门派</td>
      <td width="19%" height="16" align="center">身份</td>
      <td width="9%" height="16" align="center">总积分</td>
      <td width="12%" height="16" align="center">月积分</td>
      <td width="9%" height="16" align="center">登录次数</td>
      <td width="8%" height="16" align="center">会员等级</td>
      <td width="17%" height="16" align="center">体力</td>
    </tr>
    <%do while not rs.eof%>
  <tr bordercolor="#cccccc"  bgcolor="" onmouseover="this.bgColor='#cccccc';" onMouseOut="this.bgColor='';"> 
      <td width="10%" align="center"><%=rs("姓名")%> </td>
      <td width="7%" align="center"><%=rs("性别")%></td>
      <td width="9%" align="center"><%=rs("门派")%> </td>
      <td width="19%" align="center"><%=rs("身份")%> </td>
      <td width="9%" align="center"><%=rs("allvalue")%> </td>
      <td width="12%" align="center"><b><%=rs("mvalue")%></b></td>
      <td width="9%" align="center"><%=rs("times")%></td>
      <td width="8%" align="center"><%=rs("会员等级")%></td>
      <td width="17%" align="center"><%=rs("体力")%> </td>
    </tr>
    <%
rs.movenext
filename=filename+1
if filename>29 then Exit Do
loop
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
  </table>
</div>
<div align="center"><font color=#999999 size=2><%Response.Write "序列号：<font color=blue>" & Application("zhbg_sn") & "</font>，授权给：<font color=blue>" & Application("zhbg_user") & "</font><br><font color=999999>" & Application("zhbg_copyright") & "</font>"%></font>
</div>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>