IDC资讯中心
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) //检查是否发生获取数据时错误
{
delete(http)
delete(dom)
return(false)
}
else
{
var back = dom.documentelement.childnodes.item(0).text
//得到返回的xml数据,我这里假设处理程序只返回一行xml数据(一个节点)
delete(http)
delete(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
