格式：

RegExp_Replace(ByVal str,ByVal patrn, ByVal replStr)

参数：

str：原始字符串

patrn：正则表达式

replStr：替换的目标字符串

代码：

Function RegExp_Replace(ByVal str,ByVal patrn, ByVal replStr)

Dim regEx, str1 ' 建立变量。

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

regEx.Pattern = patrn ' 设置模式。

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

RegExp_Replace = regEx.Replace(str, replStr) ' 作替换。

End Function

应用：

response.Write RegExp_Replace("哈士奇 123","\d+", "蓝猫")

返回：哈士奇 蓝猫