<%
'******************************
'函數(shù)：CheckChinese(strng)
'參數(shù)：strng,待驗(yàn)證字符
'描述：檢測(cè)是否為中文字符，返回值：中文為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
%>
