以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  验证手机号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170357)
--  作者：qazlinle6
--  发布时间：2021/7/23 10:28:00
--  验证手机号
Case "filter1.htm"
        wb.AddForm("","form1","list.htm")
        With wb.AddInputGroup("form1","ipg1","数据筛选")
            .AddInput("product","会员电话","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit").Attribute = """
            .Add("btn2","返回", "","default.htm") \'退出登录
        End With
        wb.AddToast("","t2", "正在加载",1)
        

加个验证手机号对不对，不对就不可以查询




Dim reg = new System.Text.RegularExpressions.Regex("^1[34578]\\d{9}$")
Dim Password = "13888888888"
If reg.Ismatch(Password) = False Then
    msgbox("不符合")
Else
    msgbox("符合")
End If
--  作者：有点蓝
--  发布时间：2021/7/23 10:32:00
--  
现在新号段层出不穷，建议还是判断长度好了，就是11位，并且是1开头的，其它的判断没多大意义。
--  作者：qazlinle6
--  发布时间：2021/7/23 10:35:00
--  
代码什么弄
--  作者：有点蓝
--  发布时间：2021/7/23 10:40:00
--  
长度：http://www.foxtable.com/webhelp/topics/0230.htm
--  作者：qazlinle6
--  发布时间：2021/7/23 10:54:00
--  
帮我弄一下代码，不什么看的懂
--  作者：有点蓝
--  发布时间：2021/7/23 11:03:00
--  
都是很基础的语法，如果都还看不懂，从头学一下吧：http://www.foxtable.com/webhelp/topics/1592.htm

Dim Password as string = "13888888888"
If Password.length <> 11 orelse Password.StartsWith("1") = false Then
    msgbox("不符合")
Else
    msgbox("符合")
End If