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

最新下载

热门教程

asp 从html里取得所有图片地址

时间:2010-05-19 编辑:简简单单 来源:一聚教程网

Dim str
str ="从html里取得img标签 fdafdafdajk "
if str <> ""  then
 response.write getphoto( str )
end if


Function getphoto(strHTML) '从html里取得img标签
  Dim objRegExp, Match, Matches
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = ""
  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
%>
http://www.111com.net/1999/xhtml">


无标题文档


 

热门栏目