jb51内容分页函数 原创

allpages=ubound(contentarray)
for dxy_ii=0 to allpages
pagelist1="当前"dxy_ii+1"/"(allpages+1)"页nbsp;"
pagepre=""
pagelast=""
if dxy_ii>0 then
cpage=cint(dxy_ii)
if cpage0 then cpage=0
if cpage=1 then
cpage1=id".htm"
else
cpage1=id"_"cpage".htm"
end if
pagepre="a href="cpage1">上一页/a>nbsp;"
end if
if dxy_iiallpages 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>nbsp;"
    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>nbsp;"
    end if
end if
next
pagelist=pagelist1pageprealistahlistpagelast
alist=""