ASP正则表达式解析出网址中的域名部分

< %
Function  getDomain(domain)
     Dim  re,ReturnStr,Matches
     Set  re = new  RegExp
    re.IgnoreCase  = True
    re.Global = True
    
    re.Pattern  =   " (w+.(com.cn|net.cn|com|cn|net|org)) "
     Set  Matches  =  re.Execute(domain)
    ReturnStr  =   ""
     For   Each  Match in Matches
        ReturnStr  =  Match.Value
         Exit   for
     Next
    getDomain  =  ReturnStr
     Set  re = Nothing
End Function
response.write getDomain( " http://www.51qqdm.cn/abc.htmlhttp://www.www.51qqdm.cn/abcd.html " )
% >