ASP中FCKEditor的设置技巧

③文件快速上传的一个源文件BUG
以上设置好后，文件浏览和浏览中上传可以顺利进行，但是你会发现“快速上传”不能用。现象就是当选择好本地文件后，点击“上传至服务器”的按钮后没有任何反应。这就是因为fckconfig.js文件中的一个bug所致。
打开fckconfig.js文件，把FCKConfig.QuickUploadLanguage字样的地方，替换成_QuickUploadLanguage，一共要替换三个地方。前者没有定义就使用，所以有错，按代码意图应该和后者的值一样的。

④上传文件名自动更名
FCKeditor不支持中文文件名称，所以我们要让文件存入服务器时更改名称。由于有两个上传的地方，而且所用文件不同，所以两个文件应该同时改，我们先来看看快速上传的文件，打开editor\filemanager\upload\asp\upload.asp，在文件最后添加以下函数：

程序代码
Public Function GetNewFileName()
dim ranNum
dim dtNow
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
End Function

我们用年月日时分秒和两位随机数字来作为文件名，这样既能够分辨出文件上传时间，也不容易重名。
然后仍然是这个文件，找到：

程序代码
' Get the uploaded file name.
sFileName = oUploader.File( "NewFile" ).Name

把它改为：

程序代码
' Get the uploaded file name.
sFileName = GetNewFileName() &"."& split(oUploader.File( "NewFile" ).Name,".")

上面说的是快速上传的文件，而文件浏览中上传则是更改另外一个文件(editor\filemanager\browser\default\connectors\asp\commands.asp)，其修改方法和上面那个文件一样：添加一个函数，修改一行代码。

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

程序代码
<!--#include file="FCKeditor/fckeditor.asp" -->

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

程序代码
' 定义变量
Dim oFCKeditor
' 类的初始化
Set oFCKeditor = New FCKeditor
' 定义路径（默认路径：/FCKeditor/）
oFCKeditor.BasePath="FCKeditor/"
' 定义工具条（默认为：Default）
oFCKeditor.ToolbarSet="Basic"
' 定义宽度（默认宽度：100%）
oFCKeditor.Width="100%"
' 定义高度（默认高度：200）
oFCKeditor.Height=350
' 输入框的初始值
oFCKeditor.Value="这是示例文本。"
' 创建输入框名为：content
oFCKeditor.Create "content"

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

程序代码
Dim content
content=CheckStr(Request.Form("content"))
以上用CheckStr对输入数据进行了检测，原始数据如果包含单引号之类的，那么更新数据库会出错。