Проверьте, является ли это китайским иероглифом <%
'******************************
'Функция: CheckChinese(strng)
'Параметр: строка, символ, подлежащий проверке
'Описание: проверьте, является ли это китайским иероглифом, возвращаемое значение: true для китайского языка, в противном случае false
'Пример: <%=CheckChinese(strng)%>
'******************************
Функция CheckChinese(strng)
CheckChinese = правда
Тусклое регулярное выражение, совпадение
Установить регулярное выражение = Новое регулярное выражение
regEx.Pattern = /||/#|/&|/?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/ +|/^|/|/=|/<|/>|/
regEx.IgnoreCase = Истина
Установить соответствие = regEx.Execute(strng)
если match.count, то CheckChinese= false
Конечная функция
%>