2008-09-13 11:24:19
fckeditor的官方网站去下载最新版本：
http://www.fckeditor.net/
把下载下来的文件包解压到网站目录中，然后需要对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 = “/dingjun/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 = "Default" '定义工具条
oFCKeditor.Width = "100%" '定义高度
oFCKeditor.Height = "400" '定义宽度
oFCKeditor.value = "" '输入框的初始值
oFCKeditor.Create "fckeditor1"
这样就在表单里面创建了一个隐藏的名称为fckeditor1的输入框，可以和其他表单元素一样使用，例如用以下代码取得该输入框的值：
dim content
content= request.form("fckeditor1")