资讯中心
News
kingcms 分页导航标签美化方法
发布时间：2019-01-22 13:14   您所在的位置： 网站首页 > 新闻资讯 > 建站知识

显示效果：

 
 
修改文件：page\system\fun.asp
 
可查找function pagelist(l1,l2,l3,l5)
 
把从“function pagelist(l1,l2,l3,l5)” 到 第一个“end function”之间的代码替换
 
代码：
 
'pagelist  *** Copyright © 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(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+3
if k>=1 and k<=l3 then
if cstr(k)=cstr(l2) then
l4=l4&("  "&"<strong>"&k&"</strong>")
else
if k=1 then
if instrrev(l1,"$/")>0 then
l4=l4&("  "&"<a href="""&replace(l1,"$/","")&""">"&k&"</a>")
else
l4=l4&("  "&"<a href="""&replace(l1,"$","")&""">"&k&"</a>")
end if
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,"$")
pagelist="<span class=""k_pagelist"">共"&l5&"条  "&l4&"</span>"
end function
本文章由新概念互动原创，如没特殊注明，转载请注明来自：http://www.jianzhan0.com/zhishi/49120.html
上一篇：网页宽度自动适应手机屏幕宽度的实现代码
下一篇：ASPCMS最新版本如何去除后台版权

案例推荐

五洲之星服装营销型网站制作完工

五洲之星服装营销型网站制作完工
上海金娜化工网站建设开发

上海金娜化工网站建设开发
不凡初心化妆品网站制作设计

不凡初心化妆品网站制作设计
耀天机械营销型网站建设开发

耀天机械营销型网站建设开发
上海舍岩仪器网站建设改版

上海舍岩仪器网站建设改版
同济大学建筑设计研究院做网站项目

同济大学建筑设计研究院做网站项目

热点文章

最新文章