2010-01-27 50 views

回答

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 
0

把这个放在你的f油膏删除?当没有查询字符串元素,如在最后一个随机?可能不是你想要的东西:

If right(PageUrl,1)="?" then PageUrl = left(PageUrl,len(PageUrl)-1) 
0
<% 
for each x in Request.ServerVariables 
response.write(x&"="&Request.ServerVariables(x)&"<br>") 
next 
%> 

这将会给你的结果这样所有Request.ServerVariables

REMOTE_ADDR = 40.20.170.160 
REMOTE_HOST = 40.20.170.160 
REMOTE_USER = 
REQUEST_METHOD = GET 
SCRIPT_NAME = /xyz/get.asp 
SERVER_NAME = www.xyz.com 
SERVER_PORT = 80 
+1

请添加一些说明。 – 2017-01-11 13:43:01

+0

解释加:) – MRRaja 2017-01-12 07:38:38