asp检测是否为中文字符函数

1. <%  
2. '******************************  
3. '函数：CheckChinese(strng)  
4. '参数：strng,待验证字符  
5. '描述：检测是否为中文字符，返回值：中文为true，否则false  
6. '示例：<%=CheckChinese(strng)%>  
7. '******************************  
8. Function CheckChinese(strng)  
9. CheckChinese = true  
10. Dim regEx, Match  
11. Set regEx = New RegExp  
12. regEx.Pattern = "\||\#|\&|\?|\@|\%|\*|\/|\.|\,|\;|\'|\:|\-|\_|\+|\^|\""|\=|\<|\>|\ "  
13. regEx.IgnoreCase = True  
14. Set Match = regEx.Execute(strng)  
15. if match.count then CheckChinese= false  
16. End Function  
17. %>