jb51内容分页函数原创

181 阅读 0 评论 120 点赞

我是靠谱客的博主殷勤香水，最近开发中收集的这篇文章主要介绍jb51内容分页函数原创，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

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=""