% '****************************** '函數(shù):CheckString(strng) '參數(shù):strng,待驗證字符串 '作者:阿里西西 '日期:2007/7/13 '描述:檢測字符串是否為純字母和數(shù)字組合 '示例:%=CheckString(strng)%> '****************************** Function CheckString(strng) CheckString = true Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "^[A-Za-z0-9]+$" regEx.IgnoreCase = True Set Match = regEx.Execute(strng) if match.count then CheckString= false End Function %> 檢測是否為中文字符 % '****************************** '函數(shù):CheckChinese(strng) '參數(shù):strng,待驗證字符 '作者:阿里西西 '日期:2007/7/13 '描述:檢測是否為中文字符,返回值:中文為true,否則false '示例:%=CheckChinese(strng)%> '****************************** Function CheckChinese(strng) CheckChinese = true Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "\||\#|\|\?|\@|\%|\*|\/|\.|\,|\;|\'|:|-|_|+|^|""|\=|\|\&;|\&;" regEx.IgnoreCase = True Set Match = regEx.Execute(strng) if match.count then CheckChinese= false End Function %>