复制代码代码如下:
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=""