asp中获取内容中所有图片与获取内容中第一个图

首先是获取内容中的所有图片地址的函数：

代码段：

```asp

'===================================== 获取内容中所有图片 =====================================

Function Get_All_Images(ByVal content)

Dim regex, matches

Dim imageSrcList = ""

If Not IsNull(content) And Len(content) > 0 Then

Set regex = New RegExp

regex.Pattern = "]+src="([^"">]+)">" ' 正则表达式匹配img标签中的src属性

regex.IgnoreCase = True

regex.Global = True

Set matches = regex.Execute(content)

If matches.Count > 0 Then

For Each match In matches

If Left(match.SubMatches(0), 7) <> " Then ' 排除绝对路径的图片地址

imageSrcList = imageSrcList & "" & match.SubMatches(0) & "" & vbCrLf

End If

Next

End If

End If

Get_All_Images = imageSrcList ' 返回包含所有图片地址的字符串

Set matches = Nothing

Set regex = Nothing

End Function '===================================== 获取内容中所有图片 ======================================'

```

接下来是获取内容中第一个图片地址的函数：

代码段：

```asp

'===================================== 获取内容中第一个图片的地址 ======================================'

Function Get_First_Image(ByVal content)

Dim regex, matches

Dim firstImageSrc = ""

Set regex = New RegExp

regex.Ignorecase = True

regex.Global = True

regex.Pattern = "]+src="([^"">]+)">" ' 正则表达式匹配img标签中的src属性

Set matches = regex.Execute(content)

If regex.test(content) Then

firstImageSrc = matches(0).SubMatches(0) ' 获取第一个匹配的src属性值作为第一个图片的地址

End If

Get_First_Image = firstImageSrc ' 返回第一个图片的地址

Set matches = Nothing

Set regex = Nothing

End Function '===================================== 获取内容中第一个图片的地址 ======================================'