blacklist.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="const.asp"-->
<!--#include file="../conn.asp"-->
<!--#include file="BTBBS_FUN.asp"--><%
 login=Request.Cookies("login")
 page=Request("page")

 StarTime = Timer():AccessNum=0
 Call JCC_Board_Top
 AccessNum=AccessNum+1
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="SELECT * from 用户资料 where 帐号状态='lock' ORDER BY 注册时间 desc"
 rs.open sql,conn,1,1
 If page="" Or page<1 Then page=1 End If
 Call LOGIN_EN
 Response.Write "<center><table width=743><tr><td colspan=3 height=30 class=light>&nbsp;<img src=../images/nav.gif>&nbsp;<a href=index.asp><font class=NavColor>论坛首页</a>&nbsp;>>&nbsp;黑名单&nbsp;>>&nbsp;</font><a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a>&nbsp;<script src=online.asp?userwz=黑名单></script></td></tr></table></center>"
 Response.Write "<center><table  border=0 width=743 cellspacing=0 cellpadding=0 align=center class=table1><tr align=center><td height=27 class=TBHead><b>用户名</b></td><td class=TBHead><b>帐号状态</b></td><td class=TBHead><b>等级</b></td><td class=TBHead><b>帖子总数</b></td><td class=TBHead><b>权限</b></td><td class=TBHead><b>注册时间</b></td></tr>"
 If rs.bof And rs.EOF Then
     Response.Write "<tr><td height=27 colspan=6 class=light><center>没有任何记录</center></td></tr>"
 Else
     rs.PageSize=ListNum
     rs.AbsolutePage=page
     i=0
     While Not rs.EOF And i<ListNum
         i=i+1
         If rs("权限")="admin" Then qx="管理员" Else If rs("权限")="bbsadmin" Then qx="版主" Else qx="注册用户" End If End If
         Response.Write "<tr><td height=27 class=light>&nbsp;<a href=LookUserInfo.asp?username="&rs("用户名")&">"&rs("用户名")&"</a></td><td align=center class=light>&nbsp;"&rs("帐号状态")&"</td><td align=center class=light>&nbsp;"&rs("等级")&"</td><td align=center class=light>&nbsp;"&rs("主题数")+rs("回复数")&"</td><td align=center class=light>&nbsp;"&qx&"</td><td align=center class=light>&nbsp;"&rs("注册时间")&"</td></tr>"
         rs.MoveNext 
     Wend
 End If

'----------------翻页%>
 </form><form name=dislist  method=post action=UserTop.asp><table border=0 width=743 cellspacing=0 cellpadding=0 class=table1 height=28><tr><td width=250>第<%=page%>页&nbsp;共<%=rs.PageCount%>页&nbsp;本页<%=ListNum%>条&nbsp;记录数&nbsp;<%=rs.RecordCount%></td><td valign=top align=right><%=Pagination(rs.PageCount,Bmid)%> &nbsp;跳转到第<INPUT  class=fminpt name=page type=text size=3>页<input type=image src=../images/sch.gif border=0 id=image1 name=dislist WIDTH=17 height=14 align=absmiddle><img src=../images/null.gif width=5 height=2></td></tr></table></table></center><%
 rs.Close 
 Set rs=Nothing
 EndTime = Timer()%>
 <!--#include file="../inc/tom1.inc"-->