使用FCKEditor的设置技巧(ASP篇)(2)

程序代码
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,".")

上面说的是快速上传的文件，而文件浏览中上传则是更改另外一个文件(editorfilemanagerrowserdefaultconnectorsaspcommands.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对输入数据进行了检测，原始数据如果包含单引号之类的，那么更新数据库会出错。