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)  
 '组合成当前网站的域名
posted on 2006-05-25 15:59  银狐  阅读(290)  评论(0编辑  收藏  举报