打开ks_cls/kesion.commoncls.asp

增加以下函数

'显示伪静态分页

  Function GetStaticPageList(FileName,PageStyle,CurrPage,TotalPage, ShowTurnToFlag,Extension)

   Dim PageStr, I, J, SelectStr

    If ChkClng(PageStyle)=0 Then PageStyle=1

    Select Case PageStyle

     Case 1

      If CurrPage = 1 And CurrPage <> TotalPage Then

    PageStr = "首页  上一页 <a href=""" & FileName & CurrPage + 1 & Extension & """>下一页</a>  <a href= """ & FileName & TotalPage & Extension & """>尾页</a>"

      ElseIf CurrPage = 1 And CurrPage = TotalPage Then

    PageStr = "首页  上一页 下一页 尾页"

      ElseIf CurrPage = TotalPage And CurrPage <> 2 Then  '对于最后一页刚好是第二页的要做特殊处理

     PageStr = "<a href=""" & FileName & "1" & Extension & """>首页</a>  <a href=""" & FileName & CurrPage - 1 & Extension & """>上一页</a> 下一页  尾页"

      ElseIf CurrPage = TotalPage And CurrPage = 2 Then

     PageStr = "<a href=""" & FileName & "1" & Extension & """>首页</a>  <a href=""" & FileName & "1" & Extension & """>上一页</a> 下一页  尾页"

      ElseIf CurrPage = 2 Then

    PageStr = "<a href=""" & FileName & "1" & Extension & """>首页</a>  <a href=""" & FileName & "1" & Extension & """>上一页</a> <a href=""" & FileName & CurrPage + 1 & Extension & """>下一页</a>  <a href= """ & FileName & TotalPage & Extension & """>尾页</a>"

      Else

    PageStr = "<a href=""" & FileName & "1" & Extension & """>首页</a>  <a href=""" & FileName & CurrPage - 1 & Extension & """>上一页</a> <a href=""" & FileName & CurrPage + 1 & Extension & """>下一页</a>  <a href= """ & FileName & TotalPage & Extension & """>尾页</a>"

      End If

    Case 2

     If CurrPage=1 Then

        PageStr="<font face=webdings>9</font> <font face=webdings>7</font>"

    'ElseIf CurrPage=2 Then

      '  PageStr="<a href=""" & FileName & "1" & Extension & """ title=""首页""><font face=webdings>9</font></a> <a href=""" & FileName & "-" & Extension &""" title=""上一页""><font face=webdings>7</font></a>"

    Else

     PageStr="<a href=""" & FileName &"1"& Extension&""" title=""首页""><font face=webdings>9</font></a> <a href=""" & FileName & CurrPage - 1 & Extension&""" title=""上一页""><font face=webdings>7</font></a> "

    End If

     dim startpage,n

     startpage=1

     if (CurrPage>=10) then startpage=(CurrPage\10-1)*10+CurrPage mod 10+2

   

     For J=startpage To TotalPage

        If J= CurrPage Then

         PageStr=PageStr & " <a href=""#"">" & J &"</a>"

        Else

         PageStr=PageStr & " <a href=""" & FileName & J& Extension&""">" & J &"</a>"

     End If

     n=n+1

     if n>=10 then exit for

     Next

     If CurrPage=TotalPage Then

      PageStr=PageStr & " <font face=webdings>8</font> <font face=webdings>:</font>"

     Else

      PageStr=PageStr & " <a href=""" & FileName & CurrPage + 1& Extension & """ title=""下一页""><font face=webdings>8</font></a> <a href=""" & FileName & TotalPage & Extension& """><font face=webdings>:</font></a> "

     End If

    Case 3

     If CurrPage=1 Then

        PageStr="<font face=webdings>9</font> <font face=webdings>7</font>"

    ElseIf CurrPage=2 Then

        PageStr="<a href=""" & FileName &"1" & Extension & """ title=""首页""><font face=webdings>9</font></a> <a href=""" & FileName & "1"  & Extension & """ title=""上一页""><font face=webdings>7</font></a>"

    Else

     PageStr="<a href=""" & FileName & "1" & Extension & """ title=""首页""><font face=webdings>9</font></a> <a href=""" & FileName & CurrPage - 1 & Extension &""" title=""上一页""><font face=webdings>7</font></a> "

    End If

     If CurrPage=TotalPage Then

      PageStr=PageStr & " <font face=webdings>8</font> <font face=webdings>:</font>"

     Else

      PageStr=PageStr & " <a href=""" & FileName & CurrPage + 1 & Extension & """ title=""下一页""><font face=webdings>8</font></a> <a href=""" & FileName & TotalPage & Extension & """><font face=webdings>:</font></a> "

     End If

    Case 4

        n=0:startpage=1

     pageStr=pageStr & "<table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""right""><tr><td>" & vbcrlf

     if (CurrPage>1) then pageStr=PageStr & "<a href=""" & FileName & CurrPage - 1 & Extension & """ class=""prev"">上一页</a>"

     pageStr=pageStr & "<a href=""" & FileName &"1" & Extension & """ class=""prev"">首 页</a>"

     if (CurrPage>=7) then startpage=CurrPage-5

     if TotalPage-CurrPage<5 Then startpage=TotalPage-10

     If startpage<=0 Then startpage=1

     For J=startpage To TotalPage

        If J= CurrPage Then

         PageStr=PageStr & " <a href=""#"" class=""curr"">" & J &"</a>"

        Else

         PageStr=PageStr & " <a class=""num"" href=""" & FileName & J& Extension&""">" & J &"</a>"

     End If

     n=n+1

     if n>=10 then exit for

     Next

     If TotalPage>10 Then

      If CurrPage=TotalPage Then

      pageStr=pageStr & "<a href=""" & FileName & TotalPage & Extension &""" class=""curr"">..." & TotalPage & "</a>"

      Else

      pageStr=pageStr & "<a href=""" & FileName & TotalPage & Extension &""" class=""num"">..." & TotalPage & "</a>"

      End If

     End If

     if (CurrPage<>TotalPage) then pageStr=PageStr & "<a href=""" & FileName & CurrPage + 1 & Extension &""" class=""next"">下一页</a>"

     pageStr=PageStr & " </td></tr></table>"

    End Select

      

      If CBool(ShowTurnToFlag) = True and pageStyle<>4 Then

      PageStr = PageStr & " 转到：<select name=""page"" size=""1""javascript:window.location=this.options[this.selectedIndex].value;"">"

      For J = 1 To TotalPage

       If J = CurrPage Then

      SelectStr = " selected"

       Else

      SelectStr = ""

       End If

       If J = 1 Then

      PageStr = PageStr & "<option value=""" & FileName & "1" & Extension & """" & SelectStr & ">第" & J & "页</option>"

       Else

      PageStr = PageStr & "<option value=""" & FileName & J & Extension & """" & SelectStr & ">第" & J & "页</option>"

       End If

      Next

      PageStr = PageStr & "</select>"

      End If

       GetStaticPageList=PageStr   

      End Function

老大及时回复了，好开心哟！

我要是个女的，我就飞一个了！