asp detects whether it is a Chinese character function

Check whether it is a Chinese character <%

'******************************

'Function: CheckChinese(strng)

'Parameter: strng, character to be verified

'Description: Check whether it is a Chinese character, return value: true for Chinese, otherwise false

'Example: <%=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

%>