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