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

<%
'
'函数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
%>