替换图片地址正则表达式应用

http://www.microsoft.com/downloads/details.aspx?familyid=887FCE82-E3F5-4289-A5E3-6CBB818623AA&displaylang=zh-cn

patrn="<img.+?>"
str="images/aaa.gif"
replStr=WebUrl&str
response.Write(ReplaceTest(patrn,str,replStr))

Function ReplaceTest(patrn,str,replStr)

Dim regEx, str1 ' 建立变量。

str1=trim(str)

Set regEx = New RegExp ' 建立正则表达式。

regEx.Pattern = patrn ' 设置模式。

regEx.IgnoreCase = true ' 设置是否区分大小写。

ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。

set regEx=nothing '销毁正则表达式对象

End Function