打开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