如数据库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> 气象局4日发布暴雨重要天气预报:预计从4日下午到5日夜间,我区有一次暴雨天气,并伴有强雷暴,请做好防范工作。</P>
<P> </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