|
关键字:XMLHTTP,XML,Web客户端,C#,ASP
所有的知识都不是最新的知识点,关键是达到自己的设计目的。
某些时候,我们可能需要客户端做点什么以简化复杂的脚本处理,比如加密之类的等。
不管用什么样的客户端,首先我们应该确定我们遵守的协议,或者说如何设置或获取我的数据。这里,我们的服务器端为IIS5的ASP程序,所以我们首先遵守的是HTTP协议,然后在HTTP协议上传输XML。用XML是因为更容易统一我们的数据格式,有XML这种思想我们为什么不用呢。
恰好XMLHTTP,就是基于HTTP传输XML的很方便的类。
首先简要说一下XMLHTTP的两个函数:
open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword)
按照bstrMethod指定的HTTP方法(如POST,GET等)打开bstrUrl指定的连接,其中varAsync为是否异步,bstrUser, bstrPassword为访问bstrUrl时需要用户及密码。
send(varBody)
发送的数据,或者应该说是提交的数据。
具体可以查看相关的MSXML SDK。
以下利用C#实现XML的传输,假定反馈的XML格式为"<RESPONSE><ERROR ID=\"0\">成功</ERROR></RESPONSE>"
private MSXML2.DOMDocument40Class zXml; // 处理服务器反馈结果 private int zLastErrorCode;
private string zLastErrorDescription;
private const int OkSuccess=0;
//以Err打头的都是一些常量
private int ExecuteCmd(string sCmd, string method, string ext)
{
//根据sCmd计算出sURL的代码省略。
//……
try { //MessageBox.Show(sURL); zXmlHttp.open(method, sURL, false,"",""); zXmlHttp.send(ext); } finally { // 检测设置最后的错误代码和描述
// 检查zXmlHttp的状态 if(zXmlHttp.status / 100 ==2) //200, 201, 202, 203, 204, 205, 206 { // 成功 //MessageBox.Show(zXmlHttp.responseText); zXml.loadXML(zXmlHttp.responseText); if(zXml.parseError.errorCode!=0) { zLastErrorCode = ErrProtocol; //zLastErrorDescription = "解析服务器反馈结果时出现错误,协议版本可能不正确"; zLastErrorDescription = zXml.parseError.reason; //本行应该仅作调试时使用,发布时应该使用上一行 // MessageBox.Show(zXmlHttp.responseText); } else { s = GetXmlNodeValue(zXml,"/RESPONSE/ERROR/@ID");
if(s.Length==0) { zLastErrorCode = OkSuccess; } else { try { zLastErrorCode = Convert.ToInt32(s); } catch { zLastErrorCode = ErrUnknown; } }
zLastErrorDescription = GetXmlNodeValue(zXml, "/RESPONSE/ERROR"); if(zLastErrorDescription.Length==0) { if(zLastErrorCode==OkSuccess) { zLastErrorDescription = "执行成功"; } else { zLastErrorDescription = "未知错误信息"; } } } } else { // 服务器出错 zLastErrorCode = ErrService; zLastErrorDescription = zXmlHttp.statusText; } }
return zLastErrorCode; }
然后是服务器端的Test.asp
<% LANGUAGE=VBSCRIPT %>
<%
Dim oXml
Set oXml = Server.CreateObject("Msxml2.DOMDocument.4.0") oXml.async = False oXml.resolveExternals = False
oXml.load Request
'然后对提交的XML数据进行处理
Set oXml = Nothing
'最后是反馈处理结果 Response.ContentType = "text/xml" '由于反馈的是XML不可缺!! Response.CharSet= "gb2312" '反馈的内容的编码,不可缺!!否则会出现非法字符不能被客户端解析Response.Write "<?xml version=""1.0"" encoding=""gb2312"" ?>" & vbCrlf Response.Write "<RESPONSE><VERSION>1.0.0.0</VERSION><TEST>中国人民万岁</TEST></RESPONSE>" & vbCrlf %>
最后要说的是传输的XML数据格式,可以说就是你自己定义的协议了,以上只不过是抛砖引玉而已。努力,一切在你自己。
|