asp获取内容中所有图片和第一张图片代码

'===================================== 

'如果未获取到可显示为：

'===================================== 

if Get_ImgSrc(str)="" then

response.write "未找到图片"

else

response.write Get_ImgSrc(str)

end if

'===================================== 

'获取内容中所有图片 

'===================================== 

Function Get_ImgSrc(ByVal t0) 

Dim t1,Regs,Matches,Match 

t1="" 

IF Not(IsNull(t0) Or Len(t0)=0) Then 

Set Regs=New RegExp 

Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>" 

Regs.Ignorecase=True 

Regs.Global=True 

Set Matches=Regs.Execute(t0) 

IF Matches.Count>0 Then 

For Each Match In Matches 

IF Left(Match.SubMatches(0),7)<>"http://" Then 

t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>" 

End IF 

Next 

End IF 

End IF 

Get_ImgSrc=t1 

Set Matches=nothing 

Set Regs=nothing 

End Function 

'===================================== 

'获取内容中第一个图片 

'===================================== 

Function Frist_Pic(ByVal t0) 

Frist_Pic="" 

Dim Regs,Matches 

Set Regs=New RegExp 

Regs.Ignorecase=True 

Regs.Global=True 

Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>" 

Set Matches=Regs.Execute(t0) 

IF Regs.test(t0) Then 

Frist_Pic=Matches(0).SubMatches(0) 

End IF 

Set Matches=nothing 

Set Regs=nothing 

End Function