Dim url, host_url, no_http, host_name As String                   '定義變量
url = HttpContext.Current.Request.Url.ToString                  '獲取當前頁的URL
no_http = url.Substring(url.IndexOf("http://") + 2)                       '截取去掉HTTP://的URL
host_url = "http://" & no_http.Substring(0, no_http.IndexOf("/") + 1)   '組合成當前網站的域名