ASP取得網站頂級網域名稱的函數

函數|網站|頂級網域名稱 不管輸入xxx.xxx.xxx.xxx.com.cn都可以找到他的頂級網域名稱

以下是代碼： <% 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) ’ 返回空則表示網域名稱不複合網域名稱根要求  dim i,ext,exts  exts = "com.cn,net.cn,org.cn,hk.cn,com,net,cn,hk" ’ 複根在前,單根在後  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 %>