检测是否为中文字符

% ''****************************** ''函数:CheckChinese(strng) ''参数:strng,待验证字符 ''描述:检测是否为中文字符,返回值:中文为true,否则false ''示例:%=CheckChinese(strng)% ''****************************** Function CheckChinese(strng) CheckChinese = true Dim regEx, Match Set regEx =

作者: 来源: 时间: 17-11-23 15:54:42

<%
''******************************
''函数: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
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们