广告
Dim url, host_url, no_http, host_name As String '定义变量
url = HttpContext.Current.Request.Url.ToString '获取当前页的URL
no_http = url.Substring(url.IndexOf("//") + 2) '截取去掉HTTP://的URL
host_url = "http://" & no_http.Substring(0, no_http.IndexOf("/") + 1) '组合成当前网站的域名
一起学吧部分文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与一起学吧进行文章共享合作。
广告
广告
广告