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

%>