Verifique se é um caractere chinês <%
'******************************
'Função: CheckChinese(strng)
'Parâmetro: string, caractere a ser verificado
'Descrição: Verifique se é um caractere chinês, valor de retorno: verdadeiro para chinês, caso contrário falso
'Exemplo: <%=VerificarChinês(strng)%>
'******************************
Função CheckChinês(string)
CheckChinês = verdadeiro
Dim regEx,Correspondência
Definir regEx = Novo RegExp
regEx.Pattern = /||/#|/&|/?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/ +|/^|/|/=|/<|/>|/
regEx.IgnoreCase = Verdadeiro
Definir correspondência = regEx.Execute(strng)
se match.count então CheckChinese = falso
Função final
%>