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