<% '****************************** '函数: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 %> 检测是否为中文字符 <% '****************************** '函数: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 %>