何苦.org - CMS與SEOhttp://www.apmnsd.live/熱愛互聯網,專注搜索引擎營銷為主的全網營銷 - RainbowSoft Studio Z-Blog 1.8 Devo Build 80201zh-CNCopyright 何苦.org. Some Rights Reserved.Fri, 12 Jul 2019 03:28:20 +0800 kingcms安裝在Godaddy文件上傳問題heku@heku.org (何苦)http://www.apmnsd.live/kingcms/117.htmlTue, 30 Mar 2010 04:26:54 +0800http://www.apmnsd.live/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" 

這個沒寫成全局函數,因為可能牽涉要改的函數太多了,比如ad模塊的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函數,格式成想要的樣子
  1. Dim dDate   
  2. dDate = Year(Now) & "-" & Month(Now) & "-" & Day(Now)  

具體用的地方比如fckeditor上傳目錄的設置

找到/你的文件或站點目錄/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.直接修改了路徑,上傳的圖片是可以顯示了. 但是圖片的路徑地址是 帶空間完整路徑的. (這個不大好說明白,用過Godaddy空間的朋友應該可以理解).   目前的空間用起來倒是沒什么問題.  但是換到非Godaddy空間恐怕圖片顯示還是會有問題.

 

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

 

替換掉內容中的 網址.

 

可在 DW中執行.

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/zhengze-url.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=92http://www.apmnsd.live/cmd.asp?act=tb&id=92&key=3ada5b2f
KingCMS分頁鏈接增加斜杠的修改heku@heku.org (何苦)http://www.apmnsd.live/kingcms/KingCMS_list_code.htmlMon, 23 Mar 2009 02:30:51 +0800http://www.apmnsd.live/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.apmnsd.live/kingcms/KingCMS_list_code.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=89http://www.apmnsd.live/cmd.asp?act=tb&id=89&key=298ef1ad
KingCMS后臺項目列表每頁顯示條目改進heku@heku.org (何苦)http://www.apmnsd.live/kingcms/KingCMS_list_number.htmlSun, 22 Mar 2009 22:16:15 +0800http://www.apmnsd.live/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.apmnsd.live/kingcms/KingCMS_list_number.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=88http://www.apmnsd.live/cmd.asp?act=tb&id=88&key=7752f4d7
SQL語句跨表復制數據heku@heku.org (何苦)http://www.apmnsd.live/kingcms/sql-table_2175.htmlTue, 25 Nov 2008 23:07:29 +0800http://www.apmnsd.live/kingcms/sql-table_2175.htmlinsert into kingart(arttitle,artcontent,artpath,artdate) select title,content,num,time from dbo_xwdt

從數據表dbo_xwdt中復制四個字段,分別到數據表kingart中

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/sql-table_2175.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=74http://www.apmnsd.live/cmd.asp?act=tb&id=74&key=302c8f4c
Access與MS SQL Server數據庫的相互轉換heku@heku.org (何苦)http://www.apmnsd.live/kingcms/access-mssql.htmlMon, 17 Nov 2008 18:38:10 +0800http://www.apmnsd.live/kingcms/access-mssql.html一、將Access 數據庫數據移植轉換為SQL Server 2000
第一步,開啟SQLSERVER 2000服務管理,打開“企業管理器”,新建一個數據庫,名稱為“Access數據轉換”;
第二步,運行“導入和導出數據”,打開“DTS導入/導出向導”。選擇數據源時,有兩種選擇:“Driver do Microsoft Access(*.mdb)”或“Microsoft Access”(前者所選是的ODBC驅動程序,后者則是微軟提供的數據接口),下面作分別介紹:
如果選擇前者“Driver do Microsoft Access(*.mdb)”,需要新建“文件數據源”,選擇安裝數據源的驅動程序為“Driver do Microsoft Access(*.mdb)”,并保存此連接的文件數據源的名稱為“db.dsn”。在彈出的“ODBC Microsoft Access安裝”對話框中,選擇確認要轉換的源Access數據庫后,返回選擇“文件DSN”為“db.dsn”;若選擇后者“Microsoft Access”,則相對簡單,只需選擇確認源Access數據庫的路徑即可。 第三步,選擇目標數據庫為“Access數據轉換”,在“指定表復制或查詢”中選擇“從源數據庫中復制表和視圖”,然后選擇審計相關的數據表進行導入/導 出操作。這樣就把Access數據導入到SQL SERVER“Access數據轉換”數據庫中。
二、將SQL Server 2000數據庫數據移植轉換到Access中
第一步,打開ACCESS,新建一個數據庫,命名為“SQL SERVER數據轉換”;
第二步,在“文件”菜單中打開“獲取外部數據à導入”,在“導入”對話框中選擇類型為“ODBC數據庫()”,即打開“選擇數據源”對話框;
第三步,新建“文件數據源”,選擇安裝數據源的驅動程序為“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.apmnsd.live/kingcms/access-mssql.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=72http://www.apmnsd.live/cmd.asp?act=tb&id=72&key=de6ee3ba
如何在數據庫某字段后追加特定文本?heku@heku.org (何苦)http://www.apmnsd.live/kingcms/access-replace.htmlSat, 15 Nov 2008 10:33:08 +0800http://www.apmnsd.live/kingcms/access-replace.htmlupdate gonsfaeqwerggao set num = num + ".htm"

 

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;

 

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/access-replace.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=71http://www.apmnsd.live/cmd.asp?act=tb&id=71&key=02112b35
修正KingCMS xml地圖bugheku@heku.org (何苦)http://www.apmnsd.live/kingcms/KingCMS-xml.htmlWed, 22 Oct 2008 23:36:58 +0800http://www.apmnsd.live/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.apmnsd.live/kingcms/KingCMS-xml.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=67http://www.apmnsd.live/cmd.asp?act=tb&id=67&key=6a32a932
(轉)KingCMS安裝在Godaddy修改記錄heku@heku.org (何苦)http://www.apmnsd.live/kingcms/66.htmlMon, 06 Oct 2008 12:45:36 +0800http://www.apmnsd.live/kingcms/66.html第一次用Godaddy的時候安裝KingCMS的時候遇到問題了.所以加入了KingCMS的群.結果.半年過去了.問題也沒解決了.

前幾天.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的方法

在page/system/fun.asp里修改,如有問題歡迎討論.

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.apmnsd.live/kingcms/66.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=66http://www.apmnsd.live/cmd.asp?act=tb&id=66&key=0417650f
{轉}KingCMS廣告菜單編輯器修改heku@heku.org (何苦)http://www.apmnsd.live/kingcms/king-ad-fc.htmlMon, 06 Oct 2008 12:36:45 +0800http://www.apmnsd.live/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

保存就可以了,這樣后臺應該可以選擇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

 

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/king-ad-fc.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=65http://www.apmnsd.live/cmd.asp?act=tb&id=65&key=7e3f3061
select隨機讀取數據以及數據記錄隨機排序heku@heku.org (何苦)http://www.apmnsd.live/kingcms/sql-random.htmlMon, 06 Oct 2008 10:02:24 +0800http://www.apmnsd.live/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.apmnsd.live/kingcms/sql-random.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=63http://www.apmnsd.live/cmd.asp?act=tb&id=63&key=2d13e068
KingCMS模塊文章一鍵生成.heku@heku.org (何苦)http://www.apmnsd.live/kingcms/KingCMS-createpage.htmlSat, 20 Sep 2008 23:42:15 +0800http://www.apmnsd.live/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

 

注釋中間的代碼是后來添加的,其他地方代碼不變.

結果:

在文章管理的根目錄下,全選,點擊下拉菜單中的 生成列表及文章,即可實現文章模塊所有文件的一鍵生成.

自定義模塊后面文章討論

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/KingCMS-createpage.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=62http://www.apmnsd.live/cmd.asp?act=tb&id=62&key=94363373
KingCMS,sql標簽的一個示例heku@heku.org (何苦)http://www.apmnsd.live/kingcms/king-sql.htmlThu, 18 Sep 2008 11:24:57 +0800http://www.apmnsd.live/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.apmnsd.live/kingcms/king-sql.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=61http://www.apmnsd.live/cmd.asp?act=tb&id=61&key=6e1becd5
KingCMS列表頁顯示&quot;不顯示&quot;的內容解決辦法heku@heku.org (何苦)http://www.apmnsd.live/kingcms/KingCMS-list.htmlSat, 12 Jul 2008 00:19:31 +0800http://www.apmnsd.live/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&";")
'下面一行,是原來的代碼,上面一行是新加的.為了解決列表頁面顯示設置為"不顯示"的文章的問題-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以后,比如說我這一次新做的一個留言管理模塊,字段kshow是設置是否顯示的.

那加上一個 kshow=1 and

需要注意的是:自定義模塊,在重新生成以后.文件會修改回修改之前的fun.asp.這個文件需要重新修改.

 

2008.11.12更新

自定義模塊的永久修改

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

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/KingCMS-list.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=49http://www.apmnsd.live/cmd.asp?act=tb&id=49&key=a3ce7b3b
KingCMS修改默認文章名heku@heku.org (何苦)http://www.apmnsd.live/kingcms/king-article.htmlSun, 06 Jul 2008 23:19:29 +0800http://www.apmnsd.live/kingcms/king-article.html前段時間的幾次測試,發現百度對完全拼音的單獨目錄名收錄不是太友好,

有兩種可能:

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.apmnsd.live/kingcms/king-article.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=45http://www.apmnsd.live/cmd.asp?act=tb&id=45&key=a727cc5d
kingcms簡單修改文章列表路徑heku@heku.org (何苦)http://www.apmnsd.live/kingcms/kingcms-list-url.htmlThu, 19 Jun 2008 01:44:45 +0800http://www.apmnsd.live/kingcms/kingcms-list-url.html文章列表中,有  第幾頁的鏈接.

原來的時候,鏈接結束后面沒有加  / (斜杠).

動手修改程序,加上了這一個.修改了以下幾個地方.

在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發現新問題-------

由此更改后,在搜索結果頁面的頁碼鏈接處,也被加入了/作為結束.

 

實際上,這樣是打不開的一個頁面.先去掉再說...

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/kingcms-list-url.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=38http://www.apmnsd.live/cmd.asp?act=tb&id=38&key=baf200b4
kingcms捕獲爬蟲原理heku@heku.org (何苦)http://www.apmnsd.live/kingcms/kingcms-spider.htmlFri, 13 Jun 2008 20:28:11 +0800http://www.apmnsd.live/kingcms/kingcms-spider.html網站上線多天,第一批的網站很正常,后臺可以看到.而且 ,遇到了第二次更新的時候,也放了出來.

可是,其他的幾批站,百度蜘蛛一直沒有來.

6.12的時候,從iis的log里看到百度的蜘蛛陸陸續續訪問后幾批的網站.

可是,kc的后臺卻并沒有記錄下來.是什么原因呢?難道是需要服務器的某種環境支持?

思考了好久,也在群里跟其他人討論.對照 iis 的log記錄,以及 kc后臺的記錄.發現.第一次記錄的googlebot,是googlebot第一次訪問了search.asp,之前訪問過js文件,也訪問樂htm文件,但是都沒有記錄.

也就是說:kc是通過asp文件來記錄爬蟲的爬行記錄.

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/kingcms-spider.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=36http://www.apmnsd.live/cmd.asp?act=tb&id=36&key=fd4d189f
[筆記]kingcms5.0文章中關鍵詞自動添加鏈接heku@heku.org (何苦)http://www.apmnsd.live/kingcms/kingcms-keyword.htmlWed, 21 May 2008 20:40:32 +0800http://www.apmnsd.live/kingcms/kingcms-keyword.html前些天從白冰那里得到了一個可以在文章中自動添加鏈接的修改版的kingcms5.0

用了下,感覺很不錯.

前幾天添加了幾篇文章,發現,除了自己定義的鏈接之外,在  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表中的關鍵詞將不會自動添加鏈接..

 

問題解決.

 

]]>
CMS與SEOhttp://www.apmnsd.live/kingcms/kingcms-keyword.html#commenthttp://www.apmnsd.live/http://www.apmnsd.live/feed.asp?cmt=25http://www.apmnsd.live/cmd.asp?act=tb&id=25&key=23be63aa
抢红包免费试玩