<%

'******************************

'函数：CheckChinese(strng)

'参数：strng,待验证字符

'描述：检测是否为中文字符，返回值：中文为true，否则false

'示例：<%=CheckChinese(strng)%>

'******************************

Function CheckChinese(strng)

CheckChinese = true

Dim regEx, Match

Set regEx = New RegExp

regEx.Pattern = "||#|&|?|@|%|*|/|.|,|;|'|:|-|_|+|^|""|=|<|>| "

regEx.IgnoreCase = True

Set Match = regEx.Execute(strng)

if match.count then CheckChinese= false

End Function

%>