AJAX教程(9)：AJAX 请求 源代码

下面的源代码属于上一节的 AJAX 实例。

您可以拷贝粘贴这些代码，然后亲自测试一下。

这是 HTML 页面。它包含了一个简单的 HTML 表单，以及一个指向 JavaScript 的链接。

htmlheadscript src="clienthint.js"/script /headbodyform First Name:input type="text" id="txt1" onkeyup="showHint(this.value)" //formpSuggestions: span id="txtHint"/span/p /body/html

下面列出了 JavaScript 代码。

这是 JavaScript 代码，存储在文件 "clienthint.js" 中：

var xmlHttpfunction showHint(str){  if (str.length==0){ document.getElementById("txtHint").innerHTML="";return;}  xmlHttp=GetXmlHttpObject()  if (xmlHttp==null){alert ("您的浏览器不支持AJAX！");return;}  var url="gethint.asp";  url=url+"？q="+str;  url=url+"&sid="+Math.random();  xmlHttp.onreadystatechange=stateChanged;  xmlHttp.open("GET",url,true);  xmlHttp.send(null);} function stateChanged() { if (xmlHttp.readyState==4){ document.getElementById("txtHint").innerHTML=xmlHttp.responseText;}}function GetXmlHttpObject(){  var xmlHttp=null;  try{// Firefox, Opera 8.0+, SafarixmlHttp=new XMLHttpRequest();}  catch (e){// Internet Explorertry  {  xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");  }catch (e)  {  xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");  }}return xmlHttp;}

其实不存在什么AJAX 服务器。AJAX 页面可以由任一因特网服务器提供服务。

在上一节的例子中被 JavaScript 调用的服务器页面是一个简单的名为 "gethint.asp" 的 ASP 文件。

下面我们列出了这个服务器页面代码的实例，使用 ASP 来编写。

"gethint.asp" 页面中的代码针对 IIS 使用 VBScript 编写。它会检查一个名字数组，然后向客户端返回相应的名字：

%response.expires=-1dim a(30)'用名字为数组赋值a(1)="Anna"a(2)="Brittany"a(3)="Cinderella"a(4)="Diana"a(5)="Eva"a(6)="Fiona"a(7)="Gunda"a(8)="Hege"a(9)="Inga"a(10)="Johanna"a(11)="Kitty"a(12)="Linda"a(13)="Nina"a(14)="Ophelia"a(15)="Petunia"a(16)="Amanda"a(17)="Raquel"a(18)="Cindy"a(19)="Doris"a(20)="Eve"a(21)="Evita"a(22)="Sunniva"a(23)="Tove"a(24)="Unni"a(25)="Violet"a(26)="Liza"a(27)="Elizabeth"a(28)="Ellen"a(29)="Wenche"a(30)="Vicky"'从URL取得参数qq=ucase(request.querystring("q"))'如果q的长度大于0，则查找所有的hintif len(q)0 then  hint=""  for i=1 to 30if q=ucase(mid(a(i),1,len(q))) then  if hint="" thenhint=a(i)  elsehint=hint & " , " & a(i)  end ifend if  nextend if'如果找不到hint，则输出"no suggestion"'或者输出正确的值if hint="" then   response.write("no suggestion")else  response.write(hint)end if%