<% 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 %>
訪客名稱
主題 e-mail 日期
<%=rs.Fields(1).Value%>
<%=rs.Fields(3).Value%> <%= "" & rs.Fields(2).Value &"" %> <%=rs.Fields(5).Value%>
內容
<%=rs.Fields(4).Value%>
<%rs.MoveNext If rs.EOF Then Exit For Next End If %>

你的姓名:
電子郵件信箱:
留言主題:
留言內容: