totalpage then currentpage = totalpagestrtemp =
if showtotal = true thenstrtemp = strtemp & 共 & totalnumber & & strunit & end ifif showmaxperpage = true thenstrurl = joinchar(sfilename) & maxperpage= & maxperpage & &elsestrurl = joinchar(sfilename)end ifif currentpage = 1 thenstrtemp = strtemp & 首页 上一页 elsestrtemp = strtemp & 首页 strtemp = strtemp & 上一页 end ifif currentpage >= totalpage then
strtemp = strtemp & 下一页 尾页elsestrtemp = strtemp & 下一页 strtemp = strtemp & 尾页end ifstrtemp = strtemp & 页次： & currentpage & / & totalpage & 页 if showmaxperpage = true thenstrtemp = strtemp & & strunit & /页elsestrtemp = strtemp & & maxperpage & & strunit & /页end ifif showallpages = true thenif totalpage > 20 thenstrtemp = strtemp & 转到第页elsestrtemp = strtemp & 转到：for i = 1 to totalpagestrtemp = strtemp & if pe_clng(currentpage) = pe_clng(i) then strtemp = strtemp & selected strtemp = strtemp & >第 & i & 页nextstrtemp = strtemp & end ifend ifstrtemp = strtemp &
showpage = strtempend function?>
复制代码