<%
Page = CLng(Request("Page"))
sql = "Select * From Guest Where Date > date() - 3 Order By Date DESC"
DBPath = Server.MapPath("talk.mdb")
Set conn = OpenOrGet_Database(DBPath, "stock_conn")
Set rs = Open_RsAndPageSize( conn, sql, "stock_rs",5)
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
%>
這是一個你我交流的園地，有任何寶貴的意見，都希望有您的批評指教。
<%
If Page <> 1 Then
Response.WRITE "[第一頁]"
Response.WRITE "[上一頁]"
End If
If Page <> rs.PageCount Then
Response.WRITE "[下一頁]"
Response.WRITE "[最後一頁]"
End If
If rs.EOF Then
Response.WRITE "目前無留言!"
Else
rs.AbsolutePage = Page
for iPage = 1 to rs.PageSize
%>
