JS分页的代码.docx
- 文档编号:3752586
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:14
- 大小:16.79KB
JS分页的代码.docx
《JS分页的代码.docx》由会员分享,可在线阅读,更多相关《JS分页的代码.docx(14页珍藏版)》请在冰豆网上搜索。
JS分页的代码
JS分页的代码
<%@language="vbscript"codepage=936%>
<%
optionexplicit'强制定义变量
'==========================================================================
'毛虫的快速分页
'==========================================================================
dimidcount'记录总数
dimpages'每页条数
dimpagec'总页数
dimpage'页码
dimpagenc'每页显示的分页页码数量=pagenc*2+1
pagenc=2
dimpagenmax'每页显示的分页的最大页码
dimpagenmin'每页显示的分页的最小页码
page=clng(request("page"))
dimstart'程序开始的时间
dimendt'程序结束的时间
dimdatafrom'数据表名
datafrom="table1"
dimconn,rs
dimdatapath'数据库路经
dimsqlid'本页需要用到的id
dimmyself'本页地址
myself=request.servervariables("path_info")
dimsql'sql语句
dimtaxis'排序的语句
taxis="orderbyidasc"
dimi'用于循环的整数
start=timer()
datapath="db.mdb"
pages=30
'连接打开数据库
dimdb
db="db.mdb"'定义数据库路径及名称
setconn=server.createobject("adodb.connection")
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&server.mappath(db)
iferr.number<>0then
response.write"数据库链接出错!
"
response.end()
endif
'获取记录总数
sql="selectcount(id)asidcountfrom["&datafrom&"]"
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,0,1
idcount=rs("idcount")'获取记录总数
if(idcount>0)then'如果记录总数=0,则不处理
if(idcountmodpages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
pagec=int(idcount/pages)'获取总页数
else
pagec=int(idcount/pages)+1'获取总页数
endif
'获取本页需要用到的id============================================
'读取所有记录的id数值,因为只有id所以速度很快
sql="selectidfrom["&datafrom&"]"&taxis
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,1
rs.pagesize=pages'每页显示记录数
ifpage<1thenpage=1
ifpage>pagecthenpage=pagec
ifpagec>0thenrs.absolutepage=page
fori=1tors.pagesize
ifrs.eofthenexitfor
if(i=1)then
sqlid=rs("id")
else
sqlid=sqlid&","&rs("id")
endif
rs.movenext
next
'获取本页需要用到的id结束============================================
endif
%>
--
functiongopage(){
window.location.href="<%=myself%>?
page="+page.value;
}
//-->
<%
if(idcount>0andsqlid<>"")then'如果记录总数=0,则不处理
'用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
sql="select[id],[aaaa],[bbbb],[cccc]from["&datafrom&"]whereidin("&sqlid&")"&taxis
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,0,1
while(notrs.eof)'填充数据到表格
%>
(1)%>
(2)%>
<%
rs.movenext
wend
%>
<%
'设置分页页码开始===============================
pagenmin=page-pagenc'计算页码开始值
pagenmax=page+pagenc'计算页码结束值
if(pagenmin<1)then'如果页码开始值小于1则=1
pagenmin=1
endif
if(page>1)then'如果页码大于1则显示(第一页)
response.write(" page=1'> endif if(pagenmin>1)then'如果页码开始值大于1则显示(更前) response.write(" page="&page-(pagenc*2+1)&"'> endif if(pagenmax>pagec)then'如果页码结束值大于总页数,则=总页数 pagenmax=pagec endif fori=pagenmintopagenmax'循环输出页码 if(i=page)then response.write(" else response.write("[ page="&i&"> endif next if(pagenmax response.write(" page="&page+(pagenc*2+1)&"'> endif if(page response.write(" page="&pagec&"'> endif '设置分页页码结束=============================== %> 转到 <% endif %> <% endt=timer() rs.close setrs=nothing conn.close setconn=nothing %> 页面执行时间: <%=formatnumber((endt-start)*1000,3)%>毫秒