fckeditor添加文件删除功能～！

来源：互联网发布：软件工程硕士在职学费编辑：程序博客网时间：2024/05/22 20:42

这是一个网上摘录的方法，可是后来经过我的修改才成功了。。请注意一下蓝色字哦。在我本机测试成功。

第一步找到：fckeditor/editor/filemanager/browser/default/frmresourceslist.html
在该文件添加以下红色部分两个函数
function DelFile(fileUrl){//080627 blog.93so.com or 93so.com/blog
if ( fileUrl == null )
return ;
oConnector.SendCommand( 'DelFile', 'FileName=' + encodeURI(fileUrl) , DelFileCallBack) ;
}
function DelFileCallBack(fckXml ){//080627 blog.93so.com or 93so.com/blog
if (oConnector.CheckError(fckXml ) == 0 )
window.parent.frames['frmResourcesList'].Refresh() ;
}
接着找到“oListManager.GetFileRowHtml = function( fileName, fileUrl, fileSize )”
在其下面的加入红色部分内容 fileSize +
' KB' +
  '<//td> <td width="10"> <a href="#" onclick="DelFile(/''+ProtectPath( fileUrl )+'/')">delete</a><//td> <//tr>' ;
第二步找到：fckeditor/editor/filemanager/connectors/asp/commands.asp  | config.asp | connector.asp
在commands.asp加入以下红色部分：
Sub DelFile()'080627 blog.93so.com or 93so.com/blog
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"'080627 blog.93so.com or 93so.com/blog
   DelFile
End Select
在config.asp加入以下红色部分：
ConfigAllowedCommands = "QuickUpload|FileUpload|GetFolders|GetFoldersAndFiles|CreateFolder|DelFile"