<%Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Order By id Desc"
Rs.Open Sql,Conn,1,1
page = Request.QueryString("page")
PageSize = 10
PageCount=Rs.PageCount
recordcount=rs.recordcount
If page="" Then
Rs.AbsolutePage = 1
Else
page=Rs.AbsolutePage
End If
dim n
if RecordCount mod pagesize=0 then
n= RecordCount \ pagesize
else
n= RecordCount \ pagesize+1
end if
%>
<%
do while i < PageSize And not rs.eof
%>
<%rs.movenext i=i+1 loop
Rs.Close
Set Rs = Nothing
%>
參考答案:这个程序明显有问题哦，页面每次运行，数据库重新连接，数据集重新导出，还有什么absolutePage的呀？？？
If page="" Then
Rs.AbsolutePage = 1
Else
page=Rs.AbsolutePage
End If
明显写反了，
应该是
If page="" Then
Rs.AbsolutePage = 1
Else
Rs.AbsolutePage = page
End If
其中page也没有判断是否为数字，这样做是不行的！
是否有没有越界，很严重的！·
还有pageSize=10
是不是应该写 rs.pageSize=10
或是在下面写 rs.pageSize= pageSize
没有给rs设置页宽，就在那用pageCount，乱七八糟的！