asp中获取内容中全部图片与获取内容中第一个图片的代码

发布时间：2023-05-19 15:24:40 所属栏目：Asp教程来源：

导读：用asp获取内容中的图片与获取内容中的第一个图片地址，主要是cms中保存内容中的图片需要用得到，使用的是正则的方法。

复制代码代码如下:

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

'获取内容中

用asp获取内容中的图片与获取内容中的第一个图片地址，主要是cms中保存内容中的图片需要用得到，使用的是正则的方法。

复制代码代码如下:

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

'获取内容中所有图片

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

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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!