您当前的位置是:首页-ASP教程

ASP实现获取主机名

【发表于】:2010/8/27 23:40:00  已被访问:220次
Set WshNetwork = CreateObject(“WScript.Network“) MsgBox WshNetwork.ComputerName  



uses   {...,}Winsock;    
     
  procedure   ShowHostName;    
  var    
      wVersionRequested   :   WORD;    
      wsaData   :   TWSAData;    
      p   :   PHostEnt;    
      s   :   array[0..128]   of   char;    
      p2   :   pchar;    
  begin    
  {启动   WinSock}    
      wVersionRequested   :=   MAKEWORD(1,   1);    
      WSAStartup(wVersionRequested,   wsaData);    
     
  {计算机名}    
      GetHostName(@s,   128);    
      p   :=   GetHostByName(@s);    
      ShowMessage(Format(’Computer   name   is   ’’%s’’.’,   [p^.h_Name]));    
     
  {IP地址}    
      p2   :=   iNet_ntoa(PInAddr(p^.h_addr_list^)^);    
      ShowMessage(Format(’IP   address   is   %s.’,[p2]));    
     
  WSACleanup;    
  end;    
大家都知道,在ASP中可以使用Request.ServerVariables("REMOTE_ADDR")来取得客户端的IP地址,但如果客户端是使用代理服务器来访问,那取到的就是代理服务器的IP地址,而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址,就要使用Request.ServerVariables("HTTP_X_FORWARDED_FOR")来读取。  
    不过要注意的是,并不是每个代理服务器都能用Request.ServerVariables("HTTP_X_FORWARDED_FOR")来读取客户端的真实 IP,有些用此方法读取到的仍然是代理服务器的 IP。  
    还有一点需要注意的是:如果客户端没有通过代理服务器来访问,那么用Request.ServerVariables ("HTTP_X_FORWARDED_FOR")取到的值将是空的。因此,如果要在程序中使用此方法,可以这样处理:  
     ......  
    userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")  
    If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")  
    ......  
        即:如果客户端通过代理服务器,则取HTTP_X_FORWARDED_FOR的值,如果没通过代理服务器,就取 REMOTE_ADDR的值。
 
上下篇: 带你了解一下ASP的重定向 ASP实用缓存类

最新推荐信息