这是小弟自己想出来的一个分页函数，已经写成function过程，请大家多多指教，修改里面的不足之处！继续提高程序的实用性！

不错，顶下！

里面的其他函数也不错

真是高手 ， 佩服！！
收藏了，谢谢！！

呵呵 最近又增加了些常用过程，到时候再贴下！
你们有新函数增加的话也贴下啊 互补嘛

太长了，看看我的分页函数
<% dim doc_count,page,PageSize,pgnum,i,j,k
PageSize=33
Function div_page()
if int(doc_count mod PageSize )<>0 then
pgnum=int(doc_count/pagesize)+1
else
pgnum=int(doc_count/pagesize)
end if
if page="" then page=Int(Request.QueryString("page"))+1
if page="" then page=int(Request.form("page"))+1
page=int(page-1)
if page="" or page<=0 then page=0
if page>=pgnum then page=pgnum-1
if (page*PageSize < doc_count) and (doc_count-page*PageSize)<PageSize then
k=doc_count-(page*PageSize)-1
else
k=PageSize-1
end if
End Function

Function list_div_page() %>
分页：|<%k=page+9
if k>=pgnum then k=pgnum-1
for i=page to k
j=i+1
response.write this_page&"="&i&">"&j&"</a>|"
next
End Function %>

我写程序是越来越短的，看看我的那个论坛程序，才200多k的代码！
要下载的去下来看看吧！

地址：http://www.ttxbbs.com/view_doc.asp?doc_id=5217

恩好的~看看先~

上面两个函数，那page这个值怎么传递呢？