Vérifiez s'il s'agit d'un caractère chinois <%
'******************************
'Fonction : Vérifier le chinois (chaîne)
'Paramètre : chaîne, caractère à vérifier
'Description : Vérifiez s'il s'agit d'un caractère chinois, valeur de retour : vrai pour le chinois, sinon faux
'Exemple : <%=CheckChinese(strng)%>
'******************************
Fonction CheckChinois(chaîne)
CheckChinese = vrai
Dim regEx, Correspondance
Définir regEx = Nouvelle RegExp
regEx.Pattern = /||/#|/&|/?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/ +|/^|/|/=|/<|/>|/
regEx.IgnoreCase = Vrai
Définir Match = regEx.Execute(strng)
si match.count alors CheckChinese = false
Fonction de fin
%>