<%@ LANGUAGE=VBScript codepage ="936" %>
<%
response.expires=0
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"
chatbgcolor=Application("zhbg_chatbgcolor")
chatimage=Application("zhbg_chatimage")
if chatbgcolor="" then chatbgcolor="008888"%><html>
<head>
<title>恶人排行</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
<link href="../../../css.css" rel="stylesheet" type="text/css">
<body >
<table border="1" width="125" cellspacing="0" cellpadding="0" bgcolor="#cccccc" height="16" align="center" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
  <tr>
<td width="100%" height="28">
<div align="center"><font  size="2">二十大恶人</font></div>
</td>
</tr>
</table>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
dim sql
dim rs
dim filename
rs.open "select top 20 * from 用户 where 道德<0 and 状态<>'无' and 门派<>'官府' order by 道德",conn,1,1
if rs.eof and rs.bof then
	response.write "<p align='center'>没有可排行的对象 </p>"
else
%>
<table border="1" cellspacing="0" width="125" bordercolorlight="#000000"
bordercolordark="#FFFFFF" cellpadding="4" align="center">
  <tr> 
    <td width="62" align="center" bgcolor="#333333">恶人排行</td>
    <td width="36" align="center" bgcolor="#333333">道 德</td>
  </tr>
  <%do while not rs.eof%>
  <tr> 
    <td align="center" width="62"><a href='../../yamen/mt.asp?action=<%=rs("姓名")%>' target='_blank'><%=rs("姓名")%></a></td>
    <td align="center" width="36"><%=rs("道德")%> </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>
