FCKeditor删除上传文件的功能[ASP版本]

FCKeditor是一款功能强大的开源在线文本编辑器(DHTML editor)，它使你在web上可以使用类似微软Word 的桌面文本编辑器的许多强大功能。它是轻量级且不必在客户端进行任何方式的安装。FCKeditor兼容 Firefox, Mozilla, Netscape 和 IE。

网上很多其修改细节问题，不过相反很少有添加删除其上传文件功能的文章。
为了一个网站项目需要修改该功能，一下以ASP修改为例，其它版本以此类推，请保留注释！。

第一步找到：fckeditor/editor/filemanager/browser/default/frmresourceslist.html
在该文件添加以下红色部分两个函数
function DelFile(fileUrl){
 if ( fileUrl == null )
 return ;
 oConnector.SendCommand( 'DelFile', 'FileName=' + encodeURI(fileUrl) , DeleteFileCallBack ) ;
}
function DelFileCallBack(fckXml ){
 if (oConnector.CheckError(fckXml ) == 0 )
 window.parent.frames['frmResourcesList'].Refresh() ;
}

接着找到“oListManager.GetFileRowHtml = function( fileName, fileUrl, fileSize )”
在其下面的加入红色部分内容 fileSize +
    ' KB' +
  '<//td><td width="10"> <a href="#" οnclick="if (!confirm(/'确认删除该文件？/')){return false;}else{DeleteFile(/''+ProtectPath( fileUrl )+ '/');}">delete</a><//td><//tr>' ;

第二步找到：fckeditor/editor/filemanager/connectors/asp/commands.asp  | config.asp | connector.asp

在commands.asp加入以下红色部分：

Sub DelFile()
 Dim fso,filename
 filename=Request.QueryString("filename")
 Set fso = CreateObject("Scripting.FileSystemObject")
 filename=Server.MapPath(fileName)
 if fso.FileExists(filename) then
  fso.DeleteFile filename,true
 end if
 set fso=Nothing
 If Err.number>0 Then
  Response.Write("删除文件发生错误!请查看错误信息<br>" & Err.number & "<br>" & Err.Description)
  Err.Clear
  Response.End()
 End If
End Sub

在connector.asp加入以下红色部分：

Select Case sCommand
 Case "GetFolders"
  GetFolders sResourceType, sCurrentFolder
 Case "GetFoldersAndFiles"
  GetFoldersAndFiles sResourceType, sCurrentFolder
 Case "CreateFolder"
  CreateFolder sResourceType, sCurrentFolder
 case "DelFile"
  DelFile
End Select

在config.asp加入以下红色部分：

ConfigAllowedCommands = "QuickUpload|FileUpload|GetFolders|GetFoldersAndFiles|CreateFolder|DelFile"