热门标签：宜宾语音外呼系统软件电销机器人源码网盘下载中国办理电信400电话电销机器人教育河北智能外呼系统软件调度系统外呼绵阳防封电销卡价格伊春外呼业务系统福建外呼增值业务线路% '****************************** '函数：CheckString(strng) '参数：strng,待验证字符串 '作者：阿里西西 '日期：2007/7/13 '描述：检测字符串是否为纯字母和数字组合 '示例：%=CheckString(strng)%> '****************************** Function CheckString(strng) CheckString = true Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "^[A-Za-z0-9]+$" regEx.IgnoreCase = True Set Match = regEx.Execute(strng) if match.count then CheckString= false End Function %> 检测是否为中文字符 % '****************************** '函数：CheckChinese(strng) '参数：strng,待验证字符 '作者：阿里西西 '日期：2007/7/13 '描述：检测是否为中文字符，返回值：中文为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 %>
