日期:2011-10-16  浏览次数:21067 次

MSXML中提供了Microsoft.XMLHTTP对象,能够完成从数据包到Request对象的转换以及发送任务。
创建XMLHTTP对象的语句如下:
SetobjXML=CreateObject("Msxml2.XMLHTTP")或
SetobjXML=CreateObject(“Microsoft.XMLHTTP”)
'Or,forversion3.0ofXMLHTTP,use:
'Setxml=Server.CreateObject("MSXML2.ServerXMLHTTP")
对象创建后调用Open方法对Request对象进行初始化,语法格式为:
poster.openhttp-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.sendXML-data
Send方法的参数类型是Variant,可以是字符串、DOM树或任意数据流。发送数据的方式分为同步和异步两种。在异步方式下,数据包一旦发送完毕,就结束Send进程,客户机执行其他的操作;而在同步方式下,客户机要等到服务器返回确认消息后才结束Send进程。
XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示:
值说明
0Response对象已经创建,但XML文档上载过程尚未结束
1XML文档已经装载完毕
2XML文档已经装载完毕,正在处理中
3部分XML文档已经解析
4文档已经解析完毕,客户端可以接受返回消息
客户机处理响应信息
客户机接收到返回消息后,进行简单的处理,基本上就完成了C/S之间的一个交互周期。客户机接收响应是通过XMLHTTP对象的属性实现的:
●responseTxt:将返回消息作为文本字符串;
●responseXML:将返回消息视为XML文档,在服务器响应消息中含有XML数据时使用;
●responseStream:将返回消息视为Stream对象
------就是下面这个很简单的JAVASCRIPT函数SEND(STR,URL)---------------使用到的是XMLDOM和XMLHTTP对象.用这种技术的好处是:全JS控制,方便/简单,比RDS
或者remote好多了.(前提:服务器端和客户端都必须安装IE5或者更高版本),在俺贴的
那个无刷新在线信息功能使用的也是这种技术.有兴趣的朋友可以看看..functionSend(Str,URL)
//STR参数是传入的XML数据,你也可以传入其他文本数据.
//不过这个函数需要服务器端处理之后返回XML数据,你也可以修改一下
//URL参数表示你所要处理数据的ASP文件地址
{
varHttp=newActiveXObject("Microsoft.XMLHTTP")//建立XMLHTTP对象
varDom=newActiveXObject("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
{
varBack=Dom.documentElement.childNodes.item(0).text
//得到返回的XML数据,我这里假设处理程序只返回一行XML数据(一个节点)
delete(Http)
delete(Dom)
return(Back)//函数返回数据.......................结束
}
} VARCAT=Send("<用户资料><姓名>谢柠檬</姓名></用户资料>","")//执行函数
IF(CAT==FALSE)
{
ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败........")
}
ELSE
{
IF(EVAL(CAT))
{
ALERT("OK.数据已经发送成功.兼以处理完成!!!!!!")
}
ELSE
{
ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败........")
}
} ========================VIVA.ASP======================
ONERRORRESUMENEXT
DIMBOBO
DIMMOMO
SETBOBO=SERVER.CREATEOBJECT("MICROSOFT.XMLDOM")
BOBO.ASYNC=FALSE
BOBO.LOADREQUEST
IFBOBO.PARSEERROR.ERRORCODE<>0THEN
RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")
ELSE
SETMOMO=BOBO.DOCUMENTELEMENT
IFMOMO.CHILDNODES.ITEM(0).TEXT="谢柠檬"THEN
RESPONSE.WRITE("<程序处理结果><最终结果>TRUE</最终结果></程序处理结果>")
ELSE
RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")
ENDIF
ENDIF
SETBOBO=NOTHING