ASP删除文章时，需要删除eWebEditor上传文件

<%

'***********************************************

'函数名：getPicUrl

'作  用：获得信息里的图片地址

'参  数：str  ----信息

'***********************************************

function getPicUrl(str)

dim content,regstr,url

content=str&""

'regstr="src=.+?.(gif|jpg|bmp|doc)"

regstr="UploadFiles/.+?.(gif|jpg|bmp|doc)"

'url=Replace(Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""",""),"src=","")

url=Replace(Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""",""),"/UploadFiles/","")

getPicUrl=url

end function

Function RegExp_Execute(patrn, strng)

Dim regEx, Match, Matches,values '建立变量。

Set regEx = New RegExp '建立正则表达式。

regEx.Pattern = patrn '设置模式。

regEx.IgnoreCase = true '设置是否区分字符大小写。

regEx.Global = True '设置全局可用性。

Set Matches = regEx.Execute(strng) '执行搜索。

For Each Match in Matches '遍历匹配集合。

values=values&Match.Value&","

Next

RegExp_Execute = values

End Function

'***********************************************

'函数名：DeleteFile

'作  用：删除文件

'参  数：file  ----文件路径

'***********************************************

Function DeleteFile(file)

dim fso

Set fso = CreateObject("scripting.filesystemobject")

'if fso.fileExists(file) then

fso.DeleteFile server.MapPath(file)

'Else

' response.Write(" 文件不存在！"）

'end if

Set fso = nothing

End Function

%>

<%

iii=0

typeid=request("typeid")

pageon=request("pageon")

type_name=request("typename")

selectcount=request("selectcount")

for ii=1 to selectcount

id=request("cid"&ii)

if id<>"" then

'***********************************************

'函数名：Delete

'作  用：删除文件

'参  数：file  ----文件路径

'***********************************************

set rsD=server.CreateObject("adodb.recordset")

sqlD = "select * from content_table where id = "&id&""

rsD.open sqlD,con,1,3

if rsD.bof and rsD.eof then

Alert 1,"错误的参数!",""

response.End()

else

dim picUrl,picUrl1

dim picUrlArray

dim x,y

picUrl = getPicUrl(rsD("content"))

'删除形象照片代码开始

if rsD("prdPic")<>"" then

picUrl1 = replace(rsD("prdPic"),"../","/")

DeleteFile(picUrl1)

'response.Write("不为空")

end if

'删除形象照片代码结束

if picUrl <> "" then

picUrl = left(picUrl,len(picUrl)-1)

picUrlArray = split(picUrl,",")

for x = 0 to ubound(picUrlArray)

if instr(picUrlArray(x),"/UploadFiles/") > 0 then

DeleteFile(picUrlArray(x))

end if

next

end if

rsD.delete

end if

rsD.close

strSQL="delete from content_Table where id ="&id

CmdBegin adcmdtext,strSQL

CmdExec()

iii=1%>

<%

end if

next

if iii=1 then%>

<script>

alert("已永久删除！")

location.href="info.asp?typeid=<%=typeid%>&pageon=<%=pageon%>&typename=<%=type_name%>"

</script>

<%else%>

<script>

alert("删除失败！")

history.back()

</script>

<%end if%>