欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-08-31 23:06:35
通过xml(标准化越来越近了)http和asp的结合,我们可以轻松完成网页的异步调用。代码如下:1.新建display.(这是前台显示页面)注意xml(标准化越来越近了)http.readystat...
通过xml(标准化越来越近了)http和asp的结合,我们可以轻松完成网页的异步调用。
代码如下:
1.新建display.(这是前台显示页面)
注意xml(标准化越来越近了)http.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">
xml(标准化越来越近了)http = new activexobject("msxml(标准化越来越近了)2.xml(标准化越来越近了)http");
function fndo(id)
{
    var xml(标准化越来越近了)dom = new activexobject("msxml(标准化越来越近了)2.domdocument");         
    var strurl = "getinfo.asp?id=" + id;
        
    xml(标准化越来越近了)http.open("post",strurl , true);
    xml(标准化越来越近了)http.onreadystatechange = fnrun;
        
    xml(标准化越来越近了)http.send(xml(标准化越来越近了)dom);

    ptest.innerhtml = "loading..."
}
//--------------------------------------------------------
function fnrun()
{
    var state = xml(标准化越来越近了)http.readystate;
        
    var xml(标准化越来越近了)dom = new activexobject("msxml(标准化越来越近了)2.domdocument");
        
    if (state == 4)
    {
        xml(标准化越来越近了)dom.loadxml(标准化越来越近了)(xml(标准化越来越近了)http.responsexml(标准化越来越近了).xml(标准化越来越近了));
        //alert(xml(标准化越来越近了)dom.documentelement.selectsinglenode("//objxml(标准化越来越近了)").text)
        var getinfo = xml(标准化越来越近了)dom.documentelement.selectsinglenode("//objxml(标准化越来越近了)").text;
        ptest.innerhtml = getinfo
    }        
}
</script>
<body>
<input type=button value="异步调用" onclick="fndo(document.all.txtinput.value)">
<input type=text id=txtinput>
<div id=ptest></div>

<p> </p>

</body>
</html>

2.在建立getinfo.asp(这是后台处理页面)
<%
dim sid,objresult

sid = trim(request("id"))
sid = 28

set objresult = server.createobject("msxml(标准化越来越近了)2.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那个页面里根据发送的参数做一些复杂的出来,随后把结果返回出来。