用asp写的一个正则表达式函数

 

Function replacestr(astr,bstr,patrn)    '正则表达式
  Dim regEx,str1               ' 建立变量。
  Set regEx = New RegExp               ' 建立正则表达式。
  regEx.Pattern = patrn               ' 设置模式。
  regEx.IgnoreCase = True               ' 设置是否区分大小写。
  Replacestr = regEx.Replace(astr,bstr)         ' 作替换。
  set regEx = nothing
End Function

这里我没写patrn参数的写法,以后会写出来地,呵呵请关注