何苦.org - CMS与SEOhttp://www.qgcrvc.tw/热爱互联网,专注搜索引擎营销为主的全网营销 - RainbowSoft Studio Z-Blog 1.8 Devo Build 80201zh-CNCopyright 何苦.org. Some Rights Reserved.Mon, 21 Oct 2019 13:55:04 +0800 kingcms安装在Godaddy文件上传问题heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/117.htmlTue, 30 Mar 2010 04:26:54 +0800http://www.qgcrvc.tw/kingcms/117.html 

 

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

需要修改两个地方:

/你的文件或站点目录/page/system/config.asp
  1. '上传目录   
  2.  const king_upath = "你的文件或站点目录/up_files"  

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

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

将这段代码加在需要加的位置里,然后使用filepath函数就行
  1. Dim filepath,f1,f2   
  2. f1=server.mappath("/")   
  3. f2=server.mappath("fun.asp")   
  4. filepath=replace(right(f2,len(f2)-len(f1)),"\","/")  
  5. Dim reg   
  6. set reg = New RegExp   
  7. reg.pattern = "/\w{1}.\w*/\w*/\w*.asp"  
  8. reg.IgnoreCase =false  
  9. reg.Global = True   
  10. filepath=reg.Replace(filepath,"")  
  11. '上传目录   
  12.  const king_upath = filepath&"up_files" 

这个没写成全局函数,因为可能牵涉要改的函数太多了,?#28909;鏰d模块的ssi也需要修改类似的路径。

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

找到/你的文件或站点目录/admin/system/editor/FCKeditor/editor/filemanager/connectors/asp/config.asp
  1. ' You should look at the settings for each resource type to get the full potential   
  2. Dim ConfigUserFilesPath   
  3. ConfigUserFilesPath = "/你的文件或站点目录/up_files/"  

 

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

自定义一个date函数,格式?#19978;?#35201;的样子
  1. Dim dDate   
  2. dDate = Year(Now) & "-" & Month(Now) & "-" & Day(Now)  

具体用的地方?#28909;鏵ckeditor上传目录的设置

找到/你的文件或站点目录/admin/system/editor/FCKeditor/editor/filemanager/connectors/asp/config.asp;其他格式的上传也可以这样修改
  1. Dim dDate   
  2. dDate = Year(Now) & "-" & Month(Now) & "-" & Day(Now)   
  3.   
  4. ConfigAllowedExtensions.Add "Image""bmp|gif|jpeg|jpg|png"  
  5. ConfigDeniedExtensions.Add  "Image"""  
  6. ConfigFileTypesPath.Add "Image", ConfigUserFilesPath & "image/"&dDate   
  7. ConfigFileTypesAbsolutePath.Add "Image"""  
  8. ConfigQuickUploadPath.Add "Image", ConfigUserFilesPath& "image/"&dDate   
  9. ConfigQuickUploadAbsolutePath.Add "Image"""
  10.  
  11. ConfigAllowedExtensions.Add "Flash", "swf|flv"
  12. ConfigDeniedExtensions.Add "Flash", ""
  13. ConfigFileTypesPath.Add "Flash", ConfigUserFilesPath & "flash/" &dDate
  14. ConfigFileTypesAbsolutePath.Add "Flash", ""
  15. ConfigQuickUploadPath.Add "Flash", ConfigUserFilesPath & "flash/" &dDate
  16. ConfigQuickUploadAbsolutePath.Add "Flash", "" 
  17.  
  18. ............

 

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

 


何苦的测试结果

 

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

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

 

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/117.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=117http://www.qgcrvc.tw/cmd.asp?act=tb&id=117&key=7333edcc
正则表达式--替换网址heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/zhengze-url.htmlFri, 15 May 2009 20:15:42 +0800http://www.qgcrvc.tw/kingcms/zhengze-url.html ([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?

 

替换掉内容中的 网址.

 

可在 DW中执行.

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/zhengze-url.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=92http://www.qgcrvc.tw/cmd.asp?act=tb&id=92&key=3ada5b2f
KingCMS分页链接增?#26377;?#26464;的修改heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/KingCMS_list_code.htmlMon, 23 Mar 2009 02:30:51 +0800http://www.qgcrvc.tw/kingcms/KingCMS_list_code.html问题:KingCMS的列表页页码链接处,链接结尾都不是/结尾,会被当作301处理,在Godaddy的服务器也有问题.

先转贴下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中,修改方法基本一致.

 

有不明白的再来问我~~

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/KingCMS_list_code.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=89http://www.qgcrvc.tw/cmd.asp?act=tb&id=89&key=298ef1ad
KingCMS后台项目列表每页显示条目改进heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/KingCMS_list_number.htmlSun, 22 Mar 2009 22:16:15 +0800http://www.qgcrvc.tw/kingcms/KingCMS_list_number.html  private sub class_initialize()

r_rn=quest("rn",2):if len(r_rn)=0 then r_rn=20
   if int(r_rn)>500 then r_rn=200
   if 500>int(r_rn)>200 then r_rn=200
if 200>int(r_rn)>100 then r_rn=100
if int(r_rn)<10 then r_rn=10
这个是修改之后的
 
if int(r_rn)>100 then r_rn=100
if int(r_rn)<10 then r_rn=10
 
这个是修改之前的.
 
修改的文件名是 page/system/fun.asp
 
I2=array("20","40","100","200","500")
 
在第2560行还增加了  ,"500"
 
这样可以处理了俩问题.
1.之前的KingCMS后台列表中,每页显示200条无效,点完了总是显示每页100条.
2.增加 了一个 每页显示 500条.适合大批量的处理...
]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/KingCMS_list_number.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=88http://www.qgcrvc.tw/cmd.asp?act=tb&id=88&key=7752f4d7
SQL语句跨表复制数据heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/sql-table_2175.htmlTue, 25 Nov 2008 23:07:29 +0800http://www.qgcrvc.tw/kingcms/sql-table_2175.htmlinsert into kingart(arttitle,artcontent,artpath,artdate) select title,content,num,time from dbo_xwdt

从数据表dbo_xwdt中复制四个字段,?#30452;?#21040;数据表kingart中

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/sql-table_2175.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=74http://www.qgcrvc.tw/cmd.asp?act=tb&id=74&key=302c8f4c
Access与MS SQL Server数据库的相互转换heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/access-mssql.htmlMon, 17 Nov 2008 18:38:10 +0800http://www.qgcrvc.tw/kingcms/access-mssql.html一、将Access 数据库数据移植转换为SQL Server 2000
第一步,开启SQLSERVER 2000服务管理,打开“企?#20498;?#29702;器”,?#38470;?#19968;个数据库,名称为“Access数据转换”;
第二步,运行“导入和导出数据”,打开“DTS导入/导出向导”。选择数据源时,有两种选择:“Driver do Microsoft Access(*.mdb)”或“Microsoft Access”(前者所选是的ODBC驱动程序,后者则是微软提供的数据接口),下面作?#30452;?#20171;绍:
如果选择前者“Driver do Microsoft Access(*.mdb)”,需要?#38470;?ldquo;文件数据源”,选择安装数据源的驱动程序为“Driver do Microsoft Access(*.mdb)”,并保存此连接的文件数据源的名称为“db.dsn”。在弹出的“ODBC Microsoft Access安装”对话框中,选择确认要转换的源Access数据库后,返回选择“文件DSN”为“db.dsn”;若选择后者“Microsoft Access”,则相对简单,只需选择确?#26174;碅ccess数据库的路径即可。 第三步,选择目标数据库为“Access数据转换”,在“指定表复制或查询”中选择“从源数据库中复制表和视图”,然后选择审计相关的数据表进行导入/导 出操作。这样就把Access数据导入到SQL SERVER“Access数据转换”数据库?#23567;?br />二、将SQL Server 2000数据库数据移植转换到Access中
第一步,打开ACCESS,?#38470;?#19968;个数据库,命名为“SQL SERVER数据转换”;
第二步,在“文件”?#35828;ブ写?#24320;“获取外部数据à导入”,在“导入”对话框中选择类型为“ODBC数据库()”,即打开“选择数据源”对话框;
第三步,?#38470;?ldquo;文件数据源”,选择安装数据源的驱动程序为“SQL SERVER”,并保存此连接的文件数据源的名称为“Sql server.dsn”,即可打开“创建到SQL SERVER的新数据源”对话框,这将帮助建立一个能用于连接SQL SERVER的ODBC数据源。在此对话框中,选择被连接的SQL SERVER服务器的名称及登陆方式,并且在“更改默认的数据库”下拉列表中选择要进行数据转换的SQL SERVER数据库的名称,此后,测试ODBC数据源是否连接成功,若是,即可进入“导入对象”对话框;
第四步,在“导入对象”对话框的“表”选项卡中选择要导入到ACCESS中的SQL SERVER表,点击“确定”即可将SQL SERVER 2000中数据转换为ACCESS数据格式。

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/access-mssql.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=72http://www.qgcrvc.tw/cmd.asp?act=tb&id=72&key=de6ee3ba
如何在数据库某字段后追加特定文本?heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/access-replace.htmlSat, 15 Nov 2008 10:33:08 +0800http://www.qgcrvc.tw/kingcms/access-replace.htmlupdate gonsfaeqwerggao set num = num + ".htm"

 

access输入sql语句的方法

左边?#35828;ィ?#26597;询
右边,在设计视图?#20889;?#24314;查询
不选择表,直接点关闭
会看到上面?#35828;?#19979;第一项是SQL,点一下,就可以输入sql语句 

 

很?#22235;?#30340;问题,?#34892;?j同学.各位看到的表笑话哦~

 

 

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

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

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

 

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

 

直接在access建立查询,貌似不能执?#20889;?的语句,提示格式不符.

 

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

 

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

 

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/access-replace.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=71http://www.qgcrvc.tw/cmd.asp?act=tb&id=71&key=02112b35
修正KingCMS xml地图bugheku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/KingCMS-xml.htmlWed, 22 Oct 2008 23:36:58 +0800http://www.qgcrvc.tw/kingcms/KingCMS-xml.html继续KingCMS的bug修正。。痛苦ing


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地图日期不正确的错误。

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/KingCMS-xml.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=67http://www.qgcrvc.tw/cmd.asp?act=tb&id=67&key=6a32a932
(转)KingCMS安装在Godaddy修改记录heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/66.htmlMon, 06 Oct 2008 12:45:36 +0800http://www.qgcrvc.tw/kingcms/66.html第一次用Godaddy的时候安装KingCMS的时候遇到问题了.所以加入了KingCMS的群.结果.半年过去了.问题也没解决了.

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

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

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

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

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

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和安全的考?#29301;?#20854;实也算不上seo,只是我不想显示主文件的名字在外面而已,做了一些修改。

首先找到page/system/fun.asp这个文件,打开搜索'inst这个?#22336;?br />大概是在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是可以直接用?#36861;?#38382;二级目录的,所以没什么问题。

但如果使用了AD模块中的{king:ad name="xxxx" type="ssi"}这个标签?#31361;?#26377;问题了,因为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>"

红色部分是我的二级文件夹的名字,其他的也可以加上,但?#20063;?#35797;过iframe jscode js其实都不会有问题。

修改到这结束。

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

 

 

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

在page/system/fun.asp里修改,如有问题欢迎?#33268;?

public property get inst
        dim scriptname,l1,I1,I2,I3,n
        if r_inst="" then

                 'I1=server.mappath("/") 'disabled by xWay
                 scriptname = lcase(request.servervariables("script_name"))
                 I2=lcase(server.mappath("../../"))

                'r_inst=replace(right(I2,len(I2)-len(I1)),"\","/")&"/" 
               
                 I3 = split(trim(I2),"\")
                 l1=ubound(I3)
                 n= instr(scriptname, I3(l1))
                 if n>0 then
                       r_inst = left(scriptname, n +len(I3(l1)))
                 else
                       r_inst = "/"
                 end if
                 '---------------------------------------------
        end if
        inst=r_inst
end property

原文地址:

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

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/66.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=66http://www.qgcrvc.tw/cmd.asp?act=tb&id=66&key=0417650f
{转}KingCMS广告?#35828;?#32534;辑器修改heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/king-ad-fc.htmlMon, 06 Oct 2008 12:36:45 +0800http://www.qgcrvc.tw/kingcms/king-ad-fc.html为了自己更新的方便,还是将KingCMS的编辑器改了一下,找了好几个编辑器,不是传输数据有问题就是不符合XHTML编码,有个不错呢又不能上传图片,而KingCMS自带的FCKeditor编辑器会自动加上<p>和<br />,最后找到了这个精简版本的FCKeditor,改好的效果如下,这个编辑器和KingCMS自带的部分是分开的,也就是说后台无论如何修改编辑器的属性不影响这里。

广告模块编辑器

上传部分的代码是用的最新的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

保存就可以了,这样后台应?#27599;?#20197;选择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)这个函数整段复制出来,去掉中间不要的?#28909;鏲ase"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))'换?#20889;?#30721;
   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/"

修改的话自?#20889;?#24320;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

 

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/king-ad-fc.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=65http://www.qgcrvc.tw/cmd.asp?act=tb&id=65&key=7e3f3061
select随机读取数据以及数据记录随机排序heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/sql-random.htmlMon, 06 Oct 2008 10:02:24 +0800http://www.qgcrvc.tw/kingcms/sql-random.html{king:sql cmd="select top 15 artid,arttitle,artpath,artdescription,artshow from kingart where listid=7 and artshow=1 order by right(cstr(rnd(-int(rnd(-timer())*100+artid)))*1000*Now(),2);"}
  <li><a href="/Symptom/(king:#2/)" title="(king:#3/)">(king:#1/)</a></li>{/king}

做一个笔记,这个记录,是从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  测试通过的.

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/sql-random.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=63http://www.qgcrvc.tw/cmd.asp?act=tb&id=63&key=2d13e068
KingCMS模块文章一键生成.heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/KingCMS-createpage.htmlSat, 20 Sep 2008 23:42:15 +0800http://www.qgcrvc.tw/kingcms/KingCMS-createpage.html从后台目录/Article/index.asp的第555行开始,代码如下

 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

 

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

结果:

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

自定义模块后面文章?#33268;?/p>]]>CMS与SEOhttp://www.qgcrvc.tw/kingcms/KingCMS-createpage.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=62http://www.qgcrvc.tw/cmd.asp?act=tb&id=62&key=94363373 KingCMS,sql标签的一个示例heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/king-sql.htmlThu, 18 Sep 2008 11:24:57 +0800http://www.qgcrvc.tw/kingcms/king-sql.html<ul>{king:sql cmd="select top 70 kup,kid,kc_image,ktitle,kc_urlpath,kdescription from king__link_page where listid=1 and kup=1 and kshow=1 order by kid desc;"}
<li><a href="(king:#4/)" title="(king:#5/)">(king:#3/)</a></li>{/king}</ul>

 

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

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/king-sql.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=61http://www.qgcrvc.tw/cmd.asp?act=tb&id=61&key=6e1becd5
KingCMS列表页显示&quot;不显示&quot;的内容解决办法heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/KingCMS-list.htmlSat, 12 Jul 2008 00:19:31 +0800http://www.qgcrvc.tw/kingcms/KingCMS-list.htmlset rs=conn.execute("select "&sql&" from kingart where artshow=1 and listid="&datalist(0,j)&" or listids like '%,"&datalist(0,j)&",%' order by artup desc,artorder "&jsorder&",artid "&jsorder&";")
'下面一行,是原来的代码,上面一行是?#24405;?#30340;.为了解决列表页面显示设置为"不显示"的文章的问题-by何苦
'  set rs=conn.execute("select "&sql&" from kingart where listid="&datalist(0,j)&" or listids like '%,"&datalist(0,j)&",%' order by artup desc,artorder "&jsorder&",artid "&jsorder&";")

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

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

 

自定义模块的改法:

一般在 250以后,?#28909;?#35828;我这一次新做的一个留言管理模块,字段kshow是设置是否显示的.

那加上一个 kshow=1 and

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

 

2008.11.12更新

自定义模块的永久修改

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

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/KingCMS-list.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=49http://www.qgcrvc.tw/cmd.asp?act=tb&id=49&key=a3ce7b3b
KingCMS修改默认文章名heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/king-article.htmlSun, 06 Jul 2008 23:19:29 +0800http://www.qgcrvc.tw/kingcms/king-article.html前?#38382;?#38388;的几次测试,发现百度对完全拼音的单独目录名收录不是太友好,

有两种可能:

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

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/king-article.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=45http://www.qgcrvc.tw/cmd.asp?act=tb&id=45&key=a727cc5d
kingcms简单修改文章列表路径heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/kingcms-list-url.htmlThu, 19 Jun 2008 01:44:45 +0800http://www.qgcrvc.tw/kingcms/kingcms-list-url.html文章列表中,有  第几页的链接.

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

动手修改程序,加上了这一个.修改了以?#24405;?#20010;地方.

在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发现新问题-------

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

 

实际上,这样是打不开的一个页面.?#28909;?#25481;再说...

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/kingcms-list-url.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=38http://www.qgcrvc.tw/cmd.asp?act=tb&id=38&key=baf200b4
kingcms捕获爬虫原理heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/kingcms-spider.htmlFri, 13 Jun 2008 20:28:11 +0800http://www.qgcrvc.tw/kingcms/kingcms-spider.html网站上线多天,第一批的网站很正常,后台可以看到.而且 ,遇到了第二次更新的时候,也放了出来.

可是,其他的?#27010;?#31449;,百度蜘蛛一直没有来.

6.12的时候,从iis的log里看到百度的蜘蛛陆陆续续访问后?#27010;?#30340;网站.

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

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

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

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/kingcms-spider.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=36http://www.qgcrvc.tw/cmd.asp?act=tb&id=36&key=fd4d189f
[笔记]kingcms5.0文章中关键词自动添加链接heku@heku.org (何苦)http://www.qgcrvc.tw/kingcms/kingcms-keyword.htmlWed, 21 May 2008 20:40:32 +0800http://www.qgcrvc.tw/kingcms/kingcms-keyword.html前些天从白冰那里得到了一个可以在文章中自动添加链接的修改版的kingcms5.0

用了下,感觉很不错.

前几天添加了几篇文章,发现,除了自己定义的链接之外,在  kingsystem表中定义的关键词,也就是网站后台-?#38382;?#35774;置处所定义的关键词,?#19981;?#33258;动添加链接,链接指向到了  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,文章中?#25442;?#32473;自己在 keyword.mdb中定义的关键词自动添加链接.kingsystem表中的关键词将不会自动添加链接..

 

问题解决.

 

]]>
CMS与SEOhttp://www.qgcrvc.tw/kingcms/kingcms-keyword.html#commenthttp://www.qgcrvc.tw/http://www.qgcrvc.tw/feed.asp?cmt=25http://www.qgcrvc.tw/cmd.asp?act=tb&id=25&key=23be63aa
中国斯诺克公开赛决赛
能攻击棋牌游戏的黑客 爱网爱快乐时时 天津时时可以网上买吗 时时彩有啥稳赚买法吗 广东快乐十分免费计划软件手机版 3d怎么玩稳赚不赔 双色球历史开奖数据 七星彩二定谁买 江西时时分析工具 彩票软件稳赚高收益