asp手机号码正则表达式代码

Function SUBmobile(tel) 
    Set RegEx = New RegExp 
    RegEx.IgnoreCase =True 
    RegEx.Pattern = "^(13[0-9]|15[0|1|2|3|6|7|8|9]|18[6|7|8|9])d{8}$" 
    SUBmobile=RegEx.test(tel)
End Function

    mMobile=trim(request.form("Mobile")) '//获取手机号码代码。
    if SUBmobile(mMobile) then
        '//执行操作——手机号格式正确！
    else
        '//执行操作——手机号码格式不正确！
    end if

Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
'RetStr = RetStr & "Match found at position "
'RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value
Next
RegExpTest = RetStr
End Function

using System;
using System.Collections.Generic;
using System.Text;
using System.Text.RegularExpressions;
using System.Windows.Forms;
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            // string s = @"^(13[0-9]|15[0|3|6|8|9])d{8}$";
              string s = @"^(13[0-9]|15[0|3|6|7|8|9]|18[8|9])d{8}$";
            while (true)
            {
                string input = Console.ReadLine();
                if (Regex.IsMatch(input, s))
                {
                    MessageBox.Show("完全符合！");
                }
                else
                {
                    MessageBox.Show("不符合！");
                }
            }
        }
    }
}