大量记录快速分页代码,SQL语句分页

<%
Cardnumber = Conn.Execute("select count(*) as counts from [List_view]")("counts")
vPage = Cint(Request.QueryString("Page"))
vPageSize = 50
If Cardnumber mod vPageSize > 0 Then
vPgnum = Cint(Fix(Cardnumber/vPageSize) + 1)
Else
vPgnum = Cint(Cardnumber/vPageSize)
End If
If vPage = "" Or vPage < 1 Then vPage = 1
If vPage > vPgnum Then vPage = vPgnum
vPagecount = vPageSize*(vPage-1)
Set vRs = Server.CreateObject("ADODB.Recordset")
If vPage = 1 Then
Sql = "select top "&vPageSize&" id from [List_view] order by id"
Else
Sql = "select top "&vPageSize&" id from [List_view] where (id not in (select top "&vPagecount&" id from [List_view] order by id)) order by id"
End If
vRs.Open Sql,conn,1,1
  If vRs.Eof Then
    Response.Write("暂无数据~~~")
  Else
    Do While Not vRs.Eof
    Response.Write(""&vRs("id")&"<br />")
    vRs.MoveNext
    Loop
    vRs.close:Set vRs = Nothing
  End If

'---------------------分页开始------------------------
If Cardnumber > vPageSize Then

Response.Write "          <div id=""Main_ShowPage"">" & Chr(13)
if AllPage > vPgnum then
    AllPage = vPgnum
end if
   
if vPage - FrontPage < 1 then
    Start = 1
    sEnd = AllPage
elseif vPage + AllPage - FrontPage > vPgnum  then
    Start = vPgnum - AllPage + 1
    sEnd = vPgnum
else
    Start = vPage - FrontPage
    sEnd = vPage - FrontPage + AllPage - 1
end if

for i = Start to sEnd
if i = 1 then
    Url = "1"
else
    Url = i
end if
    if i = vPage then
        vPages = vPages & "<font color=""#ff0000""><b>["&i&"]</b></font> "
    else
        vPages = vPages & "<a href=""?Page="&Url&""">["&i&"]</a> "
    end if   
next

if vPage = 1 then
    Fpage = "首页"
    Lpage = "上一页"
else
    Fpage = "<a  href=""?Page=1"">首页</a>"
    Lpage = "<a  href=""?Page="&vPage - 1&""">上一页</a>"
end if

if vPage = vPgnum then
    Npage = "下一页"
    Rpage = "尾页"
else
    Npage = "<a  href=""?Page="&vPage + 1&""">下一页</a>"
    Rpage = "<a  href=""?Page="&vPgnum&""">尾页</a>"
end if

Response.Write "共"&Cardnumber&"条记录  页次:"&vPage&"/"&vPgnum&"页  "&Fpage&"  "&Lpage&"  "&vPages&"  "&Npage&"  "&Rpage&"  "
Response.Write "<select name=""page"" onChange=javascript:location.href=""?Page=""+document.all.page.options[document.all.page.selectedIndex].value+"""" size=""1"">"
for i = 1 to vPgnum
Response.Write "    <option value="""&i&""" "
if vPage = i then Response.Write "selected"
Response.Write ">第"&i&"页</option>"
next
Response.Write "</select>"
Response.Write "          </div>" & Chr(13)

End If
'---------------------分页结束------------------------
%>

[[it] 本帖最后由 zhangyao3287 于 2008-6-6 11:14 编辑 [/it]]