asp提取內(nèi)容中的手機號碼,qq,網(wǎng)址的正則代碼

Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True ' 設(shè)置全局可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
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