ASP gets the function of the top-level domain of the website

function | website | Top-level domain no matter the input xxx.xxx.xxx.xxx.com.cn can find his top-level domain name

Here's the code: <% Response.Write GetDomain ("www.5u.hk") & "<br/>" Response.Write GetDomain ("blog.5u.hk") & "<br/>" Response.Write GetDomain ("mscga.blog.5u.hk") & "<br/>" Function GetDomain (ByVal dom) ' returns null indicates that the domain name does not compound the domain name root requirement Dim i,ext,exts exts = "Com.cn,net.cn,org.cn,hk.cn,com,net,cn,hk" ' complex root in front, one in the back ext = Split (exts, ",") For i = 0 To UBound (EXT) If LCase (ext (i)) = Right (LCase (DOM), Len (ext (i)) then Dim dom_ext,dom_pre Dom_ext = LCase (ext (i)) Dom_pre = Split (left (Dom,len (DOM)-len (Dom_ext)-1), ".") GetDomain = Dom_pre (UBound (dom_pre)) & "." & Dom_ext Exit function End If Next GetDomain = "" End Function %>