' ============================================'////1、2、3、4、5、6、7、8、9 分页代码。' ============================================'调用代码:'-----------------------------------------------------------------------------'参数说明一下:'TopicCount 总记录集'PCount 总页数'Pama 翻页时本页所带的参数。 如:Pama="&KeyWord=表情&Code=0101&Typeid=12"'Page 当前页码数'最后贴出 TurnPage 过程的代码:'-------------------------------------------------------------------------------- '分页过程Sub TurnPage(TopicCount,PCount,Pama,PageNo) Dim TurnInfo,StartPage,EndPage '进行取分页数,进行循环 if PCount<=9 or PageNo<=5 then StartPage=1 if PCount>9 then EndPage=9 else EndPage=PCount end if else if (PCount-PageNo)>=5 then StartPage=PageNo-4 EndPage=PageNo+4 else EndPage=PCount StartPage=PCount-8 end if end if TurnInfo=""&vbcrlf TurnInfo = TurnInfo&""&vbcrlf TurnInfo=TurnInfo&" 共"&TopicCount&"条 "&PCount&"页 "&vbcrlf TurnInfo=TurnInfo&""&vbcrlf if PageNo<=1 then TurnInfo=TurnInfo&" 首页 "&vbcrlf TurnInfo=TurnInfo&" 上页 "&vbcrlf else TurnInfo=TurnInfo&" 首页 "&vbcrlf TurnInfo=TurnInfo&" 上页 "&vbcrlf end if for i=StartPage to EndPage step +1 if Clng(PageNo)=Clng(i) then TurnInfo=TurnInfo&" "&i&" "&vbcrlf else TurnInfo=TurnInfo&" "&i&" "&vbcrlf end if next if Clng(PageNo)下页 "&vbcrlf TurnInfo=TurnInfo&" 末页 "&vbcrlf else TurnInfo=TurnInfo&" 下页 "&vbcrlf TurnInfo=TurnInfo&" 末页 "&vbcrlf end if response.write TurnInfoEnd Sub使用方法可以参考下。