objRS.AbsolutePage=PageNo
For I=1 To objRS.PageSize
Response.Write"<Tr Bgcolor="&BG(I-1)&">"
Response.Write"<Td Width='15%'><Img Src="&Fig(I-1)&"></Td>"
Response.Write"<Td Width='85%'>作者:"&objRS("作者")&"<Br>主题:"&objRS("主题")&"<Br>时间:"&objRS("时间")&"<Hr>"&objRS("内容")&"</Td></Tr>"
objRS.MoveNext
strSQL="select * from 留言板 order by 时间 DESC"
Set objRS=GetSQLRecordset(strSQL,"Books.mdb","留言板")
objRS.PageSize=5 '为什么这里要objRS访问
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"]"
%>
相信你应该能看懂~
[此贴子已经被作者于2006-9-21 19:31:57编辑过]