我想获取当前域名,如果页面为http://www.domain.com/page.asp我需要www.domain.com
答案 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?)
答案 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
%>