<%@ LANGUAGE=VBScript codepage ="936" %>
<%
response.expires=0
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
chatbgcolor=Application("cwjh_chatbgcolor")
chatimage=Application("cwjh_chatimage")
if chatbgcolor="" then chatbgcolor="008888"%><html>
<head>
<title>恶人排行</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type='text/css'>
body{font-size:9pt;}
td{font-size:9pt;}
input{font-size:9pt;}
a{font-size:9pt; color:black;text-decoration:none;}
a:hover{color:red;text-decoration:none;}
</style>
</head>
<%
const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="<%=chatimage%>" bgproperties="fixed" leftmargin="0">
<table border="1" width="125" cellspacing="0" cellpadding="0" bgcolor="#336633" height="16" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="100%" height="28">
<div align="center"><font color="#ffffff" size="2">二十大恶人</font></div>
</td>
</tr>
</table>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_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 bgcolor="#336633">
<td align="center" width="62"><font color="#FFFFFF">恶人排行</font></td>
<td align="center" width="36"><font color="#FFFFFF">道 德</font></td>
</tr>
<%do while not rs.eof%>
<tr>
<td align="center" bgcolor="#F7F7F7" width="62"><a href='../yamen/mt.asp?action=<%=rs("姓名")%>' target='_blank'><%=rs("姓名")%></a></td>
<td align="center" bgcolor="#F7F7F7" 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>
