ASP正则判断取出HTML的图片地址的函数

　   用ASP取出HTML里面的图片地址的函数主要原理就是用正则判断的属性。这在采集程序中将非常有用。

　　函数如下：

Function ShowPic(str) 
　　Set objRegExp = New Regexp''设置配置对象  
　　objRegExp.IgnoreCase = True''忽略大小写  
　　objRegExp.Global = True''设置为全文搜索  
　　objRegExp.Pattern = "<img.+?>" 
　　''为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的<img>标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。  
strs=trim(str)  
Set Matches =objRegExp.Execute(strs)''开始执行配置  
For Each Match in Matches  
RetStr = RetStr &getimgs( Match.Value )''执行第二轮的匹配  
Next  
ShowPic = RetStr 
End Function 
Function getimgs(str)  
getimgs=""  
Set objRegExp1 = New Regexp  
objRegExp1.IgnoreCase = True  
objRegExp1.Global = True  
objRegExp1.Pattern = "http://.+?"""''取出里面的地址  
set mm=objRegExp1.Execute(str)  
For Each Match1 in mm  
getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)&"||"''把里面的地址串起来备用  
next  
End Function  
''取得图片内容 
function getHTTPPage(url)  
on error resume next  
dim http  
set http=server.createobject("MSXML2.XMLHTTP")''使用xmlhttp的方法来获得图片的内容  
Http.open "GET",url,false  
Http.send()  
if Http.readystat

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!