<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("./database/SingingBusDB.mdb")
set rs=Server.CreateObject("ADODB.recordset")
strSQL="SELECT * from guestbook order by datepost desc"
rs.Open strSQL,conn,3,1
num = 0
page = 0
totalpage = 0
If Not rs.eof Then
rs.PageSize=10
TotalPage=rs.pagecount
page = clng(request("page"))
if page < 1 then page = 1
if page > totalpage then page = totalpage
rs.AbsolutePage = page
num = rs.recordcount
for i = 1 to rs.pagesize
%>
<%
rs.movenext
if rs.eof then exit for
next
End if
rs.close
Set rs = Nothing
p1 = 1
p2 = 1
p3 = Totalpage
p4 = Totalpage
If page < Totalpage Then
p3 = page + 1
End if
If page > 1 Then
p2 = page - 1
End if
%>
總筆數：<%=num%>
<%
for x = 1 to TotalPage
If x = page Then
response.write x
Else
response.write "" & x & ""
End if
If x < TotalPage Then
Resposne.write " /"
End if
Next
%>
<%else%>
