流水淡情的日子

Asp不区分大小写替换的两种方法

Dim sHtml
sHtml = "<a href=http://www.0460.com>呵呵</a>he, He呵,HeE, HE,hE呵你好QQ网名大全,hoho,hEQQ网名大全,QQ网名大全hehe."

Function ReplaceTest(sHtml, patrn, replStr)
   Dim regEx               '建立变量。
   Set regEx = New RegExp                '建立正则表达式。
   regEx.Pattern = patrn                '设置模式。
   regEx.IgnoreCase = True                '设置是否区分大小写。
   regEx.Global = True
   ReplaceTest = regEx.Replace(sHtml, replStr)          '作替换。
End Function

'Response.Write replace(sHtml,"he","oo", 1,-1,1)
Response.Write ReplaceTest(sHtml,"he","oo")