最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是:   下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：   
pagelist="<span class=""k_pagelist""><em>"&l5&"</em>"&l4&"</span>"   
修改如下，可以直接替换就OK   

pagelist="<span class=""k_pagelist"">共"&l5&"条 第"&l2&"/"&l3&"页 <a href="""&replace(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,l2-1)&""">上一页</a> <a href="""&replace(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,l2+1)&""">下一页</a></span>"   
就可以实现：共5页 第2/5页 上一页 下一页   
第二种修改方法:

'pagelist *** Copyright &copy; KingCMS.com All Rights Reserved. ***
function pagelist(l1,l2,l3,l5)
        if instr(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;)=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,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,"")&""">首页</a>")'
        end if
        if l2>2 then
                l4=l4&("<a href="""&replace(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,l2-1)&""">上一页</a>")
        elseif l2=2 then
                l4=l4&("<a href="""&replace(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,"")&""">上一页</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,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,"")&""">"&k&"</a>")
                                else
                                        l4=l4&("<a href="""&replace(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,k)&""">"&k&"</a>")
                                end if
                        end if
                end if
        next
        if l2<l3 and l3<>1 then
                l4=l4&("<a href="""&replace(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,l2+1)&""">下一页</a>")
        end if
        if l2<l3-7 then
                l4=l4&("<a href="""&replace(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;,l3)&""">尾页</a>")
        end if

        I2=split(l1,"

最近发现kingcms的列表页导航那几个数字太单调了,显示的效果不太理想.在网上搜了几种修改方法,不敢独享,拿来大家一起用!
原来的显示效果是: 下载 (1.38 KB)

2009-5-14 11:35我们想加上"上一页,下一页,总第N页"等导航字样.
第一种修改方法:

kingcms分页代码是在asp程序中写的固定的格式，首先要找到kingcms的page/system/fun.asp文件，大约在2717行位置的代码代码，把：
pagelist=""&l5&""&l4&""
修改如下，可以直接替换就OK

pagelist="共"&l5&"条 第"&l2&"/"&l3&"页 上一页 下一页"
就可以实现：共5页 第2/5页 上一页 下一页
第二种修改方法:

'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=("首页")'
end if
if l2>2 then
l4=l4&("上一页")
elseif l2=2 then
l4=l4&("上一页")
end if
for k=l2-2 to l2+7
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&(""&k&"")
else
if k=1 then
l4=l4&(""&k&"")
else
l4=l4&(""&k&"")
end if
end if
end if
next
if l21 then
l4=l4&("下一页")
end if
if l2 l4=l4&("尾页")
end if

I2=split(l1,"$")

' l4=l4&"

{window.location='"&htm2js(I2(0))&"'+this.value+'"&htm2js(I2(1))&"'; return false;}"" />"
pagelist=""&l5&""&l4&""
end function

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文

quot;)
       
'        l4=l4&"<kbd><input type=""text"" name=""pid"" size=""2""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

把上边的代码直接替换"function pagelist(l1,l2,l3,l5)"这个涵数的过程就ok,回头整个显示效果出来!——本文