仿56分页过程代码，共享给大家
在改版以前的写的程序，发现以前的分页过程，上下分翻有一些丑，而且不有一些不太好用，就决定重写此过程了。发现56版本翻页比较好看，就仿56写了一个。这里代码贴出来给大家共享！（如不好，请大家见谅）
首先Css代码：
---------------------------------------------------------------------
<style type="text/css">
/*分页 css*/
.pag_num {font-size:12px;font-weight:bold;float:right;color:#595959;width:100%;text-align:right;font-size:12px;height:22px;padding:0px 5px;}
.pag_num li{float:right;list-style-type:none;Word-break:normal;}
.pag_num .botton{margin:2px;padding:0 2px;width:40px;color:#595959;height:19px;display:block;font-weight:bold;text-align:center;line-height:19px;border:1px solid #CCCCCC;background-color:#F5F5F5;}
.pag_num li a{width:auto!important;width:12px;color:#595959;height:19px;margin:2px;padding:0 4px!important;padding:0 2px;text-decoration:none;display:block;font-weight:bold;text-align:center;line-height:19px;border:1px solid #CCCCCC;background-color:#F5F5F5;}
.pag_num li a:hover{color:#D12907;border:1px solid #FF785E;background-color:#FFE7E6;}
.pag_num li.now{}
.pag_num li.now a{color:#D12907;border:1px solid #FF785E;background-color:#FFE7E6;}
.pag_num .afont{padding-top:8px;font-size:12px;color:#595959;}
</style>
调用代码：
-----------------------------------------------------------------------------
<%Call TurnPage(TopicCount,PCount,Pama,Page)%>
参数说明一下：
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="<div class='pag_num'>"&vbcrlf
TurnInfo = TurnInfo&"<ul>"&vbcrlf
if Clng(PageNo)<Clng(PCount) then
TurnInfo=TurnInfo&"<li><a href='?Page="&PCount&Pama&"' title='最末页' class='botton'>最末页</a></li>"&vbcrlf
TurnInfo=TurnInfo&"<li><a href='?Page="&PageNo+1&Pama&"' title='下一页' class='botton'>下一页</a></li>"&vbcrlf
else
TurnInfo=TurnInfo&"<li class='botton'>最末页</li>"&vbcrlf
TurnInfo=TurnInfo&"<li class='botton'>下一页</li>"&vbcrlf
end if
for i=EndPage to StartPage step -1
if Clng(PageNo)=Clng(i) then
TurnInfo=TurnInfo&"<li class=now><a href='?Page="&i&Pama&"' title='本页' onClick='return false'>"&i&"</a></li>"&vbcrlf
else
TurnInfo=TurnInfo&"<li><a href='?Page="&i&Pama&"' title='"&i&"'>"&i&"</a></li>"&vbcrlf
end if
next
if PageNo<=1 then
TurnInfo=TurnInfo&"<li class='botton'>上一页</li>"&vbcrlf
TurnInfo=TurnInfo&"<li class='botton'>第一页</li>"&vbcrlf
else
TurnInfo=TurnInfo&"<li><a href='?Page="&PageNo-1&Pama&"' title='上一页' class='botton'>上一页</a></li>"&vbcrlf
TurnInfo=TurnInfo&"<li><a href='?Page=1"&Pama&"' title='第一页' class='botton'>第一页</a></li>"&vbcrlf
end if
TurnInfo=TurnInfo&"<li class=afont>共"&TopicCount&"记录 共"&PCount&"页</li>"&vbcrlf
TurnInfo=TurnInfo&"</ul></div>"&vbcrlf
response.write TurnInfo
End Sub
没人支持一下？
