Question

100分跪求一个ASP+SQL存储过程的分页程序，要求每页只读取“每页显示的记录数”

100万数据分页中的每一页读取速度都要差不多，不能是那种越到后面读取速度就越慢的情况出现，我现在用的就是那种越到后面就越慢的那种分页程序，感觉很不好很占资源，所以想再求一个更好的分页程100万数据分页中的每一页读取速度都要差不多，不能是那种越到后面读取速度就越慢的情况出现，我现在用的就是那种越到后面就越慢的那种分页程序，感觉很不好很占资源，所以想再求一个更好的分页程序，本人技术不是太好，最好能将调用方法也贴出来，好的再加分，能在我原有程序基础上直接修改的再再加分，需要看我现有程序的可以Hi我，谢谢！序，本人技术不是太好，最好能将调用方法也贴出来，好的再加分，能在我原有程序基础上直接修改的再再加分，需要看我现有程序的可以Hi我，谢谢！
贴上我目前的程序源码供参考，谢谢！

Answer 1

sp页面，内容如下：
<%
dim pageno '记录第几页

'函数名cut1，参数rs类型为Recordset
'该函数主要将接收一个pageno，并将这个值赋给rs的AbsolutePage
'最终达到指定当前页是第几页
function cut1(rs)
if not rs.eof or not rs.bof then
Dim i
pageno = Request("pageno")
If pageno <= 0 Then
rs.AbsolutePage = 1 '转到第一页
pageno = 1
Else
If CInt(pageno) > CInt(rs.PageCount) Then
pageno = rs.PageCount '转到最后一页
End If
rs.AbsolutePage = pageno
End If
end if
End function

'函数名cut2，参数rs类型为Recordset
'该函数主要将接收一个Request("url")和Request.QueryString，从而取得本页地址栏的内容
'在此基础上，根据当前页数pageno算出各种不同情况下，我们需要的下一页的页数
'最终达到指定下一页地址栏内容
'注：本函数没有对Request.form做处理
function cut2(rs)
Dim urlstring
Dim thisno

urlstring = Request("url") & "?" & Request.QueryString
if Request.QueryString="" then
urlstring = Request("url") & "?" & Request.form
'注：本函数在仅这里对Request.form做处理
end if
If InStr(urlstring, "pageno=") > 0 Then
urlstring = Left(urlstring, InStr(urlstring, "pageno=") - 1)
End If
If ((InStr(urlstring, "&") >= 2) or (InStr(Left(urlstring, Len(urlstring) - 1), "?") >= 2)) Then
urlstring = urlstring & "&"
End If
if InStr(urlstring, "/") >= 2 Then
urlstring1 = split(urlstring, "/")
urlstring = urlstring1(ubound(urlstring1))
end if
if instr(urlstring,"&&") then
urlstring=replace(urlstring,"&&","&")
end if
thisno=pageno 'thisno记录当前页数pageno，以后的pageno将是下一页的页数
Response.Write "<form action='" & Left(urlstring, Len(urlstring) - 1) & "' name=form method=post>"
if not rs.eof or not rs.bof then
Response.Write "<font style= color=black>第<font color=red>" & pageno & "</font>页 共<font color=red>" & rs.PageCount & "</font>页<font color=red>" & rs.RecordCount & "</font>条信息 "
else
Response.Write "<font style= color=black>第<font color=red>0</font>页 共<font color=red>" & rs.PageCount & "</font>页<font color=red>" & rs.RecordCount & "</font>条信息 "
end if
if not rs.eof or not rs.bof then
if cint(pageno)=rs.pagecount then
response.write "现在是<font color=red>"&(cint(pageno)-1)*rs.pagesize+1&"</font>条---<font color=red>"&(cint(pageno)-1)*rs.pagesize+(rs.recordcount-cint(pageno-1)*rs.pagesize)&"</font>条 "
else
response.write "现在是<font color=red>"&(cint(pageno)-1)*rs.pagesize+1&"</font>条---<font color=red>"&cint(pageno)*rs.pagesize&"</font>条 "
end if
else
response.write "现在是<font color=red>0</font>条---<font color=red>0</font>条"
end if
Response.Write "直接到第"

'文本框用于跟踪当前页数和控制下一页页数（暂停用）
'Response.Write "<input type=text name=pageno size=2 maxlength=2 value=" & pageno & "> 页"

'下拉列表框用于跟踪当前页数和控制下一页页数
Response.Write "<select name=pageno siz1=1 onchange='javascript: form.submit();'>"
for i=0 to rs.PageCount-1
Response.Write "<option value=" & (i+1)
if (i+1)=cint(thisno) then
Response.Write " selected"
end if
Response.Write ">" & (i+1)
next
Response.Write "</select>"
Response.Write "页</font> "
if pageno<=1 then
response.write "<font style= color=gray>首页</font> "
response.write "<font style= color=gray>上页</font> "
else
Response.Write "<a href='" & urlstring & "pageno=1'><font style=>首页</font></a> "
Response.Write "<a href='" & urlstring & "pageno=" & (pageno - 1) & "'><font style=>上页</font></a> "
end if
if (cint(pageno)>=cint(rs.pagecount)) then
response.write "<font style= color=gray>下页</font> "
response.write "<font style= color=gray>末页</font> "
else
Response.Write "<a href='" & urlstring & "pageno=" & (pageno + 1) & "'><font style=>下页</font></a> "
Response.Write "<a href='" & urlstring & "pageno=" & rs.PageCount & "'><font style=>末页</font></a> "
end if
Response.Write "</form>"
End function

%>
在使用的时候引用这个页面
<!--#include file="conn.asp"-->
<!--#include file="Page.asp"-->
<% sql="sql查询语句"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=20 '每页显示多少条数据
cut1(rs) '开始调用分页
dim i
i=1
do while not rs.eof and i<=rs.pagesize%>
正常读取数据
<% rs.movenext
i=i+1
loop %>
读取数据结束
<%cut2(rs)%>'这里显示上一页 下一页

Answer 2

你既然是用的 sqlserver 数据库，那直接去网上下载一个 邹建的分页程序即可，你现在用的是 ado的分页，效率当然慢了。另外分页查询还与你的数据索引及表设计相关，若索引建立不正确也会慢。你给我1000分我就把我的实例发给你。嘎嘎

Answer 3

要求一下...分太少.

追问

解决好了可以加分，500分如何？

追答

请等待，我反修改程序，大约半个小时

追问

贴上我目前的程序源码供参考，谢谢！