strurl=request.form("newsinfo")'传入的新闻内容
regstr="src\=.+?\.(gif|jpg|bmp)"
url=Replace(Replace(Replace(RegExp_Execute(regstr,strurl),"'",""),"""",""),"src=","")

------解决方案--------------------

刚才少了一段
VB code
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
strurl=request.form("newsinfo")'传入的新闻内容

regstr="src\=.+?\.(gif|jpg|bmp)"
        url=Replace(Replace(Replace(RegExp_Execute(regstr,strurl),"'",""),"""",""),"src=","")

------解决方案--------------------
网上下个editor就行了