📄 disp.asp
字号:
<!--#include file="ShowOnePage.asp"-->
<!--#include file="ShowOneItem.asp"-->
<html>
<head>
<title>浏览留言簿</title>
</head>
<body text="#000000" bgcolor="#ffffff">
<h2 align="center">浏览留言簿</h2>
<hr width="100%">
<%
sql="select * from MessageData order by 时间 desc"
set conn=Open_database(server.mappath("message.mdb"),"conn")
set rs=open_RsAndPageSize(conn,sql,"rs",5)
Page=clng(Request("Page"))
if Page>rs.PageCount then page=rs.pagecount
if Page< 1 then Page=1
ShowOnePage rs,Page
%>
<form action="Disp.asp" method="GET" align="right">
<a HERF="Message.htm">返回留言表单</a>
<%
if Page <> 1 then
Response.write"<a herf=disp.asp?Page=1>第一页</a> "
Response.write"<a herf=disp.asp?Page=" & ">上一页</a> "
end if
if Page<>rs.PageCount then
Response.write"<a herf=disp.asp?page=" & (page+1) & ">下一页</a>"
Response.write"<a herf=disp.asp?page=" & rs.pagecount & "> 最后一页</a>"
end if
%>
第<font color="red"><%=page%></font>页 /
共<font color="red"><%=rs.PageCount%></font>页</p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -