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