一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp 取得内容中的图

时间:2008-04-24 编辑:简简单单 来源:一聚教程网

 

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

Function getphoto(strHTML,key)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = key
'
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.111com.net

热门栏目