一个验证用户名是否包含非法字符的函数(VBScript)

Function CheckName(str)
       If str="" Then Exit Function
       Dim re
       Set re=New RegExp
       re.IgnoreCase=true
       re.Global=true
       re.pattern="[~!@#$%^&*()+|<>///? ]"
       CheckName=re.test(str)
       Set re=nothing
End Function

红色的部分就是限定的不能注册的字符，其中符号"/"是标识一个特使字符。比如，//表示/，/(表示(