<% function showpage(totalnumber,maxperpage,filename) dim n, i if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "" response.write "

" if CurrentPage<2 then response.write "共有 "&totalnumber&" 篇文章 | 首页 | 上一页 | " else response.write "共有 "&totalnumber&" 篇文章 | 首页 | " response.write "上一页 | " end if if n-currentpage<1 then response.write "下一页 | 尾页 | " else response.write "" response.write "下一页 | 尾页 | " end if response.write "页次："&CurrentPage&"/"&n&"页 | " response.write ""&maxperpage&"篇页" response.write "

" %>