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

　　%>