« 內存位置訪問無效@IIS+php環境
(轉)KingCMS安裝在Godaddy修改記錄 »

{轉}KingCMS廣告菜單編輯器修改

為了自己更新的方便,還是將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

 

◎歡迎參與討論,請在這里發表您的看法、交流您的觀點。

抢红包免费试玩 比分直播足球新浪彩 苹果版时时彩计划软件 36选7 股票融资程序 太阳城彩票安全下载 新11选5官网 体彩4场进球 云南11选5开奖结直播 安徽快三 手机最赚钱软件app 69棋牌大厅下载 中大奖后12件事不能做 90篮球比分网 48人中彩票双色球 七乐彩胆拖投注价格表 闲来麻将2元一分微信群