<% "****************************** "函数:CheckChinese(strng) "参数:strng,待验证字符 "描述:检测是否为中文字符,返回值:中文为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 %>