ASP删除文章时,需要删除eWebEditor上传文件
VB code
<% '*********************************************** '函数名: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%>