<% '****************************** '函数：CheckString(strng) '参数：strng,待验证字符串 '作者：阿里西西 '日期：2007/7/13 '描述：检测字符串是否为纯字母和数字组合 '示例：<%=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 %> [b]检测是否为中文字符[/b] <% '****************************** '函数：CheckChinese(strng) '参数：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 %>