免费开源的5UCMS5UCMS 免费开源的站群CMS系统

检测是否为中文字符

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

站群cms客户服务

作者: 来源: 时间: 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

5UCMS.COM

Since 2015 自豪地采用5ucms内核构建！
微信/QQ:3876307 皖ICP备09005092号
点下方图标可留言 网站地图

微信扫一扫

推荐内容

订阅



隐藏区块

会员注册

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

Login

社交帐号登陆

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

Close section

网站栏目

服务范围

快捷导航

推荐/合作

Close

联系我们

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