ASP取得网站顶级域名的函数
日期：2011-08-17 浏览次数：20837 次
不管输入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 %> |
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
