XML HttpRequest对象的使用

时间：2005-05-11 来源：nicolaus

HttpRequest对象能够直接在Client端用VBS或者JS程序发送HTTP请求，服务器根据请求回送结果。比如请求一个XML文件回来，或者把XML发送出去经过服务器端处理后回送回来，或者让服务器端根据我们要求生成XML回送回来。我想在我们项目中，船只的实时监控中会用到，但此对象并不属于W3C DOM的建议规格。以下列出可能要用到的一些功能：（还有其他很多功能可GOOGLE之（：）

1。获取和发送XML
<HTML>
<HEAD>
<TITLE>获取XML文件内容 - 文字内容</TITLE>
</HEAD>
<BODY>

</BODY>
</HTML>

2。异步处理，也就是向服务器发送请求后，可以先干别的事情，不用等服务器响应后才继续下一步。利用onreadystatechange属性。
HTML文件：（发送请求）

<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html;charset=Big5">
<TITLE>onreadystatechange属性</TITLE>
<BODY>

<DIV id="result"></DIV>
</BODY>
</HTML>
ASP文件：（处理请求并返回XML）
<%
' 文件内容格式为XML
Response.ContentType = "text/xml"
' 不存储在客户端缓冲
Response.Expires = 0
Dim xmlDom, strTitle, objNode
' 加载XML文件
set xmlDom = Server.CreateObject("MSXML2.DOMDocument.4.0")
xmlDom.async = "false"
xmlDom.load(request)
Response.Write("<?xml version='1.0' encoding='GB2312'?>")
Response.Write("<titlelist>")
' 获取书名
For Each objNodeList in xmlDom.documentElement.childNodes
　 For Each objNode in objNodeList.childNodes
　　　If objNode.nodeName = "title" Then
　　　　 strTitle = objNode.text
　　　　 Response.Write("<title>" & strTitle & "</title>")
　　　End If
　 Next
Next
Response.Write("</titlelist>")
Set xmlDom = Nothing
%>