jb51内容分页函数 原创
摘要：复制代码代码如下:allpages=ubound(contentarray)fordxy_ii=0toallpagespagelist1="...
复制代码 代码如下:
allpages=ubound(contentarray)
fordxy_ii=0toallpages
pagelist1="当前"&dxy_ii+1&"/"&(allpages+1)&"页"
pagepre=""
pagelast=""
ifdxy_ii>0then
cpage=cint(dxy_ii)
ifcpage<0thencpage=0
ifcpage=1then
cpage1=id&".htm"
else
cpage1=id&"_"&cpage&".htm"
endif
pagepre="<ahref="&cpage1&">上一页</a>"
endif
ifdxy_ii<allpagesthenpagelast="<ahref="&id&"_"&dxy_ii+2&".htm>下一页</a>"
fordxy_i=0toallpages
ifdxy_i=0then
ifdxy_ii=dxy_ithen
alist=dxy_i+1&""
else
alist=alist&"<ahref="&id&".htm>"&dxy_i+1&"</a>"
endif
else
ifdxy_ii=dxy_ithen
alist=alist&(dxy_i+1)&""
else
alist=alist&"<ahref="&id&"_"&dxy_i+1&".htm>"&dxy_i+1&"</a>"
endif
endif
next
pagelist=pagelist1&pagepre&alist&ahlist&pagelast
alist=""
【jb51内容分页函数 原创】相关文章：
★ 数组显示菜单效果
★ ASP 指南
★ 用QuickWAP组件结合ASP建设Wap站点第1/2页
上一篇：
蓝色空间 天气小偷
下一篇：
创力采集程序用到的函数 推荐第1/3页