asp快速分页代码

作者：Eve Cole 更新时间：2025-08-15 18:16:02

推荐：Asp文件操作函数集
% '===============asp 文件操作函数集1.0版本========================= ' 整理作者：张辉 ' 程序员代号：WJ008 ' 整理时间：2008年 6 月 1 日 ' 关注地址：www.wj008.net ' 所有函数使用的文件地址全部使用绝对地址 '============================================

<%@ language = vbscript codepage = 936%>

option explicit '强制定义变量

dim idcount'记录总数

dim pages'每页条数

dim pagec'总页数

dim page'页码

dim pagenc '每页显示的分页页码数量=pagenc*2+1

pagenc=2

dim pagenmax '每页显示的分页的最大页码

dim pagenmin '每页显示的分页的最小页码

page=clng(request(page))

dim start'程序开始的时间

dim endt'程序结束的时间

dim datafrom'数据表名

datafrom=table1

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=30

'连接打开数据库

dim db

db=db.mdb '定义数据库路径及名称

set conn = server.createobject(adodb.connection)

conn.open provider=microsoft.jet.oledb.4.0;data source= & server.mappath(db)

if err.number <> 0 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,0,1

idcount=rs(idcount)'获取记录总数

if(idcount>0) then'如果记录总数=0,则不处理

if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1

pagec=int(idcount/pages)'获取总页数

else

pagec=int(idcount/pages)+1'获取总页数

end if

'获取本页需要用到的id============================================

'读取所有记录的id数值,因为只有id所以速度很快

sql=select id from [& datafrom &] & taxis

set rs=server.createobject(adodb.recordset)

rs.open sql,conn,1,1

rs.pagesize = pages '每页显示记录数

if page < 1 then page = 1

if page > pagec then page = pagec

if pagec > 0 then rs.absolutepage = page

for i=1 to rs.pagesize

if rs.eof then exit for

if(i=1)then

sqlid=rs(id)

else

sqlid=sqlid &,&rs(id)

end if

rs.movenext

'获取本页需要用到的id结束============================================

end if

<!doctype html public -//w3c//dtd html 4.01 transitional//en>

<html>

<head>

</head>

<tr>

<tr>

<tr>

</tr>

</table>

<br>

</tr>

if(idcount>0 and sqlid<>) then'如果记录总数=0,则不处理

'用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快

sql=select [id],[aaaa],[bbbb],[cccc] from [& datafrom &] where id in(& sqlid &) &taxis

set rs=server.createobject(adodb.recordset)

rs.open sql,conn,0,1

while(not rs.eof)'填充数据到表格

</tr>

rs.movenext

wend

</table>

<br>

</tr>

</table>

'设置分页页码开始===============================

pagenmin=page-pagenc'计算页码开始值

pagenmax=page+pagenc'计算页码结束值

if(pagenmin<1) then'如果页码开始值小于1则=1

pagenmin=1

end if

if(page>1) then'如果页码大于1则显示(第一页)

response.write (<a href='& myself &?page=1'><font color='#000000'>第一页</font></a>)

end if

if(pagenmin>1) then'如果页码开始值大于1则显示(更前)

response.write (<a href='& myself &?page=& page-(pagenc*2+1) &'><font color='#000000'>更前</font></a>)

end if

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

pagenmax=pagec

end if

for i = pagenmin to pagenmax'循环输出页码

if(i=page) then

response.write (<font color='#ff6600'><strong>& i &</strong></font>)

else

response.write ([<a href=& myself &?page=& i &><font color='#000000'>& i &</font></a>])

end if

if(pagenmax<pagec) then'如果页码结束值小于总页数则显示(更后)

response.write (<a href='& myself &?page=& page+(pagenc*2+1) &'><font color='#000000'>更后</font></a>)

end if

if(page<pagec) then'如果页码小于总页数则显示(最后页)

response.write (<a href='& myself &?page=& pagec &'><font color='#000000'>最后页</font></a>)

end if

'设置分页页码结束===============================

%><script language=javascript>

<!--

function gopage() {

window.location.href=<%=myself%>?page=+ page.value;

}

//-->

</script>

转到

<input name=page type=text value=<%=page%> size=5>页

</tr>

</table>

end if

<br>

<tr>

<p>

endt=timer()

rs.close

set rs=nothing

conn.close

set conn=nothing

<%=formatnumber((endt-start)*1000,3)%>毫秒 </p>

<p><a href=http://stone-stone.vip.sina.com/ target=_blank>STONE空间</a></p></td>

</tr>

</table>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

分享：ASP使用FCKEditor的设置技巧
1、默认语言打开fckconfig.js文件（相对FCKeditor文件夹，以下同），把自动检测语言改为不检测，把默认语言改为简体中文：程序代码 FCKConfig.AutoDetectLanguage = false ; FCKConfig.DefaultLanguage = 'zh-cn' ; 2、字体列表打开fckconfig.js文件，在字体列表中