ASP入门学习（五）分页查询

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
<%Response.CodePage=65001%>  
<%Response.Charset="utf-8"%>
<!-- 设置编码很重要，否则程序会出现异常或中文乱码问题。 -->

<%
'conn
'准备工作
dim conn 
dim connstr
dim path 
path = server.mappath("\OneFCMS_Data\OneFCMS$%#$#Data$%#2012#$11$$#7.mdb")
'response.Write(path & "<br/>")
'on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
  err.Clear
  Set Conn = Nothing
  Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
  Response.End
End If 
%>

<%
'获取当前页码
page=Request.QueryString("pid")

set rs=server.createobject("adodb.recordset") 
        exec="select * from News where ssfl = 1  order by zhiding desc,data desc "
        rs.open exec,conn,1,1
            
        rs.PageSize = 10 '设置每页显示多少条记录
        iCount=rs.RecordCount  '总的记录数
        iPageSize=rs.PageSize  
        maxpage=rs.PageCount   '页数

        '对page页码的判断
        if Not IsNumeric(page) or page="" then
        page=1
        else
        page=cint(page)
        end if
        if page<1 then
        page=1
        elseif  page>maxpage then
        page=maxpage
        end if
        rs.AbsolutePage=Page '设置当前页码
        if page=maxpage then 
        x=iCount-(maxpage-1)*iPageSize '最后一页记录数不足PageSize情况。否则会报“在对应所需名称或序数的集合中，未找到项目。”错误信息~!
        else
        x=iPageSize
        end if
        
        For i=1 To x
            '循环显示
            response.Write(rs("data") &"---"&rs("title")&"---")
            response.Write(formatdatetime(rs("data"),2) & "<br/>") '只显示日期,不显示时间函数处理。
        rs.movenext
        next
        
%>

<%'以下显示分页
    call PageControl2(iCount,maxpage,page,"border=0 align=center","<p align=center>")
    rs.close
    set rs=nothing
%>


<%

'分页子程序
Sub PageControl2(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
action=a
    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '?pid='+ this.page.value;return false;""><TR >" & vbCrLf )
    Response.Write("<TD align=left  class=hui>" & vbCrLf )
    Response.Write(font_style & vbCrLf ) 
    'response.Write "<A href=javascript:history.back()>【返回前页】</a>&nbsp;&nbsp;&nbsp;"
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上一页 " & vbCrLf)
    else        
        Response.Write("<A HREF=?" & ad & "pid="  & "1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=?" & ad & "pid="  & (Page-1) & ">上一页</A> " & vbCrLf)
    end if
    if page>=pagecount then
        Response.Write ("下一页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=?" & ad & "pid=" & (Page+1) & ">下一页</A> " & vbCrLf)
        Response.Write("<A HREF=?" & ad & "pid=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if
    Response.Write("页次：" & page & "/" & pageCount & "页"&  vbCrLf)
    Response.Write(" 共" & iCount & "条记录" &  vbCrLf)
    Response.Write(" 转" & "<INPUT CLASS=wenbenkuang TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>