减小字体
增大字体- ·上一篇文章：asp技巧：数字或者字符排序函数代码
- ·下一篇文章：asp读取数据库中的信息存储生成XML文件的例子
通用的asp分页函数代码
这是我asp程序中最常用，最通用的一个asp分页函数，适合所有表，在整个网站的开发过程中，只用这一个就可以解决所有分页问题，并且允许带入不同的参数。
'功能：常用的asp分页函数'开发：www.K88.NET '作者：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 functionIf str<(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)
>
"" then s=Split(str,"|") s2="" For i=0 To UBound(s) s2=s2&
"&
"&
s(i)&
"="&
server.URLEncode(request(s(i))) NextEnd IfDim str9str9=""page=CInt(page) if recordset_count mod page_size=0 then page_count=recordset_count\page_size else page_count=recordset_count\page_size+1 end ifstr9=str9&
"<
a href=""?page=1"&
s2&
""">
首页<
/a>
"if page>
4 then s=page-3else 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=str9End Function
使用方法：
1、分页不需要参数
'先得到符合条件的记录总数'地址如：http://www.K88.NET/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,page_size,count,str) (鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)2、分页需要参数
'先得到符合条件的记录总数'地址如：http://www.K88.NET/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,page_size,count,str)
通用的asp分页函数代码
