ASP中,有几种方式可以得到进入本页前的URL地址?

<%

  
Function   GetUrl()   
      
On   Error   Resume   Next   
      
Dim   strTemp   
  
If   LCase(Request.ServerVariables("HTTPS"))   =   "off"   Then   
  strTemp   
=   "http://"   
  
Else   
  strTemp   
=   "https://"   
                  
End   If   
      strTemp   
=   strTemp   &   Request.ServerVariables("SERVER_NAME")   
      
If   Request.ServerVariables("SERVER_PORT")   <>   80   Then     
              strTemp   
=   strTemp   &   ":"   &   Request.ServerVariables("SERVER_PORT")   
      
end   if   
      strTemp   
=   strTemp   &   Request.ServerVariables("URL")   
      
If   Trim(Request.QueryString)   <>   ""   Then     
              strTemp   
=   strTemp   &   "?"   &   Trim(Request.QueryString)   
      
end   if   
      GetUrl   
=   strTemp   
  
End   Function   
    
    
  response.write   
"from:"   &   geturl()   
  response.end()   

%
>


Request.ServerVariables("HTTP_REFERER")  
posted @ 2008-03-24 09:46  Athrun  阅读(264)  评论(0编辑  收藏  举报