asp分页（自己整理的2个分页程序）

<!–
.STYLE1 {font-size: 12px}
–>

  

  <%
set rs=server.createobject(“adodb.recordset”) 
conn = “DBQ=” + server.mappath(“zheng.mdb”) + “;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};” 
sql=”select * from user” 

rs.open sql,conn,1,2 
rs.pagesize=6 ‘设置页面显示得页数
   if request(“page”)”” then
     epage=cint(request(“page”))
      if epage<1 then epage=1
      if epage>rs.pagecount then epage=rs.pagecount
   else
   epage=1
   end if
   rs.absolutepage=epage
   for i=0 to rs.pagesize-1
   if rs.bof or rs.eof then exit for
%>

  

  

<%
 rs.movenext 
next
%>

姓名	密码

 

 
  <%

name=request(“name”)
pass=request(“pass”)
if name”” and pass”” then
rs.Addnew
rs(“name”)=name
rs(“pass”)=pass
rs.update
rs.close
end if
%>

  

    

  

    
    

  <%
set mrs=server.createobject(“adodb.recordset”) 
conn = “DBQ=” + server.mappath(“zheng.mdb”) + “;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};” 
sql=”select * from user” 

mrs.open sql,conn,1,1
If mRs.bof and mRs.eof then
    Response.Write”没有任何记录”
    Response.End
   Else
    mRs.PageSize =6’每页记录条数
    iCount=mRs.RecordCount ‘记录总数
    iPageSize=mRs.PageSize
    maxpage=mRs.PageCount
    page=request(“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
     mRs.AbsolutePage=Page
    If page=maxpage then
     x=iCount-(maxpage-1)*iPageSize
    Else
     x=iPageSize
    End If
   End If

   for i=1 to mRs.pagesize

%>

<%
  mRs.movenext
     If mRs.eof then exit for
     next
     mRs.close
     Set mRs=nothing
     %>

   

<%     call PageControl(iCount,maxpage,page)     Sub PageControl(iCount,pagecount,page)     ‘生成上一页下一页链接     Dim query, a, x, temp     action = “http://” & Request.ServerVariables(“HTTP_HOST&#8221 & Request.ServerVariables(“SCRIPT_NAME”)     query = Split(Request.ServerVariables(“QUERY_STRING”), “&”)     For Each x In query      a = Split(x, “=”)      If StrComp(a(0), “page”, vbTextCompare)  0 Then       temp = temp & a(0) & “=” & a(1) & “&”      End If     Next      Response.Write(“ “)      Response.Write(““)      Response.Write(“ “)      Response.Write(“ “)      If page<=1 then       Response.Write (“首页 ” )       Response.Writ来源gao.dai.ma.com搞@代*码网e (“上一页 “)      Else       Response.Write(“首页 “)       Response.Write(“上一页 “)      End If      If page>=pagecount then       Response.Write (“下一页 “)       Response.Write (“尾页 “)      Else       Response.Write(“下一页 “)       Response.Write(“尾页 “)      End If      Response.Write(” 页次：” & page & “/” & pageCount & ” 页”)      Response.Write(” 共有 ” & iCount & ” 条留言”)      Response.Write(” 转到 ” & “” & ” 页 “)      Response.Write(“ “)     End Sub     %>