📄 admin_ping.asp
字号:
<!--#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"> <%=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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -