ASP截取网址URL中的顶级域名正则表达式

function durlck(url)
domext="com|net|org|cn|co.kr|com.cn"
durlck="" : url=lcase(url)
if url="" or len(url)=0 then exit function
url=replace(replace(url,"http://",""),"https://","")
s1=instr(url,":")-1 '过滤掉端口
if s1 < 0 then s1=instr(url,"/")-1 '过滤掉/后面的字符 
if s1 > 0 then url=left(url,s1)
Set re = new RegExp
re.IgnoreCase = True : re.global = True
re.Pattern = "([a-z0-9-]){1,63}\.(" & domext & ")(\:\d+)?$"
Set Matches = re.Execute(url) 
durlck = Matches(0)
set re=nothing
end function

<%
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.yuzhiguo.com")
%>