从数据库中提取图片地址

如数据库content字段存储的内容为：

"<P align=center><IMG style=""WIDTH: 193px; HEIGHT: 175px"" height=285 src=""http://localhost/xun/edit/UploadFile/201074211239952.gif"" width=337 border=0></P>
<P>&nbsp;&nbsp;&nbsp;气象局4日发布暴雨重要天气预报：预计从4日下午到5日夜间，我区有一次暴雨天气，并伴有强雷暴，请做好防范工作。</P>
<P>&nbsp;</P>"

 

现在要把这段内容的图片地址提取出来：

SourceCode=rs("content")

mypic=""

Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<IMG src.+?border=0>"
strs=trim(SourceCode)
Set Matches =objRegExp.Execute(strs)
For Each Match in Matches
mypic =mypic& Match.Value
Next

mypic里面就是所有的图片地址了

这儿提取出来的内容就是：

<IMG style=""WIDTH: 193px; HEIGHT: 175px"" height=285 src=""http://localhost/xun/edit/UploadFile/201074211239952.gif"" width=337 border=0>

 

如果只想提取图片名称：

SourceCode=rs("content")
mypic=""
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "UploadFile/.+?>"
strs=trim(SourceCode)
Set Matches =objRegExp.Execute(strs)
For Each Match in Matches
temppic=Match.Value
temppic=split(temppic,"/")(1)
temppic=trim(split(temppic,"""")(0))
mypic =mypic&temppic
temppic=""
Next

现在提取出来的内容就是：

201074211239952.gif