SourceCode=rs("content") '提取的数据
mypic=""
Set objRegExp = New Regexp '设置配置对象
objRegExp.IgnoreCase = True '忽略大小写
objRegExp.Global = True '设置为全文搜索
objRegExp.Pattern = "<IMG.+?>"
strs=trim(SourceCode)
Set Matches =objRegExp.Execute(strs)
For Each Match in Matches
mypic =mypic& Match.Value
next
他其实是用了正则表达式