为NBArticle更换文本编辑器

各种原因,弄了很久.

 

最后选定了FCKeditor_2.6.7 

 

其他编辑器都存在问题,比如不能上传文件,ewebEditor浏览器支持很差.

 

使用最新的CKeditor没调试成功.

 

NBArticle使用的模板替换技术,需要对调用的函数进行修改.

 Case 1

         ' FCK Editor
             Dim sBasePath
            sBasePath = SystemFolder& " editor/fck_editor/ "

             Dim oFCKeditor
             Set oFCKeditor =  New FCKeditor
            
            oFCKeditor.BasePath = sBasePath
            oFCKeditor.Width=iWindowWidth
            oFCKeditor.Height=iWindowHeight
            oFCKeditor.Value=sValue
            oFCKeditor.Config( " AutoDetectLanguage ") =  False
            oFCKeditor.Config( " DefaultLanguage ")    =  " zh-cn "
            oFCKeditor.Value = sValue
            
            sOutStr=oFCKeditor. CreateHTML( " content ")