home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / ib / setups / intrabld / data.z / NETINFO.JFM < prev    next >
Encoding:
Text File  |  1996-12-11  |  3.0 KB  |  148 lines
  1. // {End Header} Do not remove this comment//
  2. // Generated on 11/13/96
  3. //
  4. var f = new netinfoForm();
  5. f.open();
  6. class netinfoForm extends Form {
  7.    with (this) {
  8.       onServerLoad = class::Form_onServerLoad;
  9.       height = 10;
  10.       left = 0;
  11.       top = 0;
  12.       width = 60;
  13.       title = "NetInfo Object Information";
  14.    }
  15.  
  16.  
  17.    with (this.html1 = new HTML(this)){
  18.       height = 1;
  19.       top = 2;
  20.       width = 14;
  21.       color = "black";
  22.       text = "IP Address";
  23.    }
  24.  
  25.  
  26.    with (this.html2 = new HTML(this)){
  27.       height = 1;
  28.       left = 14;
  29.       top = 2;
  30.       width = 40;
  31.       color = "black";
  32.       text = "Text2";
  33.    }
  34.  
  35.  
  36.    with (this.html3 = new HTML(this)){
  37.       height = 1;
  38.       top = 3;
  39.       width = 14;
  40.       color = "black";
  41.       text = "Referrer";
  42.    }
  43.  
  44.  
  45.    with (this.html4 = new HTML(this)){
  46.       height = 1;
  47.       left = 14;
  48.       top = 3;
  49.       width = 40;
  50.       color = "black";
  51.       text = "Text4";
  52.    }
  53.  
  54.  
  55.    with (this.html5 = new HTML(this)){
  56.       height = 1;
  57.       top = 4;
  58.       width = 14;
  59.       color = "black";
  60.       text = "Remote Host";
  61.    }
  62.  
  63.  
  64.    with (this.html6 = new HTML(this)){
  65.       height = 1;
  66.       left = 14;
  67.       top = 4;
  68.       width = 40;
  69.       color = "black";
  70.       text = "Text6";
  71.    }
  72.  
  73.  
  74.    with (this.html7 = new HTML(this)){
  75.       height = 1;
  76.       top = 5;
  77.       width = 14;
  78.       color = "black";
  79.       text = "Session ID";
  80.    }
  81.  
  82.  
  83.    with (this.html8 = new HTML(this)){
  84.       height = 1;
  85.       left = 14;
  86.       top = 5;
  87.       width = 40;
  88.       color = "black";
  89.       text = "Text8";
  90.    }
  91.  
  92.  
  93.    with (this.html9 = new HTML(this)){
  94.       height = 1;
  95.       top = 6;
  96.       width = 14;
  97.       color = "black";
  98.       text = "User Agent";
  99.    }
  100.  
  101.  
  102.    with (this.html10 = new HTML(this)){
  103.       height = 1;
  104.       left = 14;
  105.       top = 6;
  106.       width = 40;
  107.       color = "black";
  108.       text = "Text10";
  109.    }
  110.  
  111.  
  112.    with (this.backButton = new Button(this)){
  113.       onClick = class::backButton_onClick;
  114.       top = 8;
  115.       width = 10.5;
  116.       text = "Back";
  117.    }
  118.  
  119.  
  120.    with (this.html11 = new HTML(this)){
  121.       height = 2;
  122.       width = 54;
  123.       color = "black";
  124.       text = "<h1>Browser Information<h1>";
  125.    }
  126.  
  127.  
  128.    function Form_onServerLoad()
  129.    {
  130.       var n = new NetInfo();
  131.       var ip = (n.IPAddress & 255) + "." +
  132.                ((n.IPAddress >> 8) & 255) + "." +
  133.                ((n.IPAddress >> 16) & 255) + "." +
  134.                ((n.IPAddress >> 24) & 255);
  135.       this.html2.text  = n.IPAddress < 0 ? "(not available)" : ip;
  136.       this.html4.text  = n.referrer.length == 0 ? "(not available)" : n.referrer;
  137.       this.html6.text  = n.remoteHost.length == 0 ? "(not available)" : n.remoteHost;
  138.       this.html8.text  = n.sessionID < 0 ? "(not available)" : n.sessionID;
  139.       this.html10.text = n.userAgent.length == 0 ? "(not available)" : n.userAgent;
  140.    }
  141.  
  142.    function backButton_onClick()
  143.    {
  144.       history.back();
  145.    }
  146.  
  147. }
  148.