仿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