book_list.asp
来自「能进行网上购物的需求」· ASP 代码 · 共 106 行
ASP
106 行
<!--#include file="conn.asp"-->
<!--#include file="../ubbcode.asp"-->
<%
if session("admin_name")="" then
response.redirect "default.asp"
end if
%>
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" vspace="0" hspace="0" bgcolor="#FFFFFF">
<tr bgcolor="#FFCC33">
<td height="27" bgcolor="#FFCC33" background="images/admin_bg_1.gif">.:: 56770网络制作 http://www.56770.com</td>
</tr>
</table>
<%
page=clng(request("page"))
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook order by id desc"
rs.open sql,conn,3,2
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<table border="0" cellspacing="1" cellpadding="4" align="center" width="100%">
<tr>
<td width="100%" height="20" align="right" bgcolor="#6699CC">大名：<strong><b><%=rs("name")%></b></strong>
<img src="../images/oicq.gif" border="0">:<%=rs("qq")%> <a href="mailto:<%=rs("email")%>" title="Email：<%=rs("email")%>" target="_blank"><img src="../images/eMAIL.GIF" border="0">:<%=rs("email")%></a> <img src="../images/ip.gif" border="0">:<%=rs("ip")%>
[<a href="book_reply.asp?id=<%=rs("id")%>">回复</a>]
[<a href="book_del.asp?id=<%=rs("id")%>">删除</a>]
</td>
</tr>
</table> <table border="0" cellspacing="1" cellpadding="4" bgcolor="#B0CBE6" align="center" width="100%">
<tr>
<td bgcolor="#B0CBE6" height="20"><img src="../images/icons/<%=rs("face")%>.gif" width="17"> <%=rs("title")%> <font color="#666666">TIME：<%=rs("time")%></font>
</td>
</tr>
<tr>
<td>
<%=ubbcode(rs("content"))%> </font>
</font></td>
</tr>
<%if rs("reply")<>"" then%>
<tr>
<td valign="top"><font color=red>管理员回复：</font><font color="#999999"><%=ubbcode(rs("reply"))%></font></td>
</tr>
<%end if%>
<%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
<tr bgcolor="#D6DFF7">
<form action="book_list.asp" method="post">
<td height="35" colspan="11">
<div align="center"> 共 <b><%=rs.recordcount%></b> 条留言, 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>,
当前从第
<%
if pagecount<=1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%>
条开始。
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="book_list.asp?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="book_list.asp?page=<%=cstr(pagecount-1)%>">
上一页</a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="book_list.asp?page=<%=cstr(pagecount-1)%>">
上一页</a> <a href="book_list.asp?page=<%=cstr(pagecount+1)%>">
下一页</a>
<% end if%>
直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="go" value="Go">
</div>
</td>
</form>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?