显示效果：
修改文件：page\system\fun.asp
可查找functionpagelist(l1,l2,l3,l5)
把从“functionpagelist(l1,l2,l3,l5)”到第一个“endfunction”之间的代码替换
代码：
'pagelist***copyright©kingcms.comallrightsreserved.***
functionpagelist(l1,l2,l3,l5)
ifinstr(l1,"$")=0thenexitfunction
ifl5=0thenexitfunction
diml4,k,l6,l7,i2
l2=int(l2):l3=int(l3):l5=int(l5)
ifl2>3then
l4=("<ahref="""&replace(replace(l1,"$/",""),"$","")&""">首页</a>"&"")'
endif
ifl2>2then
l4=l4&("<ahref="""&replace(l1,"$",l2-1)&""">上一页</a>")
elseifl2=2then
l4=l4&("<ahref="""&replace(l1,"$","")&""">上一页</a>")
endif
fork=l2-2tol2+3
ifk>=1andk<=l3then
ifcstr(k)=cstr(l2)then
l4=l4&(""&"<strong>"&k&"</strong>")
else
ifk=1then
ifinstrrev(l1,"$/")>0then
l4=l4&(""&"<ahref="""&replace(l1,"$/","")&""">"&k&"</a>")
else
l4=l4&(""&"<ahref="""&replace(l1,"$","")&""">"&k&"</a>")
endif
else
l4=l4&(""&"<ahref="""&replace(l1,"$",k)&""">"&k&"</a>")
endif
endif
endif
next
ifl2<l3andl3<>1then
l4=l4&(""&"<ahref="""&replace(l1,"$",l2+1)&""">下一页</a>")
endif
ifl2<l3-7then
l4=l4&(""&"<ahref="""&replace(l1,"$",l3)&""">末页</a>")
endif
i2=split(l1,"$")
pagelist="<spanclass=""k_pagelist"">共"&l5&"条"&l4&"</span>"
endfunction