怎样用delphi或网页语言（asp、vbscript等）取得服务器的IP或Name

好像有个函数getservervariable，但不知道怎样使用！

解决方案 »

  1.   

    gethostbaname
    gethotbaaddr
    还有——
    都是winsock函数！
      

  2.   

    sorry! 把gethostbyaddr错写成了gethotbaaddr
      

  3.   

    我现在是既不知道服务器的IP也不知道服务器的Name，但程序在服务器上运行。所以用gethostby...恐怕不行吧！
      

  4.   

    //学会搜索吧~~
    //asp版
    Request.ServerVariables("LOCAL_ADDR")
    Request.ServerVariables("SERVER_NAME")//delphi 版
    procedure ShowHostName;
    var
      wVersionRequested : WORD;
      wsaData : TWSAData;
      p : PHostEnt;
      s : array[0..128] of char;
      p2 : pchar;
    begin
      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;
      

  5.   

    在delphi方法中，虽然可以列出所有IP但还是不知道哪个是服务器啊
    用asp的方法应该是可行的，我试试看
      

  6.   

    是的，只有在服务器上运行的的程序才知道服务器的IP和Name，现在我的意思就是想通过客户端调用服务器程序来获取服务器IP，怎样做
      

  7.   

    你的客户端难道是凭空跟服务端连起来的？
    至少知道服务器的ip或hostname之一吧?
      

  8.   

    TO: westfly(西翔) 
      我的目的是用程序自动取得服务器的IP或Name，而不是在连接时用户先去输入。比如：用户访问一个地址：http://192.168.1.1/login.asp，虽然上面已经有了ip，但我的目的是怎样将这个IP取到？因为我不可能在连接服务器时让用户再输一次吧？
      

  9.   

    你就不会换方法吗？你的login.asp取得ip后先记录在一个文件或数据库中，delphi再去取嘛