asp detecta si es una función de carácter chino

Compruebe si es un carácter chino <%

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

'Función: CheckChinese(cadena)

'Parámetro: cadena, carácter a verificar

'Descripción: compruebe si es un carácter chino, valor de retorno: verdadero para chino; de lo contrario, falso

'Ejemplo: <%=CheckChinese(string)%>

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

Función CheckChinese(string)

Verificar chino = verdadero

Dim regEx, Coincidencia

Establecer expresión regular = nueva expresión regular

regEx.Pattern = /||/#|/&|/?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/ +|/^|/|/=|/<|/>|/

regEx.IgnoreCase = Verdadero

Establecer coincidencia = regEx.Execute(string)

si match.count entonces CheckChinese = falso

Función final

%>