?? 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 + -