<%
dim rs
dim sql
dim page
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM iZzgbook Order By dateandtime Desc"
rs.open sql,conn,1,1
d
'----------------------------------------------
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 6'------------------每页显示留言数
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
%>
有为--成功路上的好伙伴！
