asp如何读取新闻内容中的N张图片地址

<%

Dim Conn

Dim Rs,Sql

Dim ID

Dim Str

Dim regEx,Match,Matches,values

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") '数据库路径，如果不和程序同目录，要加上相对目录，如 database/data.mdb

ID=Request("id")

Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.Open "Select * From [news] Where ID="&ID,Conn,1,1

If Not Rs.EOF Then

Str=Rs("content")

Set regEx = New RegExp '建立正则表达式。

regEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。

regEx.IgnoreCase = True '设置是否区分字符大小写。

regEx.Global = True '设置全局可用性。

Set Matches = regEx.Execute(Str) '执行搜索。

For Each Match in Matches '遍历匹配集合。

Response.Write Match.SubMatches(4)&"."&Match.SubMatches(6)&"<br>"

Next

Else

Response.Write "不存在此ID的新闻"

End If

Rs.Close

Set Rs=Nothing

Conn.Close

Set Conn=Nothing

%>

访问这程序时URL要加上id参数，如：http://www.xxx.com/yyy.asp?id=888