客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
<% '****************************** '函数：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 %> |
请发表评论