asp检测是不是为中文字符函数

asp检测是不是为中文字符函数：

<%

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

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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!