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
%>