AJAX教程(9):AJAX 请求 源代码
http://www.itjxue.com 2015-08-06 23:18 来源:未知 点击次数:
AJAX Suggest 源代码的实例
下面的源代码属于上一节的 AJAX 实例。
您可以拷贝粘贴这些代码,然后亲自测试一下。
AJAX HTML 页面
这是 HTML 页面。它包含了一个简单的 HTML 表单,以及一个指向 JavaScript 的链接。
<html> <head> <script src="clienthint.js"></script> </head> <body> <form> First Name:<input type="text"id="txt1" onkeyup="showHint(this.value)"
/> </form> <p>Suggestions: <spanid="txtHint"
></span></p> </body> </html>
下面列出了 JavaScript 代码。
AJAX 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+, 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 %>