复制代码 代码如下:
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=""
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=""
标签:
jb51内容分页函数
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“jb51内容分页函数 原创”评论...