asp文本编辑器/数据库中提取图片

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

他其实是用了正则表达式<% Function RegExp_Execute(patrn, strng) Dim regEx, Match, Matches,values '建立变量。 Set regEx = New RegExp '建立正则表达式。 regEx.Pattern = patrn '设置模式。 regEx.IgnoreCase = true '设置是否区分字符大小写。 regEx.Global = True '设置全局可用性。 Set Matches = regEx.Execute(strng) '执行搜索。 For Each Match in Matches '遍历匹配集合。 values=values&Match.Value&"," Next RegExp_Execute = values End Function %> <% dim src content=(Recordset1.Fields.Item("nr").Value) regstr="src/=.+?/.(gif|jpg)" url=Replace(Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""",""),"src=","") src=split(url,",") if url <> "" then for i=0 to ubound(src)-1 '删除文件 set fso=Server.CreateObject("scripting.filesystemobject") fileName=src(i) myFile=Server.MapPath(fileName) if fso.FileExists(myFile) then fso.DeleteFile myFile end if set fso=Nothing next end if %>