<% SQL = "Select * From Titles Order By LastNewsDate Desc" Set rs = GetMdbStaticRecordset( "News.mdb", SQL ) If rs Is Nothing Then Response.Write "呼叫 GetMdbRecordset 失敗!" Response.End End If %>

歡迎您來聊天

回首頁

　 <% rs.PageSize = 24 Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount ShowOnePage rs, Page %>

Method=GET> <%If Page <> 1 Then ' 如果不是位於第一頁 %> ?Page=1>第一頁　 ?Page=<%=(Page-1)%>>上一頁　 <%End If If Page <> rs.PageCount Then ' 如果不是位於最後一頁 %> ?Page=<%=(Page+1)%>>下一頁　 ?Page=<%=rs.PageCount%>>最後一頁　 <%End If%> 頁次:<%=Page%>/<%=rs.PageCount%>

日期

作者

篇數

主　　　　　題

發表新話題

<%=Request("Msg")%> <% Sub ShowOnePage( rs, Page ) %>

姓名：	">
Email：	"> <<可免填>>
主題：	">
內容：	<%=Session("Words")%>