这是我asp程序中最常用，最通用的一个asp分页函数，适合所有表，在整个网站的开发过程中，只用这一个就可以解决所有分页问题，并且允许带入不同的参数。
'开发：<a href="http://www.aspbc.com">www.aspbc.com</a> '作者：wangsdong
'原创文章，转载请保存此信息
'参数含义：
'page当前页
'page_size每页总数
'recordset_count总数
'str字符串
Function fpage(page,page_size,recordset_count,str)
If recordset_count=0 Or IsNull(recordset_count) Then Exit function
If str<>"" then
s=Split(str,"|")
s2=""
For i=0 To UBound(s)
s2=s2&"&"&s(i)&"="&server.URLEncode(request(s(i)))
Next
End If
Dim str9
str9=""
page=CInt(page)
if recordset_count mod page_size=0 then
page_count=recordset_countpage_size
else
page_count=recordset_countpage_size+1
end if
str9=str9&"<a href=""?page=1"&s2&""">首页</a> "
if page>4 then
s=page-3
else
s=1
end if
if page<=page_count-3 then
e=page+3
else
e=page_count
end if
for i=s to e
if i=page then
str9=str9&"<b>"&i&"</b> "
else
str9=str9&"<a href=""?page="&i&s2&""">"&i&"</a> "
end if
Next
str9=str9&"<a href=""?page="&page_count&s2&""">末页</a> <span>第 (<span class=""cRed"">"&page&"</span>/<span class=""cTotal"">"&page_count&"</span>) 页</span>"
fpage=str9
End Function
使用方法：
1、分页不需要参数
'先得到符合条件的记录总数
'地址如：http://www.aspbc.com/list.asp 后面没有参数
sql="select count(*) as num from table where ……"
countnum=conn.execute(sql)
page=request("page") ’得到当前页数
if page="" then page=1
page_size=10 '当前每页10条
str="" '不传参数，也就是地址栏没有参数
response.write fpage(page,count,str)
2、分页需要参数
'先得到符合条件的记录总数
'地址如：http://www.aspbc.com/list.asp?classid=1&cid=2
'后面有classid和cid两个参数
sql="select count(*) as num from table where ……"
countnum=conn.execute(sql)
page=request("page") ’得到当前页数
if page="" then page=1
page_size=10 '当前每页10条
str="classid|cid" '不传参数，也就是地址栏没有参数
response.write fpage(page,str)
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
