福网空间站:提供万网域名、空间、美国空间、域名 福建网站制作中心提供一条龙网站建设 要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响
福网企业建站中心|上千企业网站风格 要就发外贸站,以外国人的视觉建设英文网站
福建网站建设、福建网页设计、福建网站制作 福网官方主机,新增美国主机|PHP网站建设
要就发网店系统适合个人网上开店,少投入大收益 福建福州美国域名注册、超大容量国内、国外空间
详细内容                            全国服务热线:13616088405
asp正则表达式过滤字符串中的电话号码/qq等数字

经常我们会在留言板或文章内容中过滤电话号码和QQ号码,而这些号码通常情况下都是数字组成的,长度一般在5位数以上,老吧只会asp程序,老吧整理了一下asp过滤文章内容字符串中的数字的2个简单的函数分享一下。

'asp正则表达式提取字符串中所有的数字。

Function RegExpTest(strng)  '以数组返回
    i = 0
    Set regEx = New RegExp
    regEx.Pattern = "(d+)" '"[0-9]"
    regEx.IgnoreCase = True
    regEx.Global = True
    Set Matches = regEx.Execute(strng)
    For Each Match in Matches
        RetStr = RetStr &"<br>"& Match.Value '输出提取出来的数字
        i = i + 1
    Next
    RegExpTest = RetStr
End Function
稍微修改一下,调用以下函数可以替换文章内容中长度大于4的数字为***了

'asp替换字符串中长度大于5的数字为***

Function repnum(strng)  '以数组返回
    i = 0
    Set regEx = New RegExp
    regEx.Pattern = "(d+)" '"[0-9]"
    regEx.IgnoreCase = True
    regEx.Global = True
    Set Matches = regEx.Execute(strng)
    For Each Match in Matches
        'RetStr = RetStr &"<br>"& Match.Value
  If  Len(Match.Value)>=5 Then
   strng = Replace(strng, Right(Match.Value,4),"***")
  End If
        i = i + 1
    Next
    repnum = strng
End Function

发布日期:2018-2-12    浏览量:    
要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响
福建网站制作中心(http://www.001fj.com)承接个人、公司、企业的网站建设、网页设计、网店制作、独立商城制作、外贸网站制作,也承接同行介绍的业务,欢迎联系!
本站承接主要业务如下:
1、虚拟主机(网站空间),有独立国内服务器、美国服务器、万网服务器
2、域名注册,是万网的域名代理,域名提供万网的独立控制面板
3、网站建设:含FLASH制作、个人网店制作、企业建站、公司网站、新闻、下载等建设、论坛、博客网站搭建等,承接外贸英文站制作
4、采集、程序小偷程序制作:实现商品数据采集、文章、图片采集、让你的网站在短时间内拥有大量的数据,制作小偷程序,让你i轻松拥有大型网站而不需要发大量维护
5、网站推广、流量推广:百度竞价排名,流量推广提搞你网站流量促进百度排名,每月网站流量推广,让您网站最少时间受最多人的关注
联系电话:13616088405,联系QQ:535251856