檢測是否為中文字符

<% 
'****************************** 
'函數(shù)：CheckChinese(strng) 
'參數(shù)：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 
%>