<%
strSQL = "SELECT * FROM guestbook ORDER BY time DESC"
Set objRS = GetSQLRecordset(strSQL, "Books.mdb", "guestbook")
objRS.PageSize = 5
PageNo = Request("PageNo")
Response.Write "["
For I = 1 To objRS.PageCount
If I = CInt(PageNo) Then
Response.Write I & " | "
Else
Response.Write "<A HREF='GuestBook.asp?PageNo=" & I & "'>" & _
I & "</A>" & " | "
End If
Next
Response.Write "]<HR>"
%>
<%
If PageNo <> "" Then
ShowPage objRS, PageNo
Else
ShowPage objRS, 1
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%> 我的代码是这样的,我不知道要加在哪,而且这里的页码是随数据的增多面增多的,我不想这样,也不会改~能帮我看看吗?