<%@ 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"
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"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
dim page
page=request.querystring("page")
PageSize = 15
set rs=server.createobject("adodb.recordset")
rs.open "delete * from l where a<now()-3",conn,3,3
rs.open "Select * From l where d='监禁' Order by a DESC",conn,3,3
rs.PageSize = PageSize
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
%>
<html>
<head>
<title><%=Application("cwjh_chatroomname")%>-江湖监禁</title>
<LINK href="../css.css" rel=stylesheet type=text/css>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body leftmargin="0" topmargin="0" background=../bg.gif oncontextmenu=window.event.returnValue=false>
<table border="0" height="24" width="91%" cellspacing="0" cellpadding="0"
align="center">
<tbody>
<tr>
<td height="15" width="100%"><font color="red"><b>江湖监禁</b></font></font></td>
</tr>
</tbody>
</table>
<div align="center">
<table width="91%" align="center" cellspacing="0" border="0"
cellpadding="0">
<tr>
<td width="100%">
<table width=670 border=1 bordercolorlight=000000 cellspacing=0 cellpadding=2 bordercolordark=FFFFFF align='center'>
<tr bgcolor="#FFFFFF">
<td width="11%">
<div align="center"><font color="#FF6600"> 管 理 员 </font></div>
</td>
<td width="18%">
<div align="center"><font color="#FF6600"> 时 间 </font></div>
</td>
<td width="12%">
<div align="center"><font color="#FF6600"> 管理对象 </font></div>
</td>
<td width="59%">
<div align="center"><font color="#FF6600"> 事 情 原 因 </font></div>
</td>
</tr>
<%
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<tr bgcolor="#85C2E0" onmouseout="this.bgColor='#85C2E0';"onmouseover="this.bgColor='#DFEFFF';">
<td width="11%">
<div align="center"> <font color="#0000FF"><%=rs("b")%></font>
</div>
</td>
<td width="18%">
<div align="center"> <%=rs("a")%> </div>
</td>
<td width="12%">
<div align="center"> <%=rs("c")%> </div>
</td>
<td width="59%">
<div align="center"> <%=rs("e")%> </div>
</td>
</tr>
<%rs.movenext%>
<%count=count+1%>
<%loop
pa=rs.pagecount
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<table border="0" cellspacing="1" cellpadding="1" width="100%" bordercolorlight="#EFEFEF">
<tr>
<td align="left" width="37%" height="2">[共<font color="red"><b><%=pa%></b></font>页]
</td>
<td align="right" width="63%" height="2">
<div align="center">[<a href="jl5.asp?page=<%=page-1%>">上一页</a>][第<%=page%>页][<a href="jl5.asp?page=<%=page+1%>">下一页</a>]</div>
</td>
</tr>
</table>
</table>
</div>
</body>