复制代码 代码如下:allpages=ubound(contentarray) for dxy_ii=0 to allpages pagelist1="当前"&dxy_ii+1&"/"&(allpages+1)&"页 " pagepre="" pagelast="" if dxy_ii>0 then cpage=cint(dxy_ii) if cpage<0 then cpage=0 if cpage=1 then cpage1=id&".htm" else cpage1=id&"_"&cpage&".htm" end if pagepre="<a href="&cpage1&">上一页</a> " end if if dxy_ii<allpages then pagelast="<a href="&id&"_"&dxy_ii+2&".htm>下一页</a>" for dxy_i=0 to allpages if dxy_i=0 then if dxy_ii=dxy_i then alist=dxy_i+1&" " else alist=alist&"<a href="&id&".htm>"&dxy_i+1&"</a> " end if else if dxy_ii=dxy_i then alist=alist&(dxy_i+1)&" " else alist=alist&"<a href="&id&"_"&dxy_i+1&".htm>"&dxy_i+1&"</a> " end if end if next pagelist=pagelist1&pagepre&alist&ahlist&pagelast alist=""

　　推荐阅读

　　叶子asp分页类

名称: 叶子asp分页类 Name: ShowoPage(vbs class) RCSfile: ReadMe.txt Revision: 0.12.20051114.f Author: Yehe(叶子) Released: 2005-11-14 09:40:13 Descript: ASP分页类,支持access/mssql/mysql/sqlite Contac>>>详细阅读

本文标题：jb51内容分页函数 原创

地址：http://www.17bianji.com/kaifa2/ASP/33133.html

 1/2    1