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("不符合！");
}
}
}
}
}