开发学院 WEB开发 ASP 使用xmlHttp结合ASP，实现网页的异步调用阅读

使用xmlHttp结合ASP，实现网页的异步调用

　2002-08-06 11:09:51　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閹碱偆鐥閺屾洘绻濊箛鏇犵獥闂佺厧澹婃禍婊堚€旈崘顏佸亾閿濆骸澧ù鐘欏嫮绠鹃柛顐ゅ枎閻忋儲銇勯弴妯哄姦妞ゃ垺鐟╅幃鈩冩償閵囧府鎷�

核心提示：通过xmlHttp和asp的结合，我们可以轻松完成网页的异步调用，使用xmlHttp结合ASP，实现网页的异步调用，代码如下：1.新建Display.asp(这是前台显示页面)注意xmlhttp.readyState的4个属性1:LOADING;2:LOADED;3:INTERACTIVE;4:COMPLETED<

通过xmlHttp和asp的结合，我们可以轻松完成网页的异步调用。
代码如下：
1.新建Display.asp(这是前台显示页面)
注意xmlhttp.readyState的4个属性
1:LOADING;2:LOADED;3:INTERACTIVE;4:COMPLETED

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<script language="javascript">
xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
function fnDo(ID)
{
　　var xmlDom = new ActiveXObject("Msxml2.DOMDocument");　　　　
　　var strURL = "GetInfo.asp?ID=" + ID;
　　　　
　　xmlhttp.Open("POST",strURL , true);
　　xmlhttp.onreadystatechange = fnRun;
　　　　
　　xmlhttp.Send(xmlDom);

　　divTest.innerHTML = "Loading..."
}
//--------------------------------------------------------
function fnRun()
{
　　var state = xmlhttp.readyState;
　　　　
　　var xmlDom = new ActiveXObject("Msxml2.DOMDocument");
　　　　
　　if (state == 4)
　　{
　　　　xmlDom.loadXML(xmlhttp.responseXML.xml);
　　　　//alert(xmlDom.documentElement.selectSingleNode("//objXML").text)
　　　　var getInfo = xmlDom.documentElement.selectSingleNode("//objXML").text;
　　　　divTest.innerHTML = getInfo
　　}　　　　
}
</script>
<BODY>
<input type=button value="异步调用" onclick="fnDo(document.all.txtInput.value)">
<input type=text id=txtInput>
<DIV id=divTest></DIV>

<P> </P>

</BODY>
</HTML>

2.在建立GetInfo.asp(这是后台处理页面)
<%
Dim sID,objResult

sID = Trim(Request("ID"))
'sID = 28

Set objResult = Server.CreateObject("MSXML2.DOMDocument")
objResult.loadXML ("<objXML></objXML>")
'**************************************************************

'**************************************************************

objResult.selectSingleNode("objXML").text = "Get:" & sID

Response.ContentType = "text/xml"
objResult.save (Response)
Response.End

Set objSch = Nothing
Set objResult = Nothing
%>

3.运行Display.asp页面，在文本框里输入内容，点击按钮，可以看到Loading的提示，随后在不刷新页面的情况下得到了文本框里的内容。当然你也可以在GetInfo.asp那个页面里根据发送的参数做一些复杂的出来，随后把结果返回出来。