File: subrequest1.js

package info (click to toggle)
kpax 20061019-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 848 kB
  • ctags: 1,007
  • sloc: lisp: 7,343; makefile: 93
file content (37 lines) | stat: -rw-r--r-- 1,020 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
/* Support JavaScript code for the Subrequest1 example */

var subrequest;
var base_url;

function compute_response() {
  var login_form = document.forms[0];
  var url;

  url = base_url + "?number1=" + login_form.number1.value + "&number2=" + login_form.number2.value;

  if (window.XMLHttpRequest) {
     subrequest = new XMLHttpRequest();
     subrequest.onreadystatechange = process_response;
     subrequest.open("GET", url, true);
     subrequest.send(null);
  } else if (window.ActiveXObject) {
     subrequest = new ActiveXObject("Microsoft.XMLHTTP");
     if (req) {
        subrequest.onreadystatechange = process_response;
        subrequest.open("GET", url, true);
        subrequest.send();
     }
  }
}

function process_response() {
  var login_form = document.forms[0];

  if (subrequest.readyState == 4) {
    if (subrequest.status == 200) {
	login_form.sum.value = subrequest.responseText;
    } else {
      alert("There was a problem retrieving the XML data:\n" + subrequest.statusText);
    }
  }
}