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

来源：互联网发布：聚橙网络随车编辑：程序博客网时间：2024/04/29 10:38
dim reg, str, extStrstr = "<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 RegExpRegs.Pattern=reg'是否区分大小写，True为不区分且默认Regs.Ignorecase=True'全部匹配还是只匹配第一个 Regs.Global=TrueSet Matches=Regs.Execute(str)For Each Match In MatchesIF Left(Match.SubMatches(0),7)<>"http://" and Left(Match.SubMatches(0),8)<>"https://" Thenif instr(extStr,right(Match.SubMatches(0),len(Match.SubMatches(0))-InStrRev(Match.SubMatches(0),".")))>0 thenresponse.write Match.SubMatches(0) & "<br />"end ifEnd IFNext
0 0