PJ博客实现远程图片自动上传

Tue, 15 Jul 2008 09:18:07 +0000

    由于需要经常转载一些带图片的文章，可直接复制过来，远程地址容易失效，用UBB和FCK都不能实现远
程图片保存本地功能，像我这种习惯转载的人来说是不能忍受的。于是决定动手更换fck为ewebeditor.

1.下载ewebeditor,这里我用的是ewebeditor4.4完全版。用过什么4.6精简版和所谓的4.8版都出现远程文件自动上传乱码的问题。关于ewebeditor4.4完全版，到网上搜索很容易下载到或者下载下方的附件,解压后，把ewebeditor文件夹（注意是ewebeditor,不是改为此文件夹名）放到网站根目录下。
附件下载：ewebeditor4.4完全版

2.没有更改过blogpost.asp和blogedit.asp的可以直接下载附件直接覆盖即可，已经做过其它更改的，可以参照以下方法手动更改。

附件下载：已修改的文件

更改过的可以按照下面的方法修改:
a.更改发帖页面blogpost.asp,共计更改四处。
第一处：编辑器选择
原文件：
UBBeditor

          FCKeditor
更改为：


                UBBeditor


                FCKeditor


                Ewebeditor

第二处：发表内容区

原文件：
if log_editType=0 then
         Dim sBasePath
         sBasePath = "fckeditor/"
         Dim oFCKeditor
         Set oFCKeditor = New FCKeditor
         oFCKeditor.BasePath = sBasePath
         oFCKeditor.Config("AutoDetectLanguage") = False
         oFCKeditor.Config("DefaultLanguage")    = "zh-cn"
         oFCKeditor.Value = ""
         oFCKeditor.Create "Message"
    else
    UBB_TextArea_Height="200px;"
    UBB_AutoHidden=False
  UBBeditor("Message")
   end if

更改为：

if log_editType=0 then %>


         <%
    else
    UBB_TextArea_Height="200px;"
    UBB_AutoHidden=False
  UBBeditor("Message")
   end if

第三处：编辑摘要区
原文件：

<%
              if log_editType=0 then
                 Dim oFCKeditor1
                 Set oFCKeditor1 = New FCKeditor
                 oFCKeditor1.BasePath = sBasePath
                 oFCKeditor1.Height="150"
                 oFCKeditor1.ToolbarSet="Basic"
                 oFCKeditor1.Config("AutoDetectLanguage") = False
                 oFCKeditor1.Config("DefaultLanguage")    = "zh-cn"
                 oFCKeditor1.Value = ""
                 oFCKeditor1.Create "log_Intro"
              else
            %>


更改为：

<%
              if log_editType=0 then
                       %>


     <%
              else
            %>

第四处：附件上传区

原文件：

              附件上传:



更改为：
<% if log_editType<>0 then %>

              附件上传:


            <%end if%>

b.修改postedit.asp文件，共三处
第一处：

原文件：
if log_editType=0 then
          Dim sBasePath
          sBasePath = "fckeditor/"
          Dim oFCKeditor
          Set oFCKeditor = New FCKeditor
          oFCKeditor.BasePath = sBasePath
          oFCKeditor.Config("AutoDetectLanguage") = False
          oFCKeditor.Config("DefaultLanguage")    = "zh-cn"
          oFCKeditor.Value = UnCheckStr(lArticle.logMessage)
          oFCKeditor.Create "Message"
     else
      UBB_TextArea_Height="200px;"
     UBB_AutoHidden=False
      UBB_Msg_Value=UBBFilter(UnCheckStr(lArticle.logMessage))
      UBBeditor("Message")
    end if

更改为：
if log_editType=0 then %>


    <%
     else
      UBB_TextArea_Height="200px;"
     UBB_AutoHidden=False
      UBB_Msg_Value=UBBFilter(UnCheckStr(lArticle.logMessage))
      UBBeditor("Message")
    end if

第二处：
原文件：

<%
               if log_editType=0 then
                  Dim oFCKeditor1
                  Set oFCKeditor1 = New FCKeditor
                  oFCKeditor1.BasePath = sBasePath
                  oFCKeditor1.Height="150"
                  oFCKeditor1.ToolbarSet="Basic"
                  oFCKeditor1.Config("AutoDetectLanguage") = False
                  oFCKeditor1.Config("DefaultLanguage")    = "zh-cn"
                  oFCKeditor1.Value = UnCheckStr(lArticle.logIntro)
                  oFCKeditor1.Create "log_Intro"
               else
             %>

             <%
               end if

更该为：
<% if log_editType=0 then %>

                  <%
               else
             %>

             <%
               end if

第三处：
原文件：


               附件上传:



更改为：
<% if log_editType<>0 then %>

               附件上传:


<%end if%>

自己把代码中包含ewebeditor/ewebeditor.htm?id=log_Intro&style=mini字符的修改为自己ewebeditor的路径,和默认的风格...
关于上传文件的路径最好设为attachments文件夹，可以在pj的后台进行附件管理。方法可以参照ewebeditor的使用方法。
到此全部修改结束......

[评论] PJ博客实现远程图片自动上传

Thu, 01 Jan 1970 00:00:00 +0000

静怡家园

PJ博客实现远程图片自动上传

[评论] PJ博客实现远程图片自动上传