摘要： Public Function CheckName(Str) Checkname=True Dim Rep,pass Set Rep=New RegExp ' 建立正则表达式。 Rep.Global=True '设置全局可用性。 Rep.IgnoreCase=True'设置是否区分字符大小写 '设置模式。 Rep.Pattern="[u0009u0020u0022-u0028u002C-u002Eu003A-u003Fu005Bu005Cu0060u007Cu007Eu00FFuE5E5]" Set pass=Rep.Execute(Str) 阅读全文