【www.gdgbn.com--元旦图片】

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.gdgbn.com/ps/24775/