Function CheckExp(patrn) PRIVATE cStr cStr=patrn regEx = CreateObject("VBscr ipt.RegExp") &&建立正则表达式对象 *!* regEx.Pattern = "^(?=.*\d)(?=.*[a-z])[a-zA-Z\d]{6,20}$" &&设置模式由数字或字母组成 regEx.Pattern="^(?!0(\d|\.0+$|$))\d+(\.\d{1,2})?$