admin_bbs.asp

admin/admin.asp是WAP的后台管理登陆页面

<!--#include file="conn.asp"-->
<link rel="stylesheet" type="text/css" href="style.css">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
    <td align="center" valign="top"><br>
      <font color="#FF0000"><strong>讨 论 区 文 章 管 理</strong></font></td></tr>
<tr> 
    <td align="center" valign="top"><br></td></tr>
<tr> 
    <td align="center" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr><td align="center" width="61%" height="22" bgcolor="#999999">主题列表</td><td align="center" width="15%" height="22" bgcolor="#999999">作者</td><td align="center" width="8%" height="22" bgcolor="#999999">回复</td><td align="center" width="8%" height="22" bgcolor="#999999">人气</td><td align="center" width="8%" height="22" bgcolor="#999999">操作</td></tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM book WHERE board=1 Order By ding desc,redate desc"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "没有任何文章！<br/>"
else
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then	
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =10
total  = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize
%>
<%dim i 
	   	i=1 
	do while not rs.eof and i<=mypagesize  %>  

<tr><td align="left" width="61%" height="22" bgcolor="#ffffff">&nbsp;<a href='bbs_list.asp?ID=<%=rs("ID")%>'>
<%  if rs("ding")=1 then 
    response.write "[顶]"&rs("subject")&"</a>"
    else
    if rs("jing")=1 then
    response.write "[精]"&rs("subject")&"</a>"
    else
    response.write ""&rs("subject")&"</a>"
    end if
    end if %></td><td align="center" width="15%" height="22" bgcolor="#ffffff"><%=rs("name")%></td><td align="center" width="8%" height="22" bgcolor="#ffffff"><a href='bbs_elist.asp?ID=<%=rs("ID")%>'><%=rs("retimes")%></a></td><td align="center" width="8%" height="22" bgcolor="#ffffff"><%=rs("hits")%></td><td align="center" width="8%" height="22" bgcolor="#ffffff"><% if session("flag")<3 then %><a href='bbs_del.asp?ID=<%=rs("ID")%>'>[删除]</a>
<%end if%></td></tr>
<%
i=i+1
rs.movenext
loop
%></table></td></tr>
  <tr> 
    <td align="center">共<%=total%>篇文章 <%
if page>1 then%>   
<a href='admin_bbs.asp?page=<%=page-1%>'>上页</a>
<%
end if
%>
<%
if page<rs.pagecount   then%>
<a href='admin_bbs.asp?page=<%=page+1%>'>下页</a>
<%
end if
%>
(<%=page%>/<%=rs.pagecount%>)<%
end if
%></td></tr>
</table>