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 
％>