ASP高手都请进来,有点难度的挑战,满意的加分!!

来源:百度知道 编辑:UC知道 时间:2024/06/18 18:11:43
想实现的功能:
读取数据库中的某个字段,对里面的内容进行分析。然后利用FSO删除里面对应地址中的文件。(注意:文件可能是:图片文件,可执行文件,视频或音频文件)

我现在已经实现了用正则分析出图片地址。并利用FSO来删除对应图片。
但由于那正则有一定的局域性,只删除图片,无法删除其他文件。恳请高手献招。谢谢。

为了分析方便,我将文章中各文件的地址关键字贴出来,请各位高手帮忙看看,谢谢。

图片
<IMG src=""文件存放路径/图片名.jpg""

SWF
VALUE=""文件存放路径/动画名.swf""

MP3或其他音频文件
<EMBED src=文件存放路径/歌曲名.swf

文件下载
<A href=""文件存放路径/文件名.exe""

这些地址是用Ewebeditor2.8 编辑器 文章存进数据库后产生的。。需要做测试的请下载ewebeditor 2.8 测试。。谢谢。
我用的正则是
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
ImgPath=Rs("X_Content")
regstr="src&#

你可以这样改写
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

ImgPath=LCase(Rs("X_Content"))
regstr="src\=.+?\.(gif|jpg|swf|rm|rmvb|mp3|wma|wmv)"
regstr2="value\=.+?\.(swf)"
regstr3="href\=.+?\.(exe)"

ImgArr=ImgArr+Replace(Replace(Replace(Replace(RegExp_Execute(regstr,ImgPath),"'",""),"""",""),"../",""),"src=","")
ImgArr=ImgArr+Replace(Replace(Replace(Replace(RegExp_Execute(regstr2,ImgPath),"'",""),"""",""),"../","&qu