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

也想出现在这里？点击联系我~

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