使用kingcms5.0中的一些修改

列表页文章的分页单纯的数字给人很不习惯的感觉，参考论坛的一些人提出来了，综合在一起，留下给自己提个醒。
列表页的修改，见广告发布者这里7楼，但是里面的总数没有区别出来，即
pagelist=”<span class=””k_pagelist””><em>”&l5&”</em>”&l4&”</span>”
修改过程
1、打开/page/system/fun.asp

2、搜索到function pagelist(l1,l2,l3,l5)

3 将整个函数
‘pagelist *** Copyright &copy KingCMS.com All Rights Reserved. ***
function pagelist(l1,l2,l3,l5)
if instr(l1,”$”)=0 then exit function
if l5=0 then exit function
dim l4,k,l6,l7,I2
l2=int(l2):l3=int(l3):l5=int(l5)
if l2>3 then
l4=(“<a href=”””&replace(l1,”$”,””)&”””>1 …</a>”)’
end if
if l2>2 then
l4=l4&(“<a href=”””&replace(l1,”$”,l2-1)&”””>‹‹</a>”)
elseif l2=2 then
l4=l4&(“<a href=”””&replace(l1,”$”,””)&”””>‹‹</a>”)
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(“<strong>”&k&”</strong>”)
else
if k=1 then
l4=l4&(“<a href=”””&replace(l1,”$”,””)&”””>”&k&”</a>”)
else
l4=l4&(“<a href=”””&replace(l1,”$”,k)&”””>”&k&”</a>”)
end if
end if
end if
next
if l2<l3 and l3<>1 then
l4=l4&(“<a href=”””&replace(l1,”$”,l2+1)&”””>››</a>”)
end if
if l2<l3-7 then
l4=l4&(“<a href=”””&replace(l1,”$”,l3)&”””>… “&l3&”</a>”)
end if

I2=split(l1,”$”)

‘ l4=l4&”<kbd><input type=””text”” name=””pid”” size=””2″” onkeydown=””if(event.keyCode==13) {window.location='”&htm2js(I2(0))&”‘+this.value+'”&htm2js(I2(1))&”‘; return false;}”” /></kbd>”
pagelist=”<span class=””k_pagelist””><em>”&l5&”</em>”&l4&”</span>”
end function
‘l11l *** Copyright &copy KingCMS.com All Rights Reserved. ***
变更为

‘pagelist *** Copyright &copy KingCMS.com All Rights Reserved. ***
function pagelist(l1,l2,l3,l5)
if instr(l1,”$”)=0 then exit function
if l5=0 then exit function
dim l4,k,l6,l7,I2
l2=int(l2):l3=int(l3):l5=int(l5)
if l2>3 then
l4=(“<a href=”””&replace(l1,”$”,””)&”””>首页</a>”)’
end if
if l2>2 then
l4=l4&(“<a href=”””&replace(l1,”$”,l2-1)&”””>上一页</a>”)
elseif l2=2 then
l4=l4&(“<a href=”””&replace(l1,”$”,””)&”””>上一页</a>”)
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(“<strong>”&k&”</strong>”)
else
if k=1 then
l4=l4&(“<a href=”””&replace(l1,”$”,””)&”””>”&k&”</a>”)
else
l4=l4&(“<a href=”””&replace(l1,”$”,k)&”””>”&k&”</a>”)
end if
end if
end if
next
if l2<l3 and l3<>1 then
l4=l4&(“<a href=”””&replace(l1,”$”,l2+1)&”””>下一页</a>”)
end if
if l2<l3-7 then
l4=l4&(“<a href=”””&replace(l1,”$”,l3)&”””>尾页</a>”)
end if

I2=split(l1,”$”)

‘ l4=l4&”<kbd><input type=””text”” name=””pid”” size=””2″” onkeydown=””if(event.keyCode==13)

{window.location='”&htm2js(I2(0))&”‘+this.value+'”&htm2js(I2(1))&”‘; return false;}”” /></kbd>”
pagelist=”<span class=””k_pagelist””>共<em>”&l5&”</em>条”&l4&”</span>”
end function
‘l11l *** Copyright &copy KingCMS.com All Rights Reserved. ***

文章页的修改
1、打开/page/Article/fun.asp

2、搜索到public function pageslist(l1,l2,l3,l4,l5)

3、找到第一个next,然后在它下面添加下面的代码

if l2<l3 and l2<>1 then
I1=”<a href=”””&pagepath(l1,l2-1)&”””>上一页</a>”&I1& “<a href=”””&pagepath(l1,l2+1)&”””>下一页</a>”
else
if l2=1 then
I1=”<a href=#>上一页</a>”&I1&”<a href=”””&pagepath(l1,l2+1)&”””>下一页</a>”

else
if l2=l3 then
I1=”<a href=”””&pagepath(l1,l2-1)&”””>上一页</a>”&I1& “<a href=#>下一页</a>”
end if
end if
end if

后台版权修改在admin/system/images的fun.js中，非需要就不用去改了。

很多用kingcms都希望在父目录里调用子目录的文章能有下一页的列表，也给出了很多朋友的实例，也试着修改了一下，老是出错，暂时放弃，不过有一个将就点的方法，就是把文章分主副栏目，文章发在子目录，在父目录里以副栏目的形式调用可以实现列表页。这个仅适合文章比较少的企业站用用，多了每篇文章都要选择，可以累死人。

后台部分操作在Firefox无法成功，一、在列表无法移动文章，非要到文章修改，选择其他栏目才可以。二、firefox下含有分页生成无法正常生成分页。

期待kimgcms的PHP版本，Sincs已经放了一次鸽子，希望年前能放出来。