admin_ping.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">
<% Set rs=server.createobject("ADODB.RECORDSET")
sql="SELECT * FROM ping ORDER BY ID DESC"
rs.open sql,conn,3,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  %>  
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr><td align="center" width="60%" height="22" bgcolor="#999999">评论内容</td><td align="center" width="20%" bgcolor="#999999">手机号码</td><td align="center" width="20%" height="22" bgcolor="#999999">相关操作</td></tr>
<tr><td align="left" width="60%" height="22" bgcolor="#FFFFFF">&nbsp;<%=rs("name")%>：<%=rs("note")%> (<%=rs("time")%>)</td><td align="center" width="20%" height="22" bgcolor="#FFFFFF"><%=rs("shouji")%></td><td align="center" width="20%" bgcolor="#FFFFFF"><a href='ping_list.asp?id=<%=rs("zuti")%>'>[评论文章]</a>
<% if session("flag")<3 then %><a href='ping_del.asp?ID=<%=rs("ID")%>'>[删除]</a>
<%end if%></td></tr>
</table><br>
<%
i=i+1
rs.movenext
loop
%></td></tr>
  <tr> 
    <td align="center">共<%=total%>条评论 <%
if page>1 then%>   
<a href='admin_ping.asp?page=<%=page-1%>'>上页</a>
<%
end if
%>
<%
if page<rs.pagecount   then%>
<a href='admin_ping.asp?page=<%=page+1%>'>下页</a>
<%
end if
%>
(<%=page%>/<%=rs.pagecount%>)
<%end if%></td></tr>
</table>