FCKEDITOR Asp下的配置

fckconfig.js:

FCKConfig.SkinPath = FCKConfig.BasePath + 'skins/default/' ; 皮肤
FCKConfig.AutoDetectLanguage = true ;  是否自动检测语言
FCKConfig.DefaultLanguage = 'en' ; 默认语言
FCKConfig.TabSpace = 0 ; 是否在编辑器内使用Tab键
FCKConfig.ToolbarSets["…"] = […] 工具条样式
FCKConfig.FontFormats = ‘…’ 文字格式
FCKConfig.FontNames = ‘…’ 字体
FCKConfig.FontSizes = ‘…’ 文字大小
var _FileBrowserLanguage = 'asp' ;  文件浏览默认语言
var _QuickUploadLanguage = 'asp' ; 快速上传默认语言
FCKConfig.LinkBrowser = true ; 是否显示浏览上传界面
FCKConfig.ImageBrowser = true ;
FCKConfig.FlashBrowser = true ;
FCKConfig.LinkUpload = true ; 是否显示快速上传界面
FCKConfig.ImageUpload = true ;
FCKConfig.FlashUpload = true ;

 

editor/filemanager/connectors/asp文件夹
config.asp:

ConfigIsEnabled = True 是否开启上传功能
ConfigUserFilesPath = "http://www.cnblogs.com/http://www.cnblogs.com/../uploads/"  文件上传目录，相对于该文件夹

commands.asp:
实现上传文件自动改名：
在文件中添加如下语句

dim rannum
dim dtnow
dim getnewfilename
dtnow=now()
randomize
rannum=int(90*rnd)+10
getnewfilename=year(dtnow) & right("0" & month(dtnow),2) & right("0" & day(dtnow),2) & right("0" & hour(dtnow),2) & right("0" & minute(dtnow),2) & right("0" & second(dtnow),2) & rannum

将

sFileName = ouploader.file( "newfile" ).name

改为

sFileName = getnewfilename &"."& split(ouploader.file( "newfile" ).name,".")(1)

 

在asp源程序中引用fckeditor编辑器
首先在asp页面顶端插入服务器端包含语句：

<!--#include file="../fckeditor/fckeditor.asp" -->

然后在表单里面添加以下代码：

Dim oFCKeditor '定义变量
Set oFCKeditor = New FCKeditor '类的初始化
oFCKeditor.BasePath = "/fckeditor/" '定义路径
oFCKeditor.ToolbarSet = "Basic" '定义工具条
oFCKeditor.Width = "100%" '定义高度
oFCKeditor.Height = "400" '定义宽度
oFCKeditor.value = "" '输入框的初始值
oFCKeditor.Create "fckeditor1"

这样就在表单里面创建了一个隐藏的名称为fckeditor1的输入框，可以和其他表单元素一样使用，例如用以下代码取得该输入框的值：

dim content
content= request.form("fckeditor1")

 

如果中文不能正常显示，可在页面头部添加 <%@ codepage=936%>