高分悬赏网站分页功能的代码！

来源：百度知道 编辑：UC知道 时间：2024/05/14 09:12:30
就是一个版面的分页功能。好的话再追加分数。在线等。。。。。急啊。。有意的HI我！！！！
错了。不好意思哈。是文章的分页代码。急了！！高手帮帮忙啊。。好的再加200分！

' ============================================
'////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