'函数:CheckChinese(strng)
'参数:strng,待验证字符
'描述:检测是否为中文字符,返回值:中文为true,否则false
'示例:
'******************************
FunctionCheckChinese(strng)
CheckChinese=true
DimregEx,Match
SetregEx=NewRegExp
regEx.Pattern="\||\#|\&|\?|\@|\%|\*|\/|\.|\,|\;|\'|\:|\-|\_|\+|\^|\""|\=|\|\"
regEx.IgnoreCase=True
SetMatch=regEx.Execute(strng)
ifmatch.countthenCheckChinese=false
EndFunction
%>