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

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

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

AJAX HTML 页面

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

Suggestions:id="txtHint">

下面列出了 JavaScript 代码。

AJAX JavaScript

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

var xmlHttp

function 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+, Safari

    xmlHttp=new XMLHttpRequest();

    }

  catch (e)

    {

    // Internet Explorer

    try

      {

      xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");

      }

    catch (e)

      {

      xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");

      }

    }

return xmlHttp;

}

AJAX 服务器页面 - ASP 和 PHP

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

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

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

AJAX ASP 实例

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

<%

response.expires=-1

dim 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取得参数q

q=ucase(request.querystring("q"))

'如果q的长度大于0，则查找所有的hint

if len(q)>0 then

  hint=""

  for i=1 to 30

    if q=ucase(mid(a(i),1,len(q))) then

      if hint="" then

        hint=a(i)

      else

        hint=hint & " , " & a(i)

      end if

    end if

  next

end if

'如果找不到hint，则输出"no suggestion"

'或者输出正确的值

if hint="" then 

  response.write("no suggestion")

else

  response.write(hint)

end if

%>