一直没有用到KingCMS的上传功能，突然发现上传不能使用，提示目录没有权限，同样还是目录级别的问题。

需要修改两个地方：

同样多级目录跟着相应增加

因为扩展性不强，每次安装在gd目录一旦改变目录级别就需要修改，于是写了一个小函数

这个没写成全局函数，因为可能牵涉要改的函数太多了，比如ad模块的ssi也需要修改类似的路径。

第二个需要修改的是fckeditor的上传函数

另外就是godaddy上的时间格式和国内主机的格式不一样，使用date()函数的话是这样显示 "7/11/2009" 而不是 "2009-7-11" 如果是作为目录的话就多了很多层级也容易出错，所以要写成这样

具体用的地方比如fckeditor上传目录的设置

原文链接:http://www.s-un.cn/Code/KingCMS-install-on-Godaddy-4.shtml

何苦的测试结果

1.加上了函数以后没法登陆. 大概是我不懂程序的问题...

2.直接修改了路径,上传的图片是可以显示了. 但是图片的路径地址是 带空间完整路径的. (这个不大好说明白,用过Godaddy空间的朋友应该可以理解).   目前的空间用起来倒是没什么问题.  但是换到非Godaddy空间恐怕图片显示还是会有问题.

替换掉内容中的 网址.

可在 DW中执行.

先转贴下Ash的处理总结.

---------我是分割线---------------

找了一下，修改page/system/fun.asp，搜索'pagelist，大概在2684行

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)&""">&lsaquo;&lsaquo;</a>")
 elseif l2=2 then
  l4=l4&("<a href="""&replace(l1,"$","")&"/"">&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>")
    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)&"/"">&rsaquo;&rsaquo;</a>")
 end if
 if l2<l3-7 then
  l4=l4&("<a href="""&replace(l1,"$",l3)&"/"">... "&l3&"</a>")
 end if

 I2=split(l1,"$")
 pagelist="<span class=""k_pagelist""><em>"&l5&"</em>"&l4&"</span>"
end function

---------我是分割线---------------

我之前也做过一个 KingCMS列表页的修改  的笔记.不过是个半吊子工程.没有Ash的这么详实.

按照Ash的修改,今天又发现了一个新问题.

后台项目列表中 /random/index.asp?action=field&listid=1 这样的页面上的 分页链接也是有问题的.第二页会成为

 /random/index.asp?action=field&pid=2&rn=20&listid=1/ 这样的链接样式. Ash给的方法是在/之前加上一个 & 即可.

找到了加的地方.在 admin/OO_public/code/admin/index.asp 中,第340行,改成 

  dp.purl="index.asp?action=field&pid=$&rn="&dp.rn&"&listid="&listid&"&"

这里修改的是 自定义模块的通用代码,至于文章模板的,当然应该在 admin/article/index.asp中,修改方法基本一致.

有不明白的再来问我~~

从数据表dbo_xwdt中复制四个字段,分别到数据表kingart中

access输入sql语句的方法

左边菜单，查询
右边，在设计视图中创建查询
不选择表，直接点关闭
会看到上面菜单下第一项是SQL,点一下，就可以输入sql语句 

很菜鸟的问题,感谢1j同学.各位看到的表笑话哦~

-----------追加内容-------------

批量替换数据库中的部分内容.

UPDATE kingart SET artdescription = replace(artdescription,"SEO","搜索引擎优化");

--------2010.8.30追加--------

直接在access建立查询,貌似不能执行带+的语句,提示格式不符.

改成&符号可以执行.如下:

UPDATE king__baidu_page SET kpath = korder&".htm", korder = kid WHERE kid>5394;

5.修正xml地图的生成

'                outmap=outmap&"<url>"
'                outmap=outmap&"<loc>"&getpath(data(2,i),0,king.siteurl&king.inst&listpath&"/"&data(1,i))&"</loc>"
'                outmap=outmap&"<lastmod>"&formatdate(data(0,i),1)&"</lastmod>"
'                outmap=outmap&"<priority>"&formatnumber((data(4,i)+data(5,i)+2)/4,1,true)&"</priority>"
'                outmap=outmap&"</url>"
                outmap=outmap&"<url>"
                outmap=outmap&"<loc>"&getpath(data(2,i),0,king.siteurl&king.inst&listpath&"/"&data(1,i))&"</loc>"
                outmap=outmap&"<lastmod>"&formatdate(data(0,i),"yyyy-MM-dd")&"</lastmod>"
                outmap=outmap&"<priority>"&formatnumber((data(4,i)+data(5,i)+2)/4,1,true)&"</priority>"
                outmap=outmap&"<changefreq>daily</changefreq>"
                outmap=outmap&"</url>"
                '上面修改的网站地图的生成。by何苦

貌似OO模块的这部分代码跟Article模块的这部分代码是相同的。

直接搜索 <lastmod>找到的这部分代码。在 page/module/fun.asp里边的。

替换即可。

用来修正Google提示的xml地图日期不正确的错误。

前几天.ASH解决了.这里转帖下解决办法.顺便夸下.ash真是蛮强大.哈哈

-----------------------------

启用了一个 Godaddy Deluxe Hosting - Windows的主机

关于Godaddy的安装配置这里就不再叙述了，不明白可以留言。

对于Kingcms，因为程序是可以安装在子目录的，Kingcms会用程序自动探到文件安装的目录。而Godaddy是域名绑定在子目录上，这就造成了比如一个米

http://www.baobao100.cn是绑定在Godaddy FTP空间里的Baobao这个目录，那么用http://www.baobao100.cn/可以正常访问，用http://www.baobao100.cn/baobao/的路径也可以访问。

虽然说不造成特别大的影响但链接全部都变成了http://www.baobao100.cn/baobao/Info/yjzx/132119141.shtml这样的模式而不是http://www.baobao100.cn/Info/yjzx/132119141.shtml这样的模式，包括图片什么的都会多一级目录。

其实问题并不太大，出于对seo和安全的考虑，其实也算不上seo，只是我不想显示主文件的名字在外面而已，做了一些修改。

首先找到page/system/fun.asp这个文件，打开搜索'inst这个字符
大概是在231行这样子

public property get inst
 dim scriptname,l1,I1,I2,I3
 if r_inst="" then
  I1=server.mappath("/")
  I2=server.mappath("../../")
  if instr(I2,I1)>0 then
   r_inst=replace(right(I2,len(I2)-len(I1)),"\","/")&"/"
  else
   error lang("error/virtualdirectory")&"<br/>"
  end if
 end if
 inst=r_inst
end property

将I2修改为 I2=server.mappath("../../../")
修改理由是，原来的是读出站点物理路径然后再读出文件所在的路径，再计算出实际安装的主目录。
我的因为是用的域名绑定二级目录而不是主目录，所以多一级目录，如果在Godaddy里是安装在三级目录那么这个地方也跟着变成 I2=server.mappath("../../../../")根据需要进行修改。

到这里其实问题就修改完成了，因为Godaddy是可以直接用米访问二级目录的，所以没什么问题。

但如果使用了AD模块中的{king:ad name="xxxx" type="ssi"}这个标签就会有问题了，因为ssi是读实际物理路径的，那么就再修改这个文件Page/ad/Fun.asp

打开文件搜索select case lcase(adtype)

大概在146行

   select case lcase(adtype)
   case"js"
    I1="<span id=""k_ad_"&adname&"""></span><script type=""text/javascript"">gethtm('"&king.inst&t_ad.path&"/"&adname&t_ad.ext&"','k_ad_"&adname&"');</script>"
   case"jscode"
    I1="<script type=""text/javascript"" src="""&king.inst&t_ad.path&"/"&adname&t_ad.ext&"""></script>"
   case"ssi"
    I1="<!-- #include virtual="""&king.inst&t_ad.path&"/"&adname&t_ad.ext&""" -->"
   case"iframe"
    I1="<iframe frameborder=""0"" id=""k_ad_"&adname&""" scrolling=""no"" width="""&rs(0)&""" height="""&rs(1)&""" src="""&king.inst&t_ad.path&"/"&adname&t_ad.ext&"""></iframe>"

源文件是这样

替换成

    select case lcase(adtype)
   case"js"
    I1="<span id=""k_ad_"&adname&"""></span><script type=""text/javascript"">gethtm('"&king.inst&t_ad.path&"/"&adname&t_ad.ext&"','k_ad_"&adname&"');</script>"
   case"jscode"
    I1="<script type=""text/javascript"" src="""&king.inst&t_ad.path&"/"&adname&t_ad.ext&"""></script>"
   case"ssi"
    I1="<!-- #include virtual=""/baobao"&king.inst&t_ad.path&"/"&adname&t_ad.ext&""" -->"
   case"iframe"
    I1="<iframe frameborder=""0"" id=""k_ad_"&adname&""" scrolling=""no"" width="""&rs(0)&""" height="""&rs(1)&""" src="""&king.inst&t_ad.path&"/"&adname&t_ad.ext&"""></iframe>"

红色部分是我的二级文件夹的名字，其他的也可以加上，但我测试过iframe jscode js其实都不会有问题。

修改到这结束。

其实可以再加一个参数来计算这个，只是动的就比较多了，先暂时这样用，如果出现其他问题的话就再改。据我的了解，KingCMS读物理路径的地方并不多。

另外再记录一个虚拟目录安装KingCMS的方法

原文地址:

http://www.s-un.cn/Article/program-code/KingCMS-install-on-Godaddy-2008-10-02-133/KingCMS-install-on-Godaddy.shtml

上传部分的代码是用的最新的FCKeditor部分，尽量避免漏洞的威胁吧，至于有没有没空研究了。

先下载这个文件压缩包 解压到KingCMS的Admin/System/editor/目录下，确保直接路径应该是这样
Admin/System/editor/SmallEditor/fckconfig.js
Admin/System/editor/SmallEditor/editor/fckeditor.html
如果自行修改了Admin目录的名称，根据需要自行修改。

现在来修改程序，我提供两种方式的修改吧，打开page/system/fun.asp，搜索 'form_editor
第一种方式是在后台的选择编辑器中可以选择 ，那么找到这个部分

public sub form_editor(l1,l2,l3,l4)
 dim I1,configpath
 if cstr(l4)="0" then l4=""
 Il "<p id=""editor""><label>"&l2&"</label>"
 select case lcase(r_editor)
 case lcase(king_fckeditor_path)
  dim ofckeditor
  set ofckeditor=new fckeditor
'  ofckeditor.toolbarset="Default"
  ofckeditor.basepath="../system/editor/"&king_fckeditor_path&"/"
  ofckeditor.value=l3
  ofckeditor.create l1
  set ofckeditor=nothing
 case"ewebeditor"
 

在case"ewebeditor"上面插入下面这一段

 case"samlleditor"
  dim sfckeditor
  set sfckeditor=new fckeditor
   sfckeditor.toolbarset="Default"
    sfckeditor.Width= "90%"
  sfckeditor.basepath="../system/editor/SmallEditor/"
  sfckeditor.value=l3
  sfckeditor.create l1
  set sfckeditor=nothing

保存就可以了，这样后台应该可以选择samlleditor了，选择后所有的编辑器都变成了这个，然后找到Admin/ad/index.asp

找到这段代码 
<textarea name=""adtext"" rows=""15"" cols=""10"" class=""in5"">"&formencode(data(1,0))&"</textarea>"
 Il king.check("adtext|0|"&encode(ad.lang("check/text")))
将其注释掉，然后加入
Il king.form_editor("adtext",ad.lang("label/text"),data(1,0),"adtext|0|"&encode(ad.lang("check/text")))
就大功告成了

第二种方法其实很简单

将public sub form_editor(l1,l2,l3,l4)这个函数整段复制出来，去掉中间不要的比如case"ewebeditor" 和case"codepress"部分，如下，加入橙色部分

public sub form_smalleditor(l1,l2,l3,l4)
 dim I1,configpath
 if cstr(l4)="0" then l4=""
 Il "<p id=""editor""><label>"&l2&"</label>"
 select case lcase("samlleditor")

 case lcase(king_fckeditor_path)
  dim ofckeditor
  set ofckeditor=new fckeditor
  ofckeditor.toolbarset="Default"
  ofckeditor.basepath="../system/editor/"&king_fckeditor_path&"/"
  ofckeditor.value=l3
  ofckeditor.create l1
  set ofckeditor=nothing
 

 case"samlleditor"
  dim sfckeditor
  set sfckeditor=new fckeditor
   sfckeditor.toolbarset="Default"
    sfckeditor.Width= "90%"
  sfckeditor.basepath="../system/editor/SmallEditor/"
  sfckeditor.value=l3
  sfckeditor.create l1
  set sfckeditor=nothing

 case else'包括html
  configpath="../system/editor"&r_editor&"/config.inc"
  if isexist(configpath) then
   I1=readfile(configpath)'读取内容
   I1=replace(I1,"{king:break/}",hem2js(king_break))'换行代码
   I1=replace(I1,"{king:value/}",formencode(l3))'内容替换
   I1=replace(I1,"{king:name/}",l1)'name替换
   Il I1
  else
   Il "<style type=""text/css"">@import ""../system/editor/html/style.css"";</style>"
   Il "<script type=""text/javascript"">var textbox='"&l1&"';var king_break='"&htm2js(king_break)&"'</script>"
   Il "<script src=""../system/editor/html/htm.js"" type=""text/javascript""></script>"
   Il "<img src=""../system/editor/html/button.gif"" onclick=""javascript:gethtml(this,event);"" onmousemove=""showTitle(this,event);"" id=""k_htmimg""/>"
   Il "<br />"
   Il "<div id=""k_color""><img src=""../system/editor/html/color.gif""  onclick=""javascript:getIndex(this,event);"" onmousemove=""showColor(this,event)""/></div>"
   Il "<iframe style=""width:0;height:0;border:0;"" id=""dtf""></iframe>"
   Il "<textarea name="""&l1&""" rows=""25"" cols=""100"" id=""txt"" onclick=""javascript:storeCaret(this);hiddenDiv();"">"&formencode(l3)&"</textarea>"
   Il "<script type=""text/javascript"">txtContent=document.getElementById(""txt"");dtf=document.getElementById(""dtf"");</script>"
  end if
 end select
 Il king.check(l4)
 Il "</p>"
end sub

 然后打开Admin/ad/index.asp，对应的将

<textarea name=""adtext"" rows=""15"" cols=""10"" class=""in5"">"&formencode(data(1,0))&"</textarea>"
 Il king.check("adtext|0|"&encode(ad.lang("check/text")))
将其注释掉，然后加入
Il king.form_smalleditor("adtext",ad.lang("label/text"),data(1,0),"adtext|0|"&encode(ad.lang("check/text")))

这样广告系统的编辑器就和整站的分开了，要修改就自己动手修改了。

另外附带说两句Fckeditor我打开了上传ConfigIsEnabled = True，关闭的话改成False，设置了上传的目录为ConfigUserFilesPath = "/up-files/image/other/"

修改的话自行打开SmallEditor/editor/filemanager/upload/asp/config.asp进行修改

其他有问题给我留言吧。

原文地址：

http://www.s-un.cn/Article/program-code/KingCMS-Ad-Editor-Change-2008-10-06-138/KingCMS-Ad-Editor-Change.shtml

做一个笔记,这个记录,是从KingCMS的kingart数据表中随机读取15条数据,随机排序.重点就在

order by right(cstr(rnd(-int(rnd(-timer())*100+kid)))*1000*Now(),2)

另外还有种写法 order by rnd(artid) desc;

这个,读取的结果确实也是随机了.可是怎么重新生成几次页面之后,还是显示的顺序不变呢?

一看程序就头大,直接采用第一种写法吧.

对了,忘了说了.我的数据库是 Access的,貌似MSSQL的有的地方会不太一样.

___________________

感慨一下,这几天搞网站搞的,都快偏离seo了,,去当程序员算了嘛

-----------------------------------------

11.21更新

MSSQL中,随机排序的sql函数是 order by newID() desc  测试通过的.

 case"createpage"
  if len(list)>0 then
  '悟空 重新获取listid,将子栏目包括进去,by何苦,在根列表点击下拉-生成列表及文章,可以实现包含子分类在内的模块文章一键生成.
      set rs=conn.execute("select listid from kingart_list where listid in (" & list & ") or listid1 in (" & list & ");")
      list = ""
      if not rs.eof and not rs.bof then
          data = rs.getrows()
          for i=0 to ubound(data,2)
              if len(list)>0 then
                  list = list & "," & data(0, i)
              else
                  list = data(0,i)
              end if
          next
      end if
      rs.close
      set rs = nothing
      '------以上是何苦加的,文章模块可以实现一键生成的代码
   set rs=conn.execute("select artid from kingart where listid in ("&list&");")
    if not rs.eof and not rs.bof then

注释中间的代码是后来添加的,其他地方代码不变.

结果:

在文章管理的根目录下,全选,点击下拉菜单中的 生成列表及文章,即可实现文章模块所有文件的一键生成.

自定义模块后面文章讨论

这个是调用友情链接显示的,其中读取出来的,有一部分字段没有用到.

对了,文件名是page/article/fun.asp 第250行开始.

此方法解决kingcms5.0文章列表页中显示已经设置为隐藏的文章的问题

自定义模块的改法:

一般在 250以后,比如说我这一次新做的一个留言管理模块,字段kshow是设置是否显示的.

那加上一个 kshow=1 and

需要注意的是:自定义模块,在重新生成以后.文件会修改回修改之前的fun.asp.这个文件需要重新修改.

2008.11.12更新

自定义模块的永久修改

修改OO_public/code/page/fun.asp中第290行,增加 kshow=1 and

有两种可能:

1.程序自动实现的,与网页title完全吻合

2.拼音文件夹长度过长.

而KingCMS正好符合了这个特征.普遍反应的对文件页面的收录非常不好.因此,想把默认的目录名改成 ID.htm这种格式.

可以通过修改程序实现.

在admin\Article\index.asp中修改路径为1.htm，2.htm，n.htm的方法
修改：
                        data(11,0)=art.lang("common/pinyin")
为：
                        data(11,0)=king.neworder("kingart","artid")&"."&split(king_ext,".")(1)

修改为md5格式的
                        data(11,0)="MD5"
日期格式生成路径:
            data(11,0)=formatdate(now,2)&"/"&king.neworder("kingart","artid")
自定义发布模块类推

刚做了一个产品展示的自定义模块,代码是这样修改的

   'data(8,0)=kc.lang("common/pinyin")
   data(8,0)=king.neworder("king__product_page","kid")&"."&split(king_ext,".")(1)
   '上面一行是何苦修改的,自定义发布模块king_product,发布新文章时的默认文章名.从默认的拼音格式,换为ID.htm格式

其中,king__product_page是KingCMS数据表的名字,kid是数据表中字段的名字.

2009.2.18新增:

自定义模块彻底修改

修改admin/OO_public/code/admin/index.asp注释掉了687行,增加了688行.

 if king.ismethod or len(kid)=0 then
  dataform=split(sql,",")
  redim data(ubound(dataform),0)
  for i=0 to ubound(dataform)
   data(i,0)=form(dataform(i))
  next
  if king.ismethod=false then
   data(1,0)=1
   'data(8,0)=kc.lang("common/pinyin")
   data(8,0)=king.neworder("king__{OO}_page","kid")&"."&split(king_ext,".")(1)
   '上一行688行新增,注释了687行,修改自定义模块新文章文件名为id.htm
{FDEFAULT}
  end if

原来的时候,链接结束后面没有加  / (斜杠).

动手修改程序,加上了这一个.修改了以下几个地方.

在fun.asp文件的第2704行 加上一个/ 改后代码为

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

在fun.asp文件的第2710行 加上一个/ 改后代码为

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

对了,这个版本是  KingCMS.5.0.1.0508

-------10.11发现新问题-------

由此更改后，在搜索结果页面的页码链接处，也被加入了/作为结束.

实际上,这样是打不开的一个页面.先去掉再说...

可是,其他的几批站,百度蜘蛛一直没有来.

6.12的时候,从iis的log里看到百度的蜘蛛陆陆续续访问后几批的网站.

可是,kc的后台却并没有记录下来.是什么原因呢?难道是需要服务器的某种环境支持?

思考了好久,也在群里跟其他人讨论.对照 iis 的log记录,以及 kc后台的记录.发现.第一次记录的googlebot,是googlebot第一次访问了search.asp,之前访问过js文件,也访问乐htm文件,但是都没有记录.

也就是说:kc是通过asp文件来记录爬虫的爬行记录.

用了下,感觉很不错.

前几天添加了几篇文章,发现,除了自己定义的链接之外,在  kingsystem表中定义的关键词,也就是网站后台-参数设置处所定义的关键词,也会自动添加链接,链接指向到了  page/system/search.asp?  这样的站内搜索结果.

这样下来,一篇文章,字数不到200,却带了七八个链接.

如此下去,觉得似乎并不是太有必要每个关键词都带链接.因此,想控制一下.

再看了老白改后的程序,在 page/system/fun.asp文件中写了自定义的关键词替换链接的程序代码.

程序很烂,只能找替代的解决办法来实现自己的思路.

    '  I1=I5.replace(I1,"<a href="""&l4&"$1"" target=""_blank"" title=""$1"">$1</a>")

把第2826行注释掉.OK,文章中只会给自己在 keyword.mdb中定义的关键词自动添加链接.kingsystem表中的关键词将不会自动添加链接..

问题解决.