替換圖片地址Regex應用

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。

regEx.Pattern = patrn ' 設定模式。

regEx.IgnoreCase = true ' 設定是否區分大小寫。

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

set regEx=nothing '銷毀Regex對象

End Function