按照书上写的将一个分页程序写出来还是不能正确分页。
最后查找资料是因为一个属性没有设置引起的下面是代码：
最后查找资料是因为一个属性没有设置引起的下面是代码：
sqlstr=”select * from vw_log_login”
set rs=Server.CreateObject(“ADODB.RecordSet”)
rs.cursorlocation=3’如果支持分页必需设置此选项
rs.Open sqlstr,conn,1,3
If rs.EOF and rs.BOF Then ’ 记录集不为空则处理记录
Response.Write objlang.langtext(“NORecordSet”)
else
counts=30
rs.PageSize = counts ’ 设置每页显示的记录数
num=rs.RecordCount ’ 记录总数
pagenum=rs.PageCount ’ 页总数
page=request(“page”) ’ 获取页码的原始信息
’ 处理页码原始信息的开始！
If isEmpty(page) or Cint(page)<1 then
page=1
elseif saf <%
Do While (NOt rs.eof) and counts>0
%> afds <%
counts=counts-1
rs.moveNext
if rs.eof then exit do
loop
conn.Close
End if
%>
中间一段带有tag没有写出来，set rs=Server.CreateObject(“ADODB.RecordSet”)
rs.cursorlocation=3’如果支持分页必需设置此选项
rs.Open sqlstr,conn,1,3
If rs.EOF and rs.BOF Then ’ 记录集不为空则处理记录
Response.Write objlang.langtext(“NORecordSet”)
else
counts=30
rs.PageSize = counts ’ 设置每页显示的记录数
num=rs.RecordCount ’ 记录总数
pagenum=rs.PageCount ’ 页总数
page=request(“page”) ’ 获取页码的原始信息
’ 处理页码原始信息的开始！
If isEmpty(page) or Cint(page)<1 then
page=1
elseif saf <%
Do While (NOt rs.eof) and counts>0
%> afds <%
counts=counts-1
rs.moveNext
if rs.eof then exit do
loop
conn.Close
End if
%>
注意：要设置rs.cursorlocation=3，而且是在RS.查询之前。