苗景云的博客

kesion科讯分页样式pagenumlist修改

打开KS_Cls/Kesion.Label.CommonCls.asp 文件，查找：以下为分页静态化，大约1861行，然后找到1918行，如下代码：

if (instr(Tp,"{$pagenumlist}")<>0) then

        dim p,n

n=0:startpage=1

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

if TotalPage-I<5 Then startpage=TotalPage-9

If startpage<=0 Then startpage=1

  PageStr=""

For p=startpage To TotalPage

If p= I Then

PageStr=PageStr & " <a href=""#"" class=""Ahover"">" & p &"</a>"

Else

If P=1 Then

PageStr=PageStr & " <a class=""num"" href=""" & HomeLink &""">" & p &"</a>"

Else

PageStr=PageStr & " <a class=""num"" href=""" & LinkUrlFname & "_" & TotalPage-p+1 & FExt &""">" & p &"</a>"

End If

End If

n=n+1

if n>=10 then exit for

Next

Tp = replace(Tp, "{$pagenumlist}", pagestr)

End If