asp快速分页代码

时间：2016.05.08 发布人：张格庄特**

已解决问题

谷歌张格庄特**用户在2016.05.08提交了关于“郑渊洁asp快速分页代码”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-03-13T13:15:08。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，不知道说什么,送你一朵小红花吧！

希望以下的回答，能够帮助你。

第1个回答

用户名：tabithagjb 时间：201总亚

<%凯待零面穿认并验验设首@language="vbscript"codepage=936%>

<%optionexplicit'强制定义变量dimidcount'记录总数dimpages'每页条常数dimpagec'总页数dimpage'页码dimpagenc'每页显示的分页页码数量=pagenc*2+1pagenc=2dimpagenmax'每页显示的分页的最大页码dimpagenmin'每页显示的分页的最小页码pa知ge=clng(问答request("page")财再损延)dimstart'程序开始的时间dimend措足呢画日革t'程序结束的时间dimdatafrom'**表名datafrom="table1"dimconn,rsdimdatapat种铁上慢余了庆h'**库路经dimsqlid'本页需要用到的iddi临镇策维只政再飞mmyself'本页地址mys负凯量elf=reque易宪架放承创线就迫st.servervariables("path_info")dimsql'sql此普语句dimtaxis'排序刚的语句'taxis="orderbyidasc"'正排序taxis="orderbyidde依富没征器展例鲁三亚带sc"'倒排序dimi'用于循环的整数start=timer()datapath="db.mdb"'**库pages=30

'连战武黑病接打开**库dimdbdb="db.md节升大量话儿必刚b"'定义**库路径及名称setconn=server.createobject("adodb.co手延践nnection")***.open"provider=microsoft.jet.oledb.4.0;datasource="&server.mappath(db)iferr.**mber<>0thenresponse.write"**库链接出错!"response.end()endif

'获取记录总数sql="selectcount(id)asidcountfrom["&datafrom&"]"setrs=server.createobject("adodb.recordset")***.opensql,conn,0,1idcount=rs("idcount")'获取记录总数

if(idcount>0)then'如果记录总数=0,则不处理if(idcountmodpages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1pagec=int(idcount/pages)'获取总页数elsepagec=int(idcount/pages)+1'获取总页数endif

'获取本页需要用到的id============================================'读取所有记录的id数值,因为只有id所以速度很快sql="selectidfrom["&datafrom&"]"&taxissetrs=server.createobject("adodb.recordset")***.opensql,conn,1,1

rs.pagesize=pages'每页显示记录数ifpage<1thenpage=1ifpage>pagecthenpage=pagecifpagec>0thenrs.absolutepage=page

fori=1tors.pagesizeifrs.eofthenexitforif(i=1)thensqlid=rs("id")elsesqlid=sqlid&","&rs("id")endifrs.movenextnext'获取本页需要用到的id结束============================================endif%><!doctypehtmlpublic"-//w3c//dtdhtml4.01transitional//en"><html><head><metahttp-equiv="content-type"content="text/html;charset=gb2312"><title>快速分页</title><linkrel="stylesheet"href="page.css"type="text/css">

</head>

<bodybgcolor="#f2f2f2"leftmargin="0"topmargin="0"marginwidth="0"marginheight="0"><tablewidth="100%"height="100%"border="0"cellpadding="20"cellspacing="0"><tr><tdvalign="middle"><tablewidth="100%"height="100%"border="0"cellpadding="0"cellspacing="1"bgcolor="#cccccc"><tr><tdvalign="top"bgcolor="#ffffff"><br><tablewidth="90%"border="0"align="center"cellpadding="0"cellspacing="0"class="zw"><tr><td><strong><fontcolor="#ff6600">快速分页</font></strong></td></tr></table><br><tablewidth="90%"border="0"align="center"cellpadding="3"cellspacing="1"bgcolor="cccccc"class="zw"><tralign="center"bgcolor="#9fcb07"><tdwidth="9%"><strong>ID</strong></td><tdwidth="37%"><strong>主题</strong></td><tdwidth="33%"><strong>内容</strong></td><tdwidth="21%"><strong>时间</strong></td></tr><%if(idcount>0andsqlid<>"")then'如果记录总数=0,则不处理'用in刷选本页所语言的**,仅读取本页所需的**,所以速度快sql="select[id],[aaaa],[bbbb],[cccc]from["&datafrom&"]whereidin("&sqlid&")"&taxissetrs=server.createobject("adodb.recordset")***.opensql,conn,0,1

while(notrs.eof)'填充**到表格%><trbgcolor="#ffffff"><tdalign="center"><%=rs(0)%></td><td><%=rs(1)%></td><td><%=rs(2)%></td><tdalign="center"><%=rs(3)%></td></tr><%rs.movenextwend%></table><br><tablewidth="90%"border="0"align="center"cellpadding="2"cellspacing="0"class="zw"><tralign="center"><tdalign="left">**有<strong><fontcolor="#ff6600"><%=idcount%></font></strong>条记录,<strong><fontcolor="#ff6600"><%=page%></font></strong>/<%=pagec%>,每页<strong><fontcolor="#ff6600"><%=pages%></font></strong>条。</td></tr></table><tablewidth="90%"border="0"align="center"cellpadding="2"cellspacing="0"class="zw"><tralign="center"><tdalign="right"><%'设置分页页码开始===============================pagenmin=page-pagenc'计算页码开始值pagenmax=page+pagenc'计算页码结束值if(pagenmin<1)then'如果页码开始值小于1则=1pagenmin=1endif

if(page>1)then'如果页码大于1则显示(第一页)response.write("<ahref='"&myself&"?page=1'><fontcolor='#000000'>第一页</font></a>")endifif(pagenmin>1)then'如果页码开始值大于1则显示(更前)response.write("<ahref='"&myself&"?page="&page-(pagenc*2+1)&"'><fontcolor='#000000'>更前</font></a>")endif

if(pagenmax>pagec)then'如果页码结束值大于总页数,则=总页数pagenmax=pagecendif

fori=pagenmintopagenmax'循环输出页码if(i=page)thenresponse.write("<fontcolor='#ff6600'><strong>"&i&"</strong></font>")elseresponse.write("[<ahref="&myself&"?page="&i&"><fontcolor='#000000'>"&i&"</font></a>]")endifnextif(pagenmax<pagec)then'如果页码结束值小于总页数则显示(更后)response.write("<ahref='"&myself&"?page="&page+(pagenc*2+1)&"'><fontcolor='#000000'>更后</font></a>")endifif(page<pagec)then'如果页码小于总页数则显示(最后页)response.write("<ahref='"&myself&"?page="&pagec&"'><fontcolor='#000000'>最后页</font></a>")endif'设置分页页码结束===============================%><scriptlanguage="j**ascript"></script>转到<inputname="page"type="text"value="<%=page%>"size="5">页<inputtype="button"name="submit"value="跳转"></td></tr></table><%endif%><br><tablewidth="90%"border="0"align="center"cellpadding="2"cellspacing="0"class="zw"><tr><tdalign="center"><p><%endt=timer()rs.closesetrs=nothingconn.closesetconn=nothing%><%=format**mber((endt-start)*1000,3)%>毫秒</p><p><ahref="http://stone-stone.***.com/"target="_blank">STONE空间</a></p></td></tr></table><br></td></tr></table></td></tr></table></body></html>