'函数：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

%>