asp匹配网址的正则

Function IsValidUrl(str) 
 Dim regEx 
 Set regEx = New RegExp 
 regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?" 
 IsValidUrl = regEx.Test(str) 
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("//www.jb51.net/abc.html")