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") |
| poster.open http-method, url, async, userID, password |
| poster.send XML-data |
| 值 | 说明 |
| 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 |