asp中獲取內容中所有圖片與獲取內容中第一個圖片的代碼

　　復制代碼 代碼如下:

　　=====================================
獲取內容中所有圖片
=====================================
Function Get_ImgSrc(ByVal t)
Dim tRegsMatchesMatch
t=
IF Not(IsNull(t) Or Len(t)=) Then
Set Regs=New RegExp
RegsPattern=<img[^>]+src=([^>]+)[^>]*>
RegsIgnorecase=True
RegsGlobal=True
Set Matches=RegsExecute(t)
IF MatchesCount> Then
For Each Match In Matches
IF Left(MatchSubMatches())<>// Then
t=t&<option value=&MatchSubMatches()&>&MatchSubMatches()&</option>
End IF
Next
End IF
End IF
Get_ImgSrc=t
Set Matches=Nothing
Set Regs=Nothing
End Function

=====================================
獲取內容中第一個圖片
=====================================
Function Frist_Pic(ByVal t)
Frist_Pic=
Dim RegsMatches
Set Regs=New RegExp
RegsIgnorecase=True
RegsGlobal=True
RegsPattern=<img[^>]+src=([^>]+)[^>]*>
Set Matches=RegsExecute(t)
IF Regstest(t) Then
Frist_Pic=Matches()SubMatches()
End IF
Set Matches=Nothing
Set Regs=Nothing
End Function

From:http://tw.wingwit.com/Article/program/Web/201405/30991.html