• kingcms修改笔记


    kingcms默认是文章路径是:文章标题/index.htm,一篇文章对应一个文件夹,不利于seo和网站管理,如果想修改成百度空间的文章路径:Item/文章标题.html,修改方法如下:

    修改网页扩展名为html

    打开KingCMS5.1\page\system\config.asp

    将const king_ext = "index.htm"

    修改为const king_ext = "index.html"

    修改文章生成路径

    打开KingCMS5.1\page\Article\fun.asp,将public sub createpage(l1)函数中的

    artpath=pagepath("http://www.cnblogs.com/"&datalist(1,0)&"/"&data(9,i),j)

    替换为artpath=pagepath("http://www.cnblogs.com/"&"Item/"&data(9,i)&"."&split(king_ext,".")(1),j)

    将if king.isfile(data(9,i))=false then artpath=artpath&king_ext这句用单引号注释掉

    ‘if king.isfile(data(9,i))=false then artpath=artpath&king_ext

    修改首页文章超链接

    经过以上修改虽然文章生成路径变了,但首页的文章链接还是系统默认的生成路径,打开KingCMS5.1\page\Article\fun.asp,将function king_tag_article(tag,invalue)函数中的

    king.value "path",encode(t_art.getpath(data(0,i),data(10,i),king.inst&datalist(1,0)&"/"&data(8,i)))

    修改为king.value "path",encode(t_art.getpath(data(0,i),data(10,i),king.inst&"Item/"&data(8,i)&"."&split(king_ext,".")(1)))

    修改文章分页生成路径

    打开KingCMS5.1\page\Article\fun.asp,将public function pagepath(l1,l2)函数中的

    pagepath=I2(1)&"/"&l2&I2(0)

    修改为pagepath=I2(1)&"_"&l2+1&I2(0)

    修改文章分页导航链接

    修改文章分页生成路径后,分页导航链接还是默认的生成路径,打开KingCMS5.1\page\Article\fun.asp,将public sub createpage(l1)函数中的

    king.value "pagelist",encode(pageslist(king.inst&datalist(1,0)&"/"&data(9,i),j,ubound(contents),data(12,i),data(0,i)))

    修改为king.value "pagelist",encode(pageslist(king.inst&"Item/"&data(9,i)&"."&split(king_ext,".")(1),j,ubound(contents),data(12,i),data(0,i)))

    修改文章页“上一页”标签链接

    打开KingCMS5.1\page\Article\fun.asp,将public sub createpage(l1)函数中的

    king.value "nextpage",encode(nextpage(data(0,i),data(11,i),data(1,i),datalist(1,0),tmphtm))

    修改为king.value "nextpage",encode(nextpage(data(0,i),data(11,i),data(1,i),datalist(1,0),tmphtm,datalist(0,0)))

    将private function nextpage(l1,l2,l3,l4,l5)函数修改为private function nextpage(l1,l2,l3,l4,l5,l6),同时将本函数中的

    I1="<a href="""&getpath(rs(3),rs(1),king.inst&l4&"/"&rs(2))&""">"&htmlencode(rs(0))&"</a>"

    修改为I1="<a href="""&getpath(rs(3),rs(1),king.inst&"Item/"&rs(2)&"."&split(king_ext,".")(1))&""">"&htmlencode(rs(0))&"</a><span class=""date"">("&formatdate(rs(4),"yyyy-MM-dd")&"</span>"

    将I1="<script type=""text/javascript"">posthtm('"&king.page&"article/page.asp?action=nextpage','k_nextpage','artid="&l1&"');</script>"

    修改为I1="<a href="""&king.inst&l4&"/"">["&htmlencode(l6)&"]</a>"

    将nextpage="<span id=""k_nextpage"">"&I1&"</span>"

    修改为nextpage=I1

    修改文章页“下一页”标签链接

    打开KingCMS5.1\page\Article\fun.asp,将private function lastpage(l1,l2,l3,l4,l5,l6)函数中的

    I1="<a href="""&getpath(rs(3),rs(1),king.inst&l4&"/"&rs(2))&""">"&htmlencode(rs(0))&"</a>"

    修改为I1="<a href="""&getpath(rs(3),rs(1),king.inst&"Item/"&rs(2)&"."&split(king_ext,".")(1))&""">"&htmlencode(rs(0))&"</a><span class=""date"">("&formatdate(rs(4),"yyyy-MM-dd")&"</span>"

    将lastpage="<span id=""k_lastpage"">"&I1&"</span>"

    修改为lastpage=I1

    交换文章页“上一页”、“下一页”标签

    可能是和开发者的理解不同,“上一页”应该是比当前文章发布时间迟一点的那篇文章,“下一页”应该是比当前文章发布时间早一点的那篇文章,而在kingcms中恰恰相反。打开KingCMS5.1\template\inside\article[page]\default.htm,将{king:lastpage/}和{king:nextpage/}互换即可。

    修改列表页的文章链接

    打开KingCMS5.1\page\Article\fun.asp,将public sub createlist1(l1,l2)函数中的

    king.value "path",encode(getpath(dp.data(0,i),dp.data(10,i),king.inst&listpath&"/"&dp.data(8,i)))

    修改为king.value "path",encode(getpath(dp.data(0,i),dp.data(10,i),king.inst&"Item/"&dp.data(8,i)&"."&split(king_ext,".")(1)))

    修改列表页分页生成路径

    打开KingCMS5.1\page\Article\fun.asp,将public sub createlist1(l1,l2)函数中的

    king.savetofile "http://www.cnblogs.com/"&datalist(2,0)&"/"&pid&"/"&king_ext,outhtm

    修改为king.savetofile "http://www.cnblogs.com/"&datalist(2,0)&"/"&pid&"."&split(king_ext,".")(1),outhtm

    修改列表页导航链接

    打开KingCMS5.1\page\system\fun.asp,将function pagelist(l1,l2,l3,l5)函数中的

    l4=l4&("<a href="""&replace(l1,"$",l2-1)&""">&lsaquo;&lsaquo;</a>")

    修改为l4=l4&("<a href="""&replace(l1,"$/",l2-1)&"."&split(king_ext,".")(1)&""">上一页</a>")

    将l4=l4&("<a href="""&replace(l1,"$","")&""">&lsaquo;&lsaquo;</a>")

    修改为l4=l4&("<a href="""&replace(l1,"$/","")&""">上一页</a>")

    将l4=l4&("<a href="""&replace(l1,"$",k)&""">"&k&"</a>")

    修改为l4=l4&("<a href="""&replace(l1,"$/",k)&"."&split(king_ext,".")(1)&""">"&k&"</a>")

    将l4=l4&("<a href="""&replace(l1,"$",l2+1)&""">&rsaquo;&rsaquo;</a>")

    修改为l4=l4&("<a href="""&replace(l1,"$/",l2+1)&"."&split(king_ext,".")(1)&""">下一页</a>")

    将l4=l4&("<a href="""&replace(l1,"$",l3)&""">... "&l3&"</a>")

    修改为l4=l4&("<a href="""&replace(l1,"$/",l3)&"."&split(king_ext,".")(1)&""">.."&l3&"</a>")

    修改文章评论

    打开KingCMS5.1\page\comment\language\zh-cn.xml,将<guest>Guest</guest>修改为<guest>匿名用户</guest>

    打开KingCMS5.1\page\comment\fun.asp,将public sub create(l1)中的

    king.value "username",encode(kc.lang("common/guest"))

    修改为king.value "username","<span class=""from"">"&encode(kc.lang("common/guest"))&"</span> <span class=""ip"">ip:"&encode(htmlencode(data(3,i)))&"</span>"

    将king.value "quote",encode("<a href=""#k_comment_post""

    修改为king.value "quote",encode("&nbsp;<a href=""javascript:;""

    进入后台,模块管理->评论管理->评论参数,将“循环体模板”修改为:

    {king:comment number="2"}
      <div><span class="postTime">(king:date mode="yyyy-MM-dd hh:mm:ss"/) 发表
    </span><strong>(king:floor/)</strong>(king:username/)</div>
      <p>(king:content/)</p>
      <ul class="operations"><li>(king:good/)</li><li>(king:bad/)</li><li>(king:quote/)</li></ul>
      <div class="line"></div>
    {/king}

    打开KingCMS5.1\template\images\style.css,将/* 评论 */部分的CSS修改为:

    /* 评论 */
    #k_comment{text-align:left;}
    #k_comment div{display:block;clear:both;}
    #k_comment .from{color: #1e50a2;}
    #k_comment .ip{color: #666;}
    #k_comment .postTime { color: #666; float:right;}
    #k_comment .operations {color: #1e50a2; float: right; list-style-type: none;}
    #k_comment .operations li { float: left; padding-left: 1.2em;}
    #k_comment div.line{margin:8px 0;border-top:1px dashed #A6A6A6;}
    #k_comment div strong {margin-right:15px; color: #666;}
    #k_comment p{line-height:22px;margin:5px 0;}
    #k_comment .k_pagelist{clear:both;display:block;}
    #k_comment_post{display:block;clear:both;text-align:left;font-size:14px;}

    修改文章评论分页生成路径

    打开KingCMS5.1\page\comment\fun.asp,将public sub create(l1)中的

    plist=kpagelist("javascript:;"" onclick=""gethtm('"&king.inst&r_path&"/"&I2(0)&"/"&I2(1)&"/$"&"','k_comment')",pid+1,pidcount,length+1)

    修改为plist=kpagelist("javascript:;"" onclick=""gethtm('"&king.inst&r_path&"/"&I2(0)&"_"&I2(1)&"_$"&"','k_comment')",pid+1,pidcount,length+1)

    将king.savetofile "http://www.cnblogs.com/"&r_path&"/"&I2(0)&"/"&I2(1)&"/"&king_ext,plist&tmplist&plist

    修改为king.savetofile "http://www.cnblogs.com/"&r_path&"/"&I2(0)&"_"&I2(1)&"_"&king_ext,plist&tmplist&plist

    将king.savetofile "http://www.cnblogs.com/"&r_path&"/"&I2(0)&"/"&I2(1)&"/"&(pid+1)&"/"&king_ext,plist&tmplist&plist

    修改为king.savetofile "http://www.cnblogs.com/"&r_path&"/"&I2(0)&"_"&I2(1)&"_"&(pid+1)&"."&split(king_ext,".")(1),plist&tmplist&plist

    将king.savetofile "http://www.cnblogs.com/"&r_path&"/"&I2(0)&"/"&I2(1)&"/"&king_ext,"<p>"&lang("common/notcomment")&"</p>"

    修改为king.savetofile "http://www.cnblogs.com/"&r_path&"/"&I2(0)&"_"&I2(1)&"_"&king_ext,"<p>"&lang("common/notcomment")&"</p>"

    将function kpagelist(l1,l2,l3,l5)函数修改为:

    function kpagelist(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>")'
            l4=("<a href="""&replace(l1,"$",king_ext)&""">1 ...</a>")'
        end if
        if l2>2 then
            'l4=l4&("<a href="""&replace(l1,"$",l2-1)&""">&lsaquo;&lsaquo;</a>")
            l4=l4&("<a href="""&replace(l1,"$",(l2-1)&"."&split(king_ext,".")(1))&""">&lsaquo;&lsaquo;</a>")
        elseif l2=2 then
            'l4=l4&("<a href="""&replace(l1,"$","")&""">&lsaquo;&lsaquo;</a>")
            l4=l4&("<a href="""&replace(l1,"$",king_ext)&""">&lsaquo;&lsaquo;</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>")
                        l4=l4&("<a href="""&replace(l1,"$",king_ext)&""">"&k&"</a>")
                    else
                        'l4=l4&("<a href="""&replace(l1,"$",k)&""">"&k&"</a>")
                        l4=l4&("<a href="""&replace(l1,"$",k&"."&split(king_ext,".")(1))&""">"&k&"</a>")
                    end if
                end if
            end if
        next
        if l2<l3 and l3<>1 then
            'l4=l4&("<a href="""&replace(l1,"$",l2+1)&""">&rsaquo;&rsaquo;</a>")
            l4=l4&("<a href="""&replace(l1,"$",(l2+1)&"."&split(king_ext,".")(1))&""">&rsaquo;&rsaquo;</a>")
        end if
        if l2<l3-7 then
            'l4=l4&("<a href="""&replace(l1,"$",l3)&""">... "&l3&"</a>")
            l4=l4&("<a href="""&replace(l1,"$",l3&"."&split(king_ext,".")(1))&""">... "&l3&"</a>")
        end if
        I2=split(l1,"$")
        kpagelist="<span class=""k_pagelist"">"&l4&"</span>"
    end function

    将function king_tag_comment(tag,invalue)函数中的

    I3=t_kc.path&"/"&I2(0)&"/"&I2(1)&"/"&king_ext

    修改为I3=t_kc.path&"/"&I2(0)&"_"&I2(1)&"_"&king_ext

    打开KingCMS5.1\page\comment\index.asp,将sub king_post()函数中的

    I1=I1&"<p><a href=""javascript:;"" onclick=""gethtm('/"&kc.path&"/"&I2(0)&"/"&I2(1)&"/"&king_ext&"','k_comment')"">"&kc.lang("common/raw")&"</a></p>"

    修改为I1=I1&"<p><a href=""javascript:;"" onclick=""gethtm('/"&kc.path&"/"&I2(0)&"_"&I2(1)&"_"&king_ext&"','k_comment')"">"&kc.lang("common/raw")&"</a></p>"

    修正心情投票插件mood.js中的错误

    $("moodinfo"+j).innerHTML = "<span style=\'color: #555555;padding-left: 20px;font-size:16px;'>您看完此刻的感受是! 已有<font color='#FF0000'>"+moodzs+"</font>人表态:</span>";

    修改为$("moodtitle").innerHTML = "<span style=\'color: #555555;padding-left: 20px;font-size:16px;'>您看完此刻的感受是! 已有<font color='#FF0000'>"+moodzs+"</font>人表态:</span>";

    由于这个错误,心情投票只有下面的表情图片,而没有上面的统计数据。

    修改位置导航标签{king:guide/}的解析代码

    默认生成的代码:<a href="/" class="k_guidename">当前位置</a><a href="栏目路径">栏目名称</a> &gt;&gt; 文章标题

    修改后:<a href="/">首页</a> &gt;<a href="栏目路径">栏目名称</a> &gt; 正文

    修改方法:打开KingCMS5.1\admin\system\plugin.asp,将function lIll(l1,invalue)函数中的

    str="<a href=""/"" class=""k_guidename"">"&l2&"</a>"&str

    修改为str="<a href=""/"">"&l2&"</a> &gt; "&str

    打开KingCMS5.1\page\Article\fun.asp,将public sub createpage(l1)函数中的

    king.value "guide",encode(guide(listid)&" &gt;&gt; "&htmlencode(data(2,i)))

    修改为king.value "guide",encode(guide(listid)&" &gt; 正文")

    (未完待续)

    研究这套系统的人,这里给一些参考资料:

    1、http://www.7es.cn/kingcms/kingcms.shtml

    2、http://www.s-un.cn/search.asp?q=kingcms

  • 相关阅读:
    ASP.NET Core 与 .NET Core 演变与基础概述
    Mac 下使用 brew 安装软件
    关于微信支付,支付宝支付与银联支付的异步消息状态
    keytab生成不了
    Exit code from container executor initialization is : 24 ExitCodeException exitCode=24: Configuration file ../etc/hadoop/container-executor.cfg not found.
    Connection broken for id 62, my id = 70, error =
    File system needs to be upgraded. You have version null and I want version 7
    virsh创建和恢复快照
    raw转qcow2
    Freemaker 自定义函数
  • 原文地址:https://www.cnblogs.com/yk25com/p/2304336.html
Copyright © 2020-2023  润新知