Question

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

想实现的功能：
读取数据库中的某个字段，对里面的内容进行分析。然后利用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\=.+?\.(gif|jpg)"
ImgArr=ImgArr+Replace(Replace(Replace(Replace(RegExp_Execute(regstr,ImgPath),"'",""),"""",""),"../",""),"src=","")
Response.Write ImgArr
Response.End

回复 zb_shadow：我的成功，离不开大家的帮忙。我的进步，也是大家的知识一点一滴的积累给我的。这里能回答我问题的都是我的老师，就算，最终问题没有被我所采纳的，大家肯关注并回答我提出的问题，就是对我莫大的帮助。
我很感谢：eiwinter,zb_shadow 这两位最早关注我问题的朋友，衷心的谢谢你们。并希望你们能够为我解决目前所碰到的这个难题。谢谢。

Answer 1

(src|movie|value|href)\s*?=.+?\.(gif|jpg|png|bmp|mp3|rm|wma|mid|wav|midi|ra|avi|mpg|mpeg|asf|asx|mov|exe|hlp|chm|rar|zip|mdb|swf)

你试试这个！~~如果还不好用，把引起不好用的HTML代码发给我，我再调一下。

另：给你一个学正则的好文章：http://unibetter.com/deerchao/zhengzhe-biaodashi-jiaocheng-se.htm

Answer 2

你可以这样改写
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),"'",""),"""",""),"../",""),"value=","")
ImgArr=ImgArr+Replace(Replace(Replace(Replace(RegExp_Execute(regstr3,ImgPath),"'",""),"""",""),"../",""),"href=","")
Response.Write ImgArr
Response.End