转：关于Microsoft.XMLHttp的属性和方法的简介及使用

二、XMLHTTP方法：
Open（ bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword ）
bstrMethod：数据传送方式，即GET或POST。
bstrUrl：服务网页的URL。
varAsync：是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。用中一般将其置为False，即异步执行。
bstrUser：用户名，可省略。
bstrPassword：用户口令，可省略。

Send（ varBody ）
varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。

setRequestHeader（ bstrHeader, bstrvalue ）
bstrHeader：HTTP 头(header)
bstrvalue： HTTP 头(header)的值
如果Open方法定义为POST，可以定义表单方式上传：
xmlhttp.setRequestHeader（ "Content-Type", "application/x-www-form-urlencoded"）

三、XMLHTTP属性：
onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
responseBody：结果返回为无符号整数数组。
responseStream：结果返回为IStream流。
responseText ：结果返回为字符串。
responseXML：结果返回为XML格式数据。
具体的使用方法
创建XMLHTTP对象的语句如下：

Set bjXML = CreateObject("Msxml2.XMLHTTP") 或 Set bjXML = CreateObject("Microsoft.XMLHTTP") 'Or for version 3.0 of XMLHTTP, use: 'Set bjXML = Server.CreateObject("MSXML2.ServerXMLHTTP")

对象创建后调用Open方法对Request对象进行初始化，语法格式为：

objXML.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数据：

objXML.send()

Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。

发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。

XMLHTTP对象中的readyState属性

其能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示：

值　　说明 0 　　Response对象已经创建，但XML文档上载过程尚未结束 1 　　XML文档已经装载完毕 2 　　XML文档已经装载完毕，正在处理中 3 　　部分XML文档已经解析 4 　　文档已经解析完毕，客户端可以接受返回消息

客户机处理响应信息，客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。

客户机接收响应是通过XMLHTTP对象的属性实现的：

responseText：将返回消息作为文本字符串；
responseBody：将返回消息作为HTML文档内容；
responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；
responseStream：将返回消息视为Stream对象

以下是一个简单的例子：类似新闻小偷

<% Set bjXML = Server.CreateObject("MSXML2.ServerXMLHTTP") objXML.open "GET","http://www.alexa.com",false objXML.send() response.write(objXML.responseText) %>

整个步骤很明显：建立、打开、发送和接受。

实例：获取网页信息

Set bjXML = CreateObject("Microsoft.XMLHTTP")
'objXML.open "GET","http://10.0.0.144/goform/formNasSambaSave",False, "admin","1234"
objXML.open "GET","http://10.0.0.144/nassetting.asp",False, "admin","1234"  '使用时，要修改网址，用户名，密码
objXML.send()
a = objXML.readyState  '判断连接状态，可以不要
'MsgBox a   
b = objXML.responseText  '获取WEB Server返回的信息
'MsgBox b

Const ForAppending = 8
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set fs=objFSO.OpenTextFile("D:\test.htm",ForAppending,True, -1)  '把WEB Server返回的信息写入文件

fs.WriteBlankLines(3)
fs.Write b
fs.Close()
Set fs=nothing
Set bjFSO=nothing

实例：向WEB Server发送信息
Dim a,b,t

t = Now()

'获取日期
dtmThisMinute = Minute(time)
dtmThisHour = Hour(Time)
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
tmToday = dtmThisMonth & "/" & dtmThisDay & "/" & dtmThisYear
Logfile = dtmThisYear & "Year" & dtmThisMonth & "Month" & dtmThisDay & "Day" & dtmThisHour & "Hour" & dtmThisMinute & "Minute"


Set bjXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "GET","http://10.0.0.144/goform/formNasSambaSave?smbName=tomtom2&smbGroup=gjmhome&smbDescrip=This is gjm storage server.&recycled=1",False, "admin","1234"  '使用时，要修改网址，用户名，密码，和你要发生的信息
objXML.send()
a = objXML.readyState
'MsgBox a
b = objXML.responseText
'MsgBox b

Const ForAppending = 8
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set fs=objFSO.OpenTextFile("D:\" & Logfile &".htm",ForAppending,True, -1)

fs.WriteBlankLines(3)
fs.Write b
fs.Close()
Set fs=nothing
Set bjFSO=nothing