手机
当前位置:查字典教程网 >编程开发 >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中使用FSO组件生成HTML页面

一个实用asp分页函数

关于Script的Defer属性 原创

使用类,实现模块化

利用ASP发送和接收XML数据的处理方法

asp+fso在线管理图片功能 原创

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

本人常用的asp代码 原创

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

精品推荐
分类导航