【下载文档:  asp分页（自己整理的2个分页程序）.txt 】

---

asp分页（自己整理的2个分页程序）
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<% 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 %>

姓名	密码
<%=rs("name")%>	<%=rs("pass")%>

<% 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 %>

<%=mrs("name")%>

<%=mrs("pass")%>

<% call PageControl(iCount,maxpage,page) Sub PageControl(iCount,pagecount,page) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & 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.Write ("上一页 ") 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 %>