知识大全 asp快速分页代码

Posted 2022-07-17 知

篇首语：人不能象走兽那样活着，应该追求知识和美德。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 asp快速分页代码相关的知识，希望对你有一定的参考价值。

　　<%@ language = "vbscript" codepage = %>

　　<% option explicit 强制定义变量 dim idcount 记录总数 dim pages 每页条数 dim pagec 总页数 dim page 页码 dim pagenc 每页显示的分页页码数量=pagenc* + pagenc= dim pagenmax 每页显示的分页的最大页码 dim pagenmin 每页显示的分页的最小页码 page=clng(request("page")) dim start 程序开始的时间 dim endt 程序结束的时间 dim datafrom 数据表名 datafrom="table " dim conn rs dim datapath 数据库路经 dim sqlid 本页需要用到的id dim myself 本页地址 myself = request servervariables("path_info") dim sql sql语句 dim taxis 排序的语句 taxis="order by id asc" 正排序 taxis="order by id desc" 倒排序 dim i 用于循环的整数 start=timer() datapath="db mdb" 数据库 pages=

　　连接打开数据库 dim db db="db mdb" 定义数据库路径及名称 set conn = server createobject("adodb connection") conn open "provider=microsoft jet oledb ;data source=" & server mappath(db) if err number <> then response write "数据库链接出错!" response end() end if

　　获取记录总数 sql="select count(id) as idcount from ["& datafrom &"]" set rs=server createobject("adodb recordset") rs open sql conn idcount=rs("idcount") 获取记录总数

　　if(idcount> ) then 如果记录总数= 则不处理 if(idcount mod pages= )then 如果记录总数除以每页条数有余数则=记录总数/每页条数+ pagec=int(idcount/pages) 获取总页数 else pagec=int(idcount/pages)+ 获取总页数 end if

　　获取本页需要用到的id============================================ 读取所有记录的id数值因为只有id所以速度很快 sql="select id from ["& datafrom &"] " & taxis set rs=server createobject("adodb recordset") rs open sql conn

　　rs pagesize = pages 每页显示记录数 if page < then page = if page > pagec then page = pagec if pagec > then rs absolutepage = page

　　for i= to rs pagesize if rs eof then exit for if(i= )then sqlid=rs("id") else sqlid=sqlid &" "&rs("id") end if rs movenext next 获取本页需要用到的id结束============================================ end if %> <!doctype public " //w c//dtd transitional//en"> <> <head> <meta equiv="content type" content="text/; charset=gb "> <title>快速分页</title> <link rel="stylesheet" href="page css" type=text/css>

　　</head>

　　<body bgcolor="#f f f " leftmargin=" " topmargin=" " margin margin> <table width= % height= % border= cellpadding=" " cellspacing=" "> <tr> <td valign="middle"><table width= % height= % border= cellpadding=" " cellspacing=" " bgcolor="#cccccc"> <tr> <td valign="top" bgcolor="#ffffff"><br> <table width= % border= align=center cellpadding=" " cellspacing=" " > <tr> <td><strong><font color="#ff ">快速分页</font></strong></td> </tr> </table> <br> <table width= % border= align=center cellpadding=" " cellspacing=" " bgcolor="cccccc" > <tr align=center bgcolor="# fcb "> <td width= %><strong>ID</strong></td> <td width= %><strong>主题</strong></td> <td width= %><strong>内容</strong></td> <td width= %><strong>时间</strong></td> </tr> <% if(idcount> and sqlid<>"") then 如果记录总数= 则不处理用in刷选本页所语言的数据仅读取本页所需的数据所以速度快 sql="select [id] [aaaa] [bbbb] [cccc] from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server createobject("adodb recordset") rs open sql conn

　　while(not rs eof) 填充数据到表格 %> <tr bgcolor="#ffffff"> <td align=center><%=rs( )%></td> <td><%=rs( )%></td> <td><%=rs( )%></td> <td align=center><%=rs( )%></td> </tr> <% rs movenext wend %> </table> <br> <table width= % border= align=center cellpadding=" " cellspacing=" " > <tr align=center> <td align=left>共有<strong><font color="#ff "><%=idcount%></font></strong>条记录 <strong><font color="#ff "><%=page%></font></strong>/<%=pagec%> 每页<strong><font color="#ff "><%=pages%></font></strong>条 </td> </tr> </table> <table width= % border= align=center cellpadding=" " cellspacing=" " > <tr align=center> <td align=right> <% 设置分页页码开始=============================== pagenmin=page pagenc 计算页码开始值 pagenmax=page+pagenc 计算页码结束值 if(pagenmin< ) then 如果页码开始值小于则= pagenmin= end if

　　if(page> ) then 如果页码大于则显示(第一页) response write ("<a "& myself &"?page=><font color=# >第一页</font></a> ") end if if(pagenmin> ) then 如果页码开始值大于则显示(更前) response write ("<a "& myself &"?page="& page (pagenc* + ) &" ><font color=# >更前</font></a> ") end if

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

cha138/Article/program/net/201311/14255