1
MSXML中提供了Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。
2创建XMLHTTP对象的语句如下：
3Set objXML = CreateObject("Msxml2.XMLHTTP") 或
4Set objXML = CreateObject(“Microsoft.XMLHTTP”)
5' Or, for version 3.0 of XMLHTTP, use:
6' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
7对象创建后调用Open方法对Request对象进行初始化，语法格式为：
8poster.open http-method, url, async, userID, password
9Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。参数的含义如下所示：
10http-method： HTTP的通信方式，比如GET或是 POST
11url： 接收XML数据的服务器的URL地址。通常在URL中要指明 ASP或CGI程序
12async： 一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作
13userID 用户ID，用于服务器身份验证
14password 用户密码，用于服务器身份验证
15XMLHTTP对象的Send方法
16用Open方法对Request对象进行初始化后，调用Send方法发送XML数据：
17poster.send XML-data
18Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。
19XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示：
20值 说明
210 Response对象已经创建，但XML文档上载过程尚未结束
221 XML文档已经装载完毕
232 XML文档已经装载完毕，正在处理中
243 部分XML文档已经解析
254 文档已经解析完毕，客户端可以接受返回消息
26客户机处理响应信息
27客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。客户机接收响应是通过XMLHTTP对象的属性实现的：
28● responseTxt：将返回消息作为文本字符串；
29● responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；
30● responseStream：将返回消息视为Stream对象
31
32
33------就是下面这个很简单的JAVASCRIPT函数SEND(STR,URL)---------------
34使用到的是XMLDOM和XMLHTTP对象.用这种技术的好处是:全JS控制,方便/简单,比RDS
35或者remote好多了.(前提:服务器端和客户端都必须安装IE5或者更高版本),在俺贴的
36那个无刷新在线信息功能使用的也是这种技术.有兴趣的朋友可以看看..
37function Send(Str,URL)
38//STR参数是传入的XML数据,你也可以传入其他文本数据.
39//不过这个函数需要服务器端处理之后返回XML数据,你也可以修改一下
40//URL参数表示你所要处理数据的ASP文件地址
41
{
42
var Http = new ActiveXObject("Microsoft.XMLHTTP") //建立XMLHTTP对象
43var Dom = new ActiveXObject("Microsoft.XMLDOM") //建立XMLDOM对象
44Http.open("POST",URL,false)
45//第一个参数的意思是,用"POST"方式发送数据.可以大到4MB,也可以换为"GET".只能256KB
46//第2个参数的意思是数据发送到哪个文件处理
47//第3个参数意思是同步或异步方式.TRUE为异步,FALSE为同步
48Http.send(Str) //开始发送数据
.嘟嘟..
49Dom.async=false //设置为同步方式获取数据
50Dom.loadXML(Http.responseText)
51//开始获取服务器端处理后返回的数据.我在这里设置必须为XML数据,否则出错.
52//你也可以自己修改.使返回的是2进制或者记录集数据
53if(Dom.parseError.errorCode != 0) //检查是否发生获取数据时错误
54
{
55delete(Http)
56delete(Dom)
57return(false)
58
}
59else
60{
61var Back = Dom.documentElement.childNodes.item(0).text
62//得到返回的XML数据,我这里假设处理程序只返回一行XML数据(一个节点)
63delete(Http)
64delete(Dom)
65return(Back) //函数返回数据..结束
66}
67
}
68
69VAR CAT = Send("<用户资料><姓名>谢柠檬</姓名></用户资料>","HTTP://WWW.CHINAASP.COM/VIVA.ASP")// 执行函数
70IF(CAT == FALSE)
71{
72ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败..")
73}
74ELSE
75{
76IF(EVAL(CAT))
77{
78ALERT("OK.数据已经发送成功.兼以处理完成!!!!!!")
79}
80ELSE
81{
82ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败..")
83}
84}
85
86===============================VIVA.ASP============================
87ON ERROR RESUME NEXT
88DIM BOBO
89DIM MOMO
90SET BOBO = SERVER.CREATEOBJECT("MICROSOFT.XMLDOM")
91BOBO.ASYNC = FALSE
92BOBO.LOAD REQUEST
93IF BOBO.PARSEERROR.ERRORCODE <> 0 THEN
94RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")
95ELSE
96SET MOMO = BOBO.DOCUMENTELEMENT
97IF MOMO.CHILDNODES.ITEM(0).TEXT = "谢柠檬" THEN
98RESPONSE.WRITE("<程序处理结果><最终结果>TRUE</最终结果></程序处理结果>")
99ELSE
100RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")
101END IF
102END IF
103SET BOBO = NOTHING
104下面是个实际应用的例子
105
106 <%
107
108 Dim objXMLHTTP, xml
109 Set xml = Server.CreateObject("Microsoft.XMLHTTP") '创建对象
110
111 xml.Open "GET","http://www.pconline.com.cn/pcedu/emp 404/366680.html" ,False ' '设置对象,具体xmlhttp详细使用方法请见:http://www.cnsxml.com/blogview.asp?logID=273 《XMLHTTP 对象及其方法》一文
112
113 xml.Send '发送请求
114
115 Response.AddHeader "Content-Disposition", "attachment;filename=mitchell-pres.zip" '添加头给这个文件
116
117 Response.ContentType = "application/zip" '设置输出类型
118
119 Response.BinaryWrite xml.responseBody '输出二进制到浏览器
120 response.
121
122 Set xml = Nothing
123 %>
MSXML中提供了Microsoft.XMLHTTP对象，能够完成从数据包到Request对象的转换以及发送任务。 2
创建XMLHTTP对象的语句如下： 3
Set objXML = CreateObject("Msxml2.XMLHTTP") 或4
Set objXML = CreateObject(“Microsoft.XMLHTTP”)5
' Or, for version 3.0 of XMLHTTP, use:6
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") 7
对象创建后调用Open方法对Request对象进行初始化，语法格式为： 8
poster.open http-method, url, async, userID, password 9
Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。参数的含义如下所示： 10
http-method： HTTP的通信方式，比如GET或是 POST 11
url： 接收XML数据的服务器的URL地址。通常在URL中要指明 ASP或CGI程序 12
async： 一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作 13
userID 用户ID，用于服务器身份验证 14
password 用户密码，用于服务器身份验证 15
XMLHTTP对象的Send方法 16
用Open方法对Request对象进行初始化后，调用Send方法发送XML数据： 17
poster.send XML-data 18
Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。 19
XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示： 20
值 说明 21
0 Response对象已经创建，但XML文档上载过程尚未结束 22
1 XML文档已经装载完毕 23
2 XML文档已经装载完毕，正在处理中 24
3 部分XML文档已经解析 25
4 文档已经解析完毕，客户端可以接受返回消息 26
客户机处理响应信息 27
客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。客户机接收响应是通过XMLHTTP对象的属性实现的： 28
● responseTxt：将返回消息作为文本字符串； 29
● responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用； 30
● responseStream：将返回消息视为Stream对象 31
32
33
------就是下面这个很简单的JAVASCRIPT函数SEND(STR,URL)---------------34
使用到的是XMLDOM和XMLHTTP对象.用这种技术的好处是:全JS控制,方便/简单,比RDS35
或者remote好多了.(前提:服务器端和客户端都必须安装IE5或者更高版本),在俺贴的36
那个无刷新在线信息功能使用的也是这种技术.有兴趣的朋友可以看看.. 37
function Send(Str,URL) 38
//STR参数是传入的XML数据,你也可以传入其他文本数据.39
//不过这个函数需要服务器端处理之后返回XML数据,你也可以修改一下40
//URL参数表示你所要处理数据的ASP文件地址41
{
42
var Http = new ActiveXObject("Microsoft.XMLHTTP") //建立XMLHTTP对象43
var Dom = new ActiveXObject("Microsoft.XMLDOM") //建立XMLDOM对象44
Http.open("POST",URL,false)45
//第一个参数的意思是,用"POST"方式发送数据.可以大到4MB,也可以换为"GET".只能256KB46
//第2个参数的意思是数据发送到哪个文件处理47
//第3个参数意思是同步或异步方式.TRUE为异步,FALSE为同步48
Http.send(Str) //开始发送数据.嘟嘟..49
Dom.async=false //设置为同步方式获取数据50
Dom.loadXML(Http.responseText) 51
//开始获取服务器端处理后返回的数据.我在这里设置必须为XML数据,否则出错.52
//你也可以自己修改.使返回的是2进制或者记录集数据53
if(Dom.parseError.errorCode != 0) //检查是否发生获取数据时错误54
{
55
delete(Http)56
delete(Dom)57
return(false)58
}59
else60
{61
var Back = Dom.documentElement.childNodes.item(0).text 62
//得到返回的XML数据,我这里假设处理程序只返回一行XML数据(一个节点)63
delete(Http)64
delete(Dom)65
return(Back) //函数返回数据..结束66
}67
} 68
69
VAR CAT = Send("<用户资料><姓名>谢柠檬</姓名></用户资料>","HTTP://WWW.CHINAASP.COM/VIVA.ASP")// 执行函数70
IF(CAT == FALSE)71
{72
ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败..")73
}74
ELSE75
{ 76
IF(EVAL(CAT))77
{78
ALERT("OK.数据已经发送成功.兼以处理完成!!!!!!")79
}80
ELSE81
{82
ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败..")83
}84
} 85
86
===============================VIVA.ASP============================87
ON ERROR RESUME NEXT88
DIM BOBO89
DIM MOMO90
SET BOBO = SERVER.CREATEOBJECT("MICROSOFT.XMLDOM")91
BOBO.ASYNC = FALSE92
BOBO.LOAD REQUEST93
IF BOBO.PARSEERROR.ERRORCODE <> 0 THEN94
RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")95
ELSE96
SET MOMO = BOBO.DOCUMENTELEMENT97
IF MOMO.CHILDNODES.ITEM(0).TEXT = "谢柠檬" THEN98
RESPONSE.WRITE("<程序处理结果><最终结果>TRUE</最终结果></程序处理结果>")99
ELSE100
RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")101
END IF102
END IF103
SET BOBO = NOTHING 104
下面是个实际应用的例子105
106
<%107
108
Dim objXMLHTTP, xml109
Set xml = Server.CreateObject("Microsoft.XMLHTTP") '创建对象110
111
xml.Open "GET","http://www.pconline.com.cn/pcedu/emp 404/366680.html" ,False ' '设置对象,具体xmlhttp详细使用方法请见:http://www.cnsxml.com/blogview.asp?logID=273 《XMLHTTP 对象及其方法》一文112
113
xml.Send '发送请求114
115
Response.AddHeader "Content-Disposition", "attachment;filename=mitchell-pres.zip" '添加头给这个文件116
117
Response.ContentType = "application/zip" '设置输出类型118
119
Response.BinaryWrite xml.responseBody '输出二进制到浏览器120
response.121
122
Set xml = Nothing123
%>
浙公网安备 33010602011771号