这是一个关于翻页制作的函数,放在page.inc里面,主要用于数据量不是非常大的数据库,其中函数中的HTML格式可以自己更改。 <% ''文件名称:page.inc ''功能:处理数据翻页的函数 ''作者:天地无用 Sub ShowPageBar(TotalPage,CurPage,strUrl) ''参数TotalPage:整个页数 ''参数CurPage:当前页数 ''参数strUrl:翻页使用的连接地址 DIM strPage CurPage=GetValidPageNO(TotalPage,CurPage) Response.Write "<TABLE WIDTH=''100%''>" Response.Write "<TR><td width=''100%'' align=''right''>" Response.Write "页数:" & CurPage & "/" & TotalPage & " " IF InSTR(strUrl,"?")=0 THEN strPage="?Page=" ELSE strPage="&Page=" END IF IF Curpage>1 THEN Response.Write "<a href=" & strUrl &strPage&"1>第一页</a>|" ELSE Response.Write "第一页|" END IF IF CurPage>=2 THEN Response.Write "<a href=" & strUrl & strPage &CurPage-1&">上一页</a>|" ELSE Response.Write "上一页|" END IF IF cInt(CurPage)<cInt(TotalPage) THEN Response.Write "<a href=" & strUrl & strPage &CurPage+1&">下一页</a>|" ELSE Response.Write "下一页|" END IF IF cInt(CurPage) <>cInt(TotalPage) THEN Response.Write "<a href=" & strUrl & strPage & TotalPage&">最后一页</a>" ELSE Response.Write "最后一页" END IF Response.Write "</TD></tr></table>" END SUB Function GetValidPageNo(PageCount,CurPage) Dim iPage iPage=CurPage IF cInt(CurPage)<1 THEN iPage= 1 END IF IF cInt(iPage) > cInt(PageCount) THEN iPage= PageCount
|