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) 组合成当前网站的域名
|