编辑器删除内容同时删除内容中的图片

 Dim FileFixType:FileFixType="jpg|gif|png|bmp|jpeg"

'取得文件名称
Function GetFileName(FullPath)
   Dim Pos, PosF
   PosF = 0
   For Pos = Len(FullPath) To 1 Step -1
     select Case Mid(FullPath, Pos, 1)
       Case "/", "/": PosF = Pos + 1: Pos = 0
     End select
   Next
   If PosF = 0 Then PosF = 1
   GetFileName = Mid(FullPath, PosF)
End Function

'取得所有文件路径
Function GetFilepath(Content)
   Set RE=NEW REGEXP
   RE.GLOBAL=TRUE
   RE.Pattern = "(src=)('|"&CHR(34)&"| )?(.[^'| |"&CHR(34)&"]*)(/.)("&FileFixType&")('|"&CHR(34)&"| |>)?" '
   Set Matches = RE.Execute(lcase(Content)) ' 执行搜索。
   For Each Match in Matches
     AllFilepath=AllFilepath&Replace(Replace(SERVER.HTMLENCODE(MATCH),"src=",""),""","")&"|" '"为英文"""号
   Next
   GetFilepath = left(AllFilepath,len(AllFilepath)-1)
End Function

'FSO判断文件是否存在
Function CheckFileName(FilePath)
   dim fs,File
   Set fs = Server.createObject("Scripting.FileSystemObject") ''服务器需要FSO组件
   File = Server.MapPath(FilePath)
   If fs.FileExists(File) Then '判断File文件是否存在
     CheckFileName = 1 '文件已存在
   else
     CheckFileName = 0 '文件不存在
   End If
End Function

'删除文章中的图片
Sub DelFiles(AllFiles)
   AllFilesUrl=replace(AllFiles,""","")
   arrayTemp=Split(AllFilesUrl,"|")
   set FSODel=Server.createObject("Scripting.FileSystemObject")
   For I=0 To (Ubound(arrayTemp))
   aFile=arrayTemp(I)
     if CheckFileName(aFile) = 1 then
       FSODel.deleteFile(server.mapPath(aFile))'执行删除文件
      ELSE
  END IF
   Next
End Sub