写了一个分页的东西,循环时不用rx.movenext尽早关闭rs. 数据只取需要显示的,减少数据查询的数量.
sub showpage (fileurl,pgSize,totalCount,page)':::::::::::::fileurl:分页页面名称,pgsize:每页有几条:totalcount:一共有多少条数据,page:当前有多少条数据
if instr(fileurl,"?")=0 and len(fileurl)>1 then
fileurl=fileurl+"?"
elseif len(fileurl)>1 then
fileurl=fileurl+"&"
end if
if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
md = totalCount mod pgSize
if md=0 then
totalPage=cint(totalCount/pgSize)
else
if (totalCount/pgSize)>=1 then
totalPage=fix(totalCount/pgSize)+1
else
totalPage= 1
end if
end if
if page=1 then
response.write("首页")
else
response.Write("<a href='"&fileurl&"page=1'>首页</a>")
end if
response.Write(" ")
if page>1 then
response.Write("<a href='"&fileurl&"page="&page-1&"'>上一页</a>")
else
response.Write("上一页")
end if
response.Write(" ")
if totalPage>1 and page<totalPage then
response.Write("<a href='"&fileurl&"page="&page+1&"'>下一页</a>")
else
response.Write("下一页")
end if
response.Write(" ")
if page<>totalPage then
response.Write("<a href='"&fileurl&"page="&totalPage&"'>尾页</a>")
else
response.Write("尾页")
end if
response.Write(" ")
response.Write("页次:"&page&"/"&totalPage&"页 "&pgSize&"篇/每页 " )
end sub
if instr(fileurl,"?")=0 and len(fileurl)>1 then
fileurl=fileurl+"?"
elseif len(fileurl)>1 then
fileurl=fileurl+"&"
end if
if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
md = totalCount mod pgSize
if md=0 then
totalPage=cint(totalCount/pgSize)
else
if (totalCount/pgSize)>=1 then
totalPage=fix(totalCount/pgSize)+1
else
totalPage= 1
end if
end if
if page=1 then
response.write("首页")
else
response.Write("<a href='"&fileurl&"page=1'>首页</a>")
end if
response.Write(" ")
if page>1 then
response.Write("<a href='"&fileurl&"page="&page-1&"'>上一页</a>")
else
response.Write("上一页")
end if
response.Write(" ")
if totalPage>1 and page<totalPage then
response.Write("<a href='"&fileurl&"page="&page+1&"'>下一页</a>")
else
response.Write("下一页")
end if
response.Write(" ")
if page<>totalPage then
response.Write("<a href='"&fileurl&"page="&totalPage&"'>尾页</a>")
else
response.Write("尾页")
end if
response.Write(" ")
response.Write("页次:"&page&"/"&totalPage&"页 "&pgSize&"篇/每页 " )
end sub
其实主要就是那个sql语句,然后注意分页就可以了,也挺简单的,其实早就想用这个办法了,只是原来一直很懒就没有试验用这种方法.