• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp 正则表达式检测http开头的函数
    '####################################
    '函数:ishttp[str]
    '参数:str,待处理的字符串
    '作者:木木
    '日期:2007/7/12
    '描述:检测HTTP连接地址或地址栏是否以HTTP开头
    '示例:%=ishttp(http://www.alixixi.com)%>
    '####################################

    Function ishttp(str)
    Dim regEx
    Set regEx = New RegExp
    regEx.Pattern = "^(http|HTTP)[A-Za-z]{0,1}\:\/\/"
    ishttp = regEx.Test(str)
    End function
    验证邮件地址是否符合标准
    %
    '******************************
    '函数:isemail(strng)
    '参数:strng,待验证的邮件地址
    '作者:阿里西西
    '日期:2007/7/13
    '描述:验证邮件地址是否符合标准
    '示例:%=isemail(ali@alixixi.com)%>
    '******************************
    Function isemail(strng)
        isemail = false
        Dim regEx, Match
        Set regEx = New RegExp
        regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" 
        regEx.IgnoreCase = True
        Set Match = regEx.Execute(strng)
        if match.count then isemail= true
    End Function
    %>
    正则表达式检测中国移动电话手机号码'*********************************************************
    '函数:mobilecheck[str]
    '参数:str,待处理的字符串
    '作者:木木
    '日期:2007/7/12
    '描述:检测移动电话手机号码
    '示例:%=mobilecheck("13912345678")%>
    '*********************************************************


    Function mobilecheck(str)
    Dim regEx
    Set regEx = New RegExp
    regEx.Pattern = "^(13[4-9]|15(8|9))\d{8}$"
    mobilecheck= regEx.Test(str)
    End Function
    上一篇:[asp]中的正则表达式运用代码
    下一篇:javascript下正则匹配百分比的代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp 正则表达式检测http开头的函数 asp,正则,表达式,检测,http,