手机
当前位置:查字典教程网 >编程开发 >ASP教程 >jb51内容分页函数 原创
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中如何判断一个字符是不是汉字

asp:生成静态页面函数

实现对Access数据库表重命名的一段代码

asp最常用的分页函数

jb51生成所有页面的效果+分页生成 原创

能不能在flash动画中给asp传递变量?

随机增加网站点击的一个不错的方法 原创

用QuickWAP组件结合ASP建设Wap站点第1/2页

如何回到先前的页面的方法多中语言 原创

asp中去除内容HTML标签的三个function函数

精品推荐
分类导航