XMLHTTP---介绍

2006-01-18 16:46:58

作者: lamking2005-7-23 6:11:24 MSXML中提供了Microsoft.XMLHTTP对象,能够完成从数据包到Request对象的转换以及发送任务。 创建XMLHTTP对象的语句如下: Set objXML = CreateObject("Msxml2.XMLHTTP") 或 Set objXML = CreateObject(“Microsoft.XMLHTTP”) ' Or, for version 3.0 of XMLHTTP, use: ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") 对象创建后调用Open方法对Request对象进行初始化,语法格式为: poster.open http-method, url, async, userID, password Open方法中包含了5个参数,前三个是必要的,后两个是可选的(在服务器需要进行身份验证时提供)。参数的含义如下所示: http-method: HTTP的通信方式,比如GET或是 POST url: 接收XML数据的服务器的URL地址。通常在URL中要指明 ASP或CGI程序 async: 一个布尔标识,说明请求是否为异步的。如果是异步通信方式(true),客户机就不等待服务器的响应;如果是同步方式(false),客户机就要等到服务器返回消息后才去执行其他操作 userID 用户ID,用于服务器身份验证 password 用户密码,用于服务器身份验证 XMLHTTP对象的Send方法 用Open方法对Request对象进行初始化后,调用Send方法发送XML数据: poster.send XML-data Send方法的参数类型是Variant,可以是字符串、DOM树或任意数据流。发送数据的方式分为同步和异步两种。在异步方式下,数据包一旦发送完毕,就结束Send进程,客户机执行其他的操作;而在同步方式下,客户机要等到服务器返回确认消息后才结束Send进程。 XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示: 值 说明 0 Response对象已经创建,但XML文档上载过程尚未结束 1 XML文档已经装载完毕 2 XML文档已经装载完毕,正在处理中 3 部分XML文档已经解析 4 文档已经解析完毕,客户端可以接受返回消息 客户机处理响应信息 客户机接收到返回消息后,进行简单的处理,基本上就完成了C/S之间的一个交互周期。客户机接收响应是通过XMLHTTP对象的属性实现的: ● responseTxt:将返回消息作为文本字符串; ● responseXML:将返回消息视为XML文档,在服务器响应消息中含有XML数据时使用; ● responseStream:将返回消息视为Stream对象 ------就是下面这个很简单的JAVASCRIPT函数SEND(STR,URL)--------------- 使用到的是XMLDOM和XMLHTTP对象.用这种技术的好处是:全JS控制,方便/简单,比RDS 或者remote好多了.(前提:服务器端和客户端都必须安装IE5或者更高版本),在俺贴的 那个无刷新在线信息功能使用的也是这种技术.有兴趣的朋友可以看看.. function Send(Str,URL) //STR参数是传入的XML数据,你也可以传入其他文本数据. //不过这个函数需要服务器端处理之后返回XML数据,你也可以修改一下 //URL参数表示你所要处理数据的ASP文件地址 { var Http = new ActiveXObject("Microsoft.XMLHTTP") //建立XMLHTTP对象 var Dom = new ActiveXObject("Microsoft.XMLDOM") //建立XMLDOM对象 Http.open("POST",URL,false) //第一个参数的意思是,用"POST"方式发送数据.可以大到4MB,也可以换为"GET".只能256KB //第2个参数的意思是数据发送到哪个文件处理 //第3个参数意思是同步或异步方式.TRUE为异步,FALSE为同步 Http.send(Str) //开始发送数据.............嘟嘟.. Dom.async=false //设置为同步方式获取数据 Dom.loadXML(Http.responseText) //开始获取服务器端处理后返回的数据.我在这里设置必须为XML数据,否则出错. //你也可以自己修改.使返回的是2进制或者记录集数据................................. if(Dom.parseError.errorCode != 0) //检查是否发生获取数据时错误 { del&#101;te(Http) del&#101;te(Dom) return(false) } else { var Back = Dom.documentElement.childNodes.item(0).text //得到返回的XML数据,我这里假设处理程序只返回一行XML数据(一个节点) del&#101;te(Http) del&#101;te(Dom) return(Back) //函数返回数据.......................结束 } } VAR CAT = Send("<用户资料><姓名>谢柠檬</姓名></用户资料>","HTTP://WWW.CHINAASP.COM/VIVA.ASP") //执行函数 IF(CAT == FALSE) { ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败........") } ELSE { IF(EVAL(CAT)) { ALERT("OK.数据已经发送成功.兼以处理完成!!!!!!") } ELSE { ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败........") } } ===============================VIVA.ASP============================ ON ERROR RESUME NEXT DIM BOBO DIM MOMO SET BOBO = SERVER.CREATEOBJECT("MICROSOFT.XMLDOM") BOBO.ASYNC = FALSE BOBO.LOAD REQUEST IF BOBO.PARSEERROR.ERRORCODE <> 0 THEN RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>") ELSE SET MOMO = BOBO.DOCUMENTELEMENT IF MOMO.CHILDNODES.ITEM(0).TEXT = "谢柠檬" THEN RESPONSE.WRITE("<程序处理结果><最终结果>TRUE</最终结果></程序处理结果>") ELSE RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>") END IF END IF SET BOBO = NOTHING 下面是个实际应用的例子 <% Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") '创建对象 xml.Open "GET","http://www.pconline.com.cn/pcedu/empolder/wz/xml/0404/366680.html",False ' '设置对象,具体xmlhttp详细使用方法请见:http://www.cnsxml.com/blogview.asp?logID=273 《XMLHTTP 对象及其方法》一文 xml.Send '发送请求 Response.AddHeader "Content-Disposition", "attachment;filename=mitchell-pres.zip" '添加头给这个文件 Response.ContentType = "application/zip" '设置输出类型 Response.BinaryWrite xml.responseBody '输出二进制到浏览器 response. Set xml = Nothing %> ***************XMLHTTP属性列表 onreadystatechange 指定当就绪状态发生改变时调用的事件处理函数,仅用于异步操作 readyState 异步操作的状态:未初始化(0),正在加载(1),已加载(2),交互(3),已完成(4) responseBody 将响应信息正文作为unsigned byte数组返回 responseStream 将响应信息正文作为一个ADO Stream对象返回 responseText 将响应信息正文作为一个文本字符串返回 responseXML 通过XMLDom将响应信息正文解析为XMLDocument对象 status 服务器返回的HTTP状态码 statusText 服务器HTTP响应行状态 abort 取消当前 HTTP 请求 getAllResponseHeaders 从响应信息中检索所有的标头字段 getResponseHeader 从响应信息正文中获得一个 HTTP 标头值 open(method, url, boolAsync, bstrUser, bstrPassword) 打开一个与 HTTP 服务器的连接 send(varBody) 设定一个请求的标头字段 setRequestHeader(bstrHeader, bstrValue) 向 HTTP 服务器发送请求。可包含正文。