如何在Classic ASP中获取当前域?

时间:2010-01-27 17:27:10

标签: asp-classic

我想获取当前域名,如果页面为http://www.domain.com/page.asp我需要www.domain.com

4 个答案:

答案 0 :(得分:27)

Request.ServerVariables("SERVER_NAME")'

完成后,我的一个职能是:

  function PageUrl
     dim sPort
     sPort = Request.ServerVariables("SERVER_PORT")
     if sPort = "80" then
        sPort = ""
     else
        sPort = ":" & sPort
     end if

     PageUrl = "http://" & Request.ServerVariables("SERVER_NAME") & sPort & _
                           Request.ServerVariables("URL") & "?" & _
                           Request.ServerVariables("QUERY_STRING")
  end function

答案 1 :(得分:1)

请求服务器变量之一(server_name?)

http://www.w3schools.com/asp/coll_servervariables.asp

答案 2 :(得分:0)

在函数结束之前把它放在没有查询字符串元素的情况下删除?,因为最后的随机?可能不是你想要的:

If right(PageUrl,1)="?" then PageUrl = left(PageUrl,len(PageUrl)-1)

答案 3 :(得分:0)

'Y-m'

这将为您提供所有Request.ServerVariables

的结果
<%
for each x in Request.ServerVariables
response.write(x&"="&Request.ServerVariables(x)&"<br>")
next
%>