ASP教程之实战ASP(7):利用ASP、VB和XML创立运转于...
结论：和PHP一样，ASP简单而易于维护，很适合小型网站应用，通过DCOM和MTS技术，ASP甚至还可以完成小规模的企业应用，但ASP的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。xml|法式|互联网|xml|互联网 利用ASP、VB和XML创立运转于互联网上的使用法式(1)在团体电脑上利用单机版使用软件的时期很快就要曩昔了，如今大局部的使用法式都开辟出收集版或大都需求同享收集上丰厚的数据资本。咱们固然写了很长工夫基于客户端/办事器的使用法式，然而这些法式大局部只是运转在小型的局域网外部。但是，有良多客不雅的缘由请求咱们要修正这些法式以使它们可以运转在一个企业的外部网乃至是国际互联网。
是甚么缘由迫使咱们做呢？起首，跟着一个企业的范围逐步扩展，公司能够会跨区域乃至跨国运营，每一个分公司的员工的数目也会逐年增多，这些在外埠的员工一定需求频仍地会见总公司的数据库资本；其次，集中使用法式的数据资本，可以使你更好的监控数据库的会见和利用情形。第三，你可以经由过程从一个集中的地位获得全局使用法式设置，从而保护和更新它们，终究到达缓减使用法式更新的目标。第四，尽可能从Web办事器上会见数据库而不是从客户端上会见数据库，如许可以免经由过程收集传送登录信息和客户暗码，从而防止平安隐患；并且，利用阅读器从后台获得数据，如许可以防止刷新全部页面。
这就请求咱们创立一个运转于互联网上的使用法式，而假设想创立一个运转在HTTP协定上的VB法式，那末关头就是利用XML和XMLHTTPRequest对象。这个对象是Microsoft XML剖析器（msxml.dll）的一局部，XMLHTTPRequest对象可让你经由过程HTTP向近程办事器发送GET和POST恳求，运转在近程办事器上的法式吸收这个恳求，翻译出它的内容，前往数据或一个毛病页面到挪用它的使用法式。对收集编程有一些研讨的伴侣会看出我这个假想很象SOAP，然而在这里我不想利用SOAP，由于假如那样的话会使法式变得很庞杂。
想要改动一个完整自力的客户端单机版法式是不太实际的，但即便如斯，从一个集中的办事器高低载使用法式设置也比利用当地的INI文件或Windows注册标有更大的自力性和天真性。举例来讲，假定你有一支手机发卖步队，他们需求会见集中化的信息来更无效的发卖手机，天天，总公司集中搜集数据，然后用电子邮件的模式发送给发卖人员。但是，市场的压力和敏捷变更的发卖模式必将使发卖人员要会见最新的数据信息。然而，收集办理员却保持回绝让在近程客户真个发卖人员会见总公司数据库办事器，由于他们不想经由过程公用的收集发送用户名和登录暗码。因而必将要利用一种新的手艺取代基于客户端/办事器的手艺，不要焦急，我想看完本文你就会处理这个成绩的。
让咱们先剖析一下客户端/办事器使用法式。在一个尺度的客户端/办事器使用法式中，在使用法式入手下手时，你可以初始化数据库毗连字符串，这就意味着，客户有利用数据库毗连字符串的权力，这包含用户名和口令。然而客不雅情形假如不答应你在收集上发送这些信息的话，你就必须在不联接数据库的情形下直接从客户端获得数据发送给客户。那末处理计划之一就是在办事器上创立一个ASP页（在本例中称为getData.asp）吸收特定格局的POST数据，它请求一个包括XML字符串，用来创立ADO对象并运转存储进程或静态SQL语句号令。假如信息无效的话，getData.asp履行存储进程，并前往一个XML格局的数据集、前往值列表或毛病页面信息的XML字符串。关于前往数据的号令，客户端要末从头实例化要末前往值或利用XML DOM(Document Object Model文档对象模子）格局的毛病页面。
好，上面就让咱们来会商一下若何完成这个页面吧！
getData.asp页面起首利用一个DOMDocument对象来保留客户端发送的数据：
'创立DOMDocument对象
Set xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = False
然后，它装载POST数据
'装载POST数据
xml.Load Request
If xml.parseError.errorCode ＜＞ 0 Then
Call responseError ("不克不及装载XML信息。" & "Description: " & xml.parseError.reason & "＜br＞Line: " & xml.parseError.Line)
End If
它可以前往commandtext元素值和returndata或returnvalue元素值。上面我只给出前往commandtext元素值的代码，其他代码请参看我上面所附的源法式。
Set N = xml.selectSingleNode("command/commandtext")
If N Is Nothing Then
Call responseError ("短少 ＜sp_name＞ 参数。")
Else sp_name = N.Text
End If
接着，应当让页面创立一个Command对象，读入一切＜param＞元素，而且为request中的每个元素创立一个参数。最初，让页面翻开一个毗连利用存储进程adExecuteNoRecords选项来履行request。
set conn = Server.CreateObject("ADODB.Connection")
conn.Mode=adModeReadWrite
conn.open Application("ConnectionString")
set cm.ActiveConnection=conn
' 前往数据
if not returnsData then
cm.Execute
else
set R = server.CreateObject("ADODB.Recordset")
R.CursorLocation = adUseClient
R.Open cm, ,adOpenStatic, adLockReadOnly
end if
假如可以前往数据的话，那末returnData变量就为真值，而且把了局数据集前往到客户端，依然是一个XML文档。
if returnsData then
R.Save Response, adPersistXML
if err.number ＜＞ 0 then
call responseError ("数据集产生存储毛病" & "在号令'" & CommandText & "': " & Err.Description)
Response.end
end if
假如输入参数前往值，那末这个页面将前往一个包括这些值的XML字符串。文档的根元素是一个＜values＞标志，每个前往值都有其响应的子元素，假如产生任何毛病，页面城市格局化并前往一个包括毛病信息的XML字符串：
Sub responseError(sDescription)
Response.Write "＜response＞＜data＞毛病: " & sDescription & "＜/data＞＜/response＞"
Response.end
End Sub
假定在咱们后面所说的例子中，咱们想在使用法式中显示区域的左半边显示客户的姓名列表，再在每一个客户姓名前面加上两个链接：Purchase History和Recent Purchase。当用户点击个中的一个链接，客户法式就会运转一个存储进程并在右侧区域显示出了局。 为了显示这个设法的天真性，我想让用于前往数据的三个操作单位履行分歧的任务进程，它们都挪用getData.asp。起首，经由过程挪用CustOrderHist来运转一个存储进程，前往客户的Purchase History，它搜刮Northwind数据库（为了便利起见我利用MS SQL中自带的数据库）并前往一个数据集。用于前往Recent Purchase 的查询语句运转一个叫RecentPurchaseByCustomerID的存储进程，来吸收输出的CustomerID参数并经由过程ProductName参数前往比来顾客购置的商品名。界说其处置进程响应SQL语句以下：
CREATE PROCEDURE RecentPurchaseByCustomerID @CustomerID nchar(5), @ProductName nchar(40) output AS SELECT @ProductName = (SELECT top 1 ProductName FROM Products INNER JOIN ( INNER JOIN Orders ON Orders.OrderID=.OrderID) ON Products.ProductID = .ProductID WHERE Orders.OrderDate = (SELECT MAX(orders.orderdate) FROM Orders
where CustomerID=@CustomerID) AND Orders.CustomerID=@CustomerID) GO
不论你的查询语句中含有静态SQL语句仍是含有前往纪录集的存储进程或是输入一个前往值，其处置POST动静的办法是一样的：
set xhttp = createObject ("msxml2.XMLHTTP")
xhttp.open "POST", "http://localhost/myWeb/ getData.asp", False
xhttp.send s
好了，如今让咱们看一看若何发送和吸收数据
客户真个XML信息是由一个＜command＞元素和一些子元素构成：＜commandtext＞元素包括了存储进程的称号，＜returnsdata＞元素告知办事器，客户端是不是请求吸收前往数据，＜param＞元素包括参数信息。假如不利用参数的话，那末最复杂的发送字符串查询就象上面如许：
＜command＞
＜commandtext＞
存储进程或静态SQL语句
＜/commandtext＞
＜returnsvalues＞True＜/returnsvalues＞
＜/command＞
你可觉得每个参数利用一个＜param＞元素，来添加参数。每一个＜param＞元素有五个子元素：name，type，direction，size和value。子元素的按次可以随便互换，然而一切的元素都应该有不克不及短少，我凡是依照界说一个ADO对象的值的按次来界说它们。举例来讲，CustOrderHist存储进程需求一个CustomID参数，所以用来创立发送到getData.asp的XML字符串的代码为：
dim s
s = "＜?xml version=""1.0</p>缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
页:
[1]