asp 取得内容中的图

asp 取得内容中的图这是我常用的一段代码,用正则取得文章内容中的图片地址.

Function getphoto(strHTML,key)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = key
'<img src\=.+?\.(gif|jpg|bmp).+?\>
tp=""
Set Matches = objRegExp.Execute(strHTML)
For Each Match in Matches
tp=tp & Match.value
exit for
Next
getphoto=tp
Set objRegExp = Nothing
End Function

本站原创:转载请注明www.111cn.net