CSDN博客

img ChinaOk

用XMLHTTP实现伪Web服务

发表于2002/4/16 9:13:00  834人阅读

分类: XML&ASP XML&ASP

本文揭示XMLHTTP的神秘面纱。我很喜欢使用XMLHTTP,主要是因为它能够将任何ActiveX类方法展示给客户。就是说,你能够让客户调用你的ActiveX控件。

===========================================================
本文揭示XMLHTTP的神秘面纱。我很喜欢使用XMLHTTP,主要是因为它能够将任何ActiveX类方法展示给客户。就是说,你能够让客户调用你的ActiveX控件。最主要的是所有的通讯都是在后台进行的。使用XMLHTTP能够扩展对数据库的存取能力。提交查询申请时,用XMLHTTP向ASP侦听(服务)页发出XML格式的指令,ASP网页随即解释该命令并调用VB activeX控件里的方法。这个VB控件用XML字符串形式将查询结果返回给ASP服务页,再由服务页将结果组装成XML格式返回给用户。在作这一系列事情时,不需对当前网页进行重加载。用户甚至不知道后台在作些什么。

在本文末尾可以下载有关示例源程序。

本文示例对系统的要求是:
MS SQL Server(包含pubs数据库示例),
MS IE 5.0+,
MSXML 3.0解析器,
MS IIS - 将示例中所有的ASP文件,CSS,及mybooks.xml文件拷贝到服务器的一个虚路径下。

将bookview.asp, xml_receive.asp, mybooks.xml, default.css, 和book.css等文件拷贝到服务器的一个虚路径下。
在服务器上注册WebClass.xmlcontrol(webclass.dll)。
在xml_receive.asp文件里设置SQL Server服务器名。
在webClass.xmlcontrol类里设置你的用户名和口令。

来看看XMLHTTP的功能:

客户端:这里是bookViewer.asp文件中的一段代码,用XMLHTTP来存取Pubs数据库的books:
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP"); //创建XMLHTTP对象
var xmlcmd='<?xml version="1.0"?><ENVELOPE><XMLCMD c1="gettitlesxml" p1="" p2="" p3=""></XMLCMD></ENVELOPE>';
xmlhttp.Open("POST","xml_receive.asp", false); //准备用XMLHTTP向xml_receive.asp发送指令
xmlhttp.Send(xmlcmd); //发出指令

第一行:创建XMLHTTP对象的引用。
第二行:创建XML指令。注意:可以不用XML格式而使用普通文件构造指令。之所以用XML格式,是因为它容易解析指令本身和指令的参数。
第三行:打开连接。其中第一个参数是http方法(最常使用的不是"POST"就是"GET")。第二个参数指向执行指令的URL路径。第三个参数决定是否异步执行。另外还可以加上二个参数,即用户名和口令。在上面的例子中,我用HTTP POST呼叫xml_receive.asp网页(我称它为侦听页),要求同步进行查询工作(在完成查询前不做其他事)。
第四行:发出指令,开始工作。注意:指令是由第二行代码作出的。因为使用了同步执行方式,现在只能坐等结果返回。

侦听页(xml_receive.asp)工作基础
我把这个网页称为侦听页,是因为它在服务端坐等XMLHTTP指令的到来。收到查询请求后,它要做三件事。
首先,将查询请求加载到XML DOM,并对指令及其参数进行解析。
其次,根据客户要求,调用后台Active X控件的处理方法。后台Active X控件将执行结果用XML字符串返回。
第三,将返回结果加载到XML DOM并用Response对象返回给用户。
[译者注:这是一种很典型的三层应用,可以举一反三。]

以上三步骤具体执行如下:

侦听页(第一步 - 指令解析):
以下是xml_receive.asp文件中的一段代码,后面附有注释。这段代码用于解析接收到的查询指令和参数(parameter1, parameter2, parameter3)。参数的数量可以任意增加。

    var doc = Server.CreateObject("Msxml2.DOMDocument");
    doc.load(Request); //将XMLHTTP请求加载到XML DOM进行解析
    var c1=doc.childNodes.item(1).childNodes.item(0).attributes.item(0).text; //指令
    var p1=doc.childNodes.item(1).childNodes.item(0).attributes.item(1).text; //参数1
    var p2=doc.childNodes.item(1).childNodes.item(0).attributes.item(2).text; //参数2
    var p3=doc.childNodes.item(1).childNodes.item(0).attributes.item(3).text; //参数3
    if (doc.childNodes.item(1).childNodes.length==2) //检验xml
    var passedXML=''+doc.childNodes.item(1).childNodes.item(1).xml;
    var xmlreturn=''; //初始化返回值
    var doc=null; //释放XML DOM

侦听页(第二步 - 调用后台Active X控件的适当方法):
以下是xml_receive.asp文件中调用"gettitlesxml"方法的一段代码。它创建Active X对象并调用其中的GetTitlesXML()方法来返回Pubs数据库的查询结果。记住,结果是用XML字符串方式返回。

//************* Function gettitlesxml ***********************
if (c1=="gettitlesxml")
{
   resultsXML=true; //加载结果的xml字符串
   var objWC= Server.CreateObject("WebClass.xmlControl"); //初始化VB控件
   objWC.strServer=sqlServer; //指向SQL Server服务器
   xmlreturn=objWC.GetTitlesXML(); //VB函数,用XML字符串返回标题
   var objWC=null; //释放VB控件
}

侦听页(第三步 - 返回结果):
以下是xml_receive.asp文件中的一段代码,将查询结果返回给用户。这里包括创建结果DOM,加载结果到DOM,检查加载是否正确,最后用ASP的Response对象将结果返回给用户。注意:是用XML DOM的Save方法返回结果,其参数为Response,表示将结果存入Response输出流。

var result =  Server.CreateObject("Msxml2.DOMDocument"); //创建结果XML DOM

if (resultsXML) //加载XML字符串
{
   result.loadXML(xmlreturn); //调用loadXML将字符串加载到DOM
   if (c1=="savemybooks") result.save(Server.MapPath(p1)); //如果需要,保存XML文件
}

if ( result.parseError.errorCode!=0 ) //解析出错
{
   //返回结果
   xmlreturn='<?xml version="1.0"?><RESULTS error="true">FALSE</RESULTS>';
   result.loadXML(xmlreturn); //将出错信息加入到结果
}

//用ASP Response对象将结果返回给用户
Response.ContentType = "text/xml"; //返回XML格式文件
result.save(Response);//将DOM存放到HTTPResponse输出流
var result = null;

返回到客户端(bookViewer.asp)
服务端工作时,客户端只有耐心等待。一旦收到返回结果,就将其加载到XML DOM,并用ASP表单显式。

objSallbooks.load(xmlhttp.responseXML); //将返回值加载到DOM
var xmlhttp = null;
//检验返回是否出错
if (objSallbooks.childNodes.item(1).childNodes.item(0).nodeValue=="FALSE") Snumberofbooks=0;
else Snumberofbooks=(objSallbooks.childNodes.item(1).childNodes.length); //设置Books数量
if (Snumberofbooks>0)             display_book(0,1); //显式第一本书籍名

第一行:将XMLHTTP的Response加载到XML DOM对象objSallBooks中去。XMLHTTP另外还有responseText方法用于加载普通文件。
第二行:因为已经建立了XML DOM,可以不再需要XMLHTTP了。
第三行:如果出错,侦听页会返回<?xml version="1.0"?><RESULTS error="true">FALSE</RESULTS>出错信息。
第四行:如果正确,DOM里就有查询结果,并可通过根节点的子节点长度求得结果数量。
第五行:如果有结果,就将结果绑定到表单上显示。

现在可以对gettitlesxml函数作些补充。
对BookViewer.ASP文件作一些改动就能增强gettitlesxml函数的查询功能。用户可以根据书籍的类型,价格和销售日期对书籍进行查询。下面就是改动的代码。注意文本框由原先的只读方式改为常规方式。

var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
var where= "";
if(document.frmFields.Stype.value.length>0) where=where + " type= '"+document.frmFields.Stype.value+"' AND ";
if(document.frmFields.Sprice.value.length>0) where=where + " price<= "+document.frmFields.Sprice.value+" AND ";
if(document.frmFields.Ssales.value.length>0) where=where + " ytd_sales>= "+document.frmFields.Ssales.value;
if(where.length>0) where = " WHERE " + where;
var xmlcmd='<?xml version="1.0"?><ENVELOPE><XMLCMD c1="gettitlesxml" p1="'+where+'" p2="" p3=""></XMLCMD></ENVELOPE>'; xmlhttp.Open("POST", "xml_receive.asp", false);  //用XMLHTTP向xml_receive.asp传送指令
xmlhttp.Send(xmlcmd);//发出XML指令

第二行到第六行:建立查询语句
第七行:与原先的代码不同在于增加了一个p1参数,它是由第二行到第七行代码建立的。

xml_receive.ASP文件的改动:
将新增的p1参数加入到Active X控件的GetTitlesXML函数中。

//************* Function gettitlesxml ***********************
if (c1=="gettitlesxml")
{
   resultsXML=true; //加载结果的xml字符串
   var objWC= Server.CreateObject("WebClass.xmlControl"); //初始化VB控件
   objWC.strServer=sqlServer; //指向SQL Server服务器
   xmlreturn=objWC.GetTitlesXML(p1); //VB函数,用XML字符串返回结果
   var objWC=null; //释放VB控件
}

结语
这里所作的一切是为了将ASP的客户互动应用技术提高一个档次。用户能够在一个简单的网页里访问数据库。查询过程由XMLHTTP在后台执行,给用户的感觉就象在用一个Windows程序而不是Web应用。本文涉及的是Web服务理念。比Web服务更为复杂的是SOAP协议,它能使Web服务更具有弹性。在一般情况下 (只要不是分布式应用),用上面给出的方法是足够的了。

按照上面描述的技术路线:
 客户端应用-->ASP侦听页-->Active X控件,以及Active X控件-->ASP侦听页-->客户端应用
提供的方法,可以在客户端和后台Active X控件之间建立通讯联系。ASP的侦听页可以给出用户需要的Active X控件的部分方法和属性,而将其他内容隐藏起来。在侦听页中可以建立加密机制。这样可以使得整个数据库安全性得到很大程度的提高。因为所有对数据库的访问都是通过Active X进行的,只要一些必需的访问函数暴露在ASP文件中。

附件:Http://www.ChinaOk.net/down/200204150806170.zip

0 0

相关博文

我的热门文章

img
取 消
img