asp獲取html字符串中的文件(圖片，pdf，rar等)

dim reg, str, extStr

str = "<a class=""ke-insertfile"" href='/uploadfiles/file/20140926/1.doc' target=""_blank"">/uploadfiles/file/20140926/1.doc</a><embed src='/uploadfiles/flash/20140926/2.swf' type=""application/x-shockwave-flash"" width=""550"" height=""400"" quality=""high"" /><img class=""ke-insertfile""src=""/uploadfiles/image/20140926/3.png"" title=""百度"" alt=""百度"" align=""left"" height=""50"" width=""50"" />大撒旦撒<img src=""/uploadfiles/image/20140926/4.png"" alt="" height=""147"" width=""308"" /><embed src=""/uploadfiles/media/20140926/5.wma"" type=""video/x-ms-asf-plugin"" width=""550"" height=""400"" autostart=""false"" loop=""true"" /><a class=""ke-insertfile"" href=""/uploadfiles/file/20140926/6.rar"" target=""_blank"">/uploadfiles/file/20140926/6.rar</a>dsa<a href=""http://www.baidu.com"" target=""_blank"">http://www.baidu.com</a>"

reg = "<.*?(?:src|href)\s*=\s*['""](.*?)['""]"
extStr = "gif|jpg|jpeg|png|bmp|swf|flv|mp3|wav|wma|wmv|mid|avi|mpg|asf|rm|rmvb|doc|docx|xls|xlsx|ppt|htm|html|txt|zip|rar|gz|bz2"
Set Regs=New RegExp
Regs.Pattern=reg
'是否區分大小寫，True爲不區分且默認
Regs.Ignorecase=True
'全部匹配還是隻匹配第一個 
Regs.Global=True
Set Matches=Regs.Execute(str)

For Each Match In Matches
	IF Left(Match.SubMatches(0),7)<>"http://" and Left(Match.SubMatches(0),8)<>"https://" Then
		if instr(extStr,right(Match.SubMatches(0),len(Match.SubMatches(0))-InStrRev(Match.SubMatches(0),".")))>0 then
			response.write Match.SubMatches(0) & "<br />"
		end if
	End IF
Next