用asp创建互联网应用程序

用asp创建互联网应用程序

ID:41009832

大小:74.50 KB

页数:13页

时间:2019-08-13

用asp创建互联网应用程序_第1页
用asp创建互联网应用程序_第2页
用asp创建互联网应用程序_第3页
用asp创建互联网应用程序_第4页
用asp创建互联网应用程序_第5页
资源描述:

《用asp创建互联网应用程序》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、用asp创建互联网应用程序  使用单机版应用软件的时代很快就要过去了,现在大部分的应用程序都开发出网络版或大都需要共享网络上丰富的数据资源。我们编写了很长时间基于客户端/服务器(C/S)的应用程序(比如pb),但是这些程序大部分只是运行在小型的局域网内部。然而,有很多客观的原因要求我们要修改这些程序以使它们能够运行在一个企业的内部网甚至是国际互联网。    需要开发这类程序的原因在于:首先,随着一个企业的规模逐渐扩大,公司可能会跨地区甚至跨国经营,每个分公司的员工的数量也会逐年增多,这些在外地的员工肯定需要频繁地访问

2、总公司的数据库资源;其次,集中应用程序的数据资源,能够使你更好的监控数据库的访问和使用情况;第三,你可以通过从一个集中的位置获取全局应用程序设置,从而维护和更新它们,最终达到缓减应用程序更新的目的;第四,尽量从Web服务器上访问数据库而不是从客户端上访问数据库,这样可以避免通过网络传送登录信息和客户密码,从而避免安全隐患;而且,使用浏览器从后台获取数据,这样能够避免刷新整个页面;最后,浏览器/服务器(B/S)结构的程序在客户端不必安装特殊的程序,只要使用一般的浏览器就可以了。    这就要求我们创建一个运行于互联网上

3、的应用程序,而假如想创建一个运行在HTTP协议上的VB程序,那么关键就是使用XML和XMLHTTPRequest对象。这个对象是MicrosoftXML分析器(msxml.dll)的一部分,XMLHTTPRequest对象可以通过HTTP向远程服务器发送GET和POST请求,运行在远程服务器上的程序接收这个请求,翻译出它的内容,返回数据或者一个错误页面到调用它的应用程序。    想要修改一个完全独立的客户端单机版程序从而达到以上目的是不现实的,但即使如此,从一个集中的服务器上下载应用程序设置也比使用本地的INI文件或

4、Windows注册标有更大的独立性和灵活性。举例来说,假设你有一支手机销售队伍,他们需要访问集中化的信息来更有效的销售手机,每天,总公司集中收集数据,然后用电子邮件的形式发送给销售人员。然而,市场的压力和迅速变化的销售形式势必使销售人员要访问最新的数据信息。但是,网络管理员却坚持拒绝让在远程客户端的销售人员访问总公司数据库服务器,因为他们不想通过公用的网络发送用户名和登录密码。因此势必要使用一种新的技术代替基于客户端/服务器的技术。    在一个标准的客户端/服务器应用程序中,在应用程序开始时,你能够初始化数据库连接

5、字符串,这就意味着,客户有使用数据库连接字符串的权利,这包括用户名和口令。但是客观情况如果不允许你在网络上发送这些信息的话,你就必需在不联接数据库的情况下直接从客户端取得数据发送给客户。那么解决方案之一就是在服务器上创建一个ASP页(在本例中称为getData.asp)接收特定格式的POST数据,它要求一个包含XML字符串,用来创建ADO对象并运行存储过程或动态SQL语句命令。如果信息有效的话,getData.asp执行存储过程,并返回一个XML格式的数据集、返回值列表或错误页面信息的XML字符串。对于返回数据的命令

6、,客户端要么重新实例化要么返回值或使用XMLDOM(DocumentObjectModel文档对象模型)格式的错误页面。    这个页面的实现方法如下:    getData.asp页面首先使用一个DOMDocument对象来保存客户端发送的数据:    '创建DOMDocument对象  Setxml=Server.CreateObject("msxml2.DOMDocument")  xml.async=False    然后,它装载POST数据    '装载POST数据  xml.LoadRequest  If

7、xml.parseError.errorCode<>0Then   CallresponseError("不能装载XML信息。"&"Description:"&xml.parseError.reason&"<br>Line:"&xml.parseError.Line)  EndIf    它能够返回commandtext元素值和returndata或returnvalue元素值。下面只给出返回commandtext元素值的代码,其余代码请参看所附的源程序。    SetN=xml.selectSingleNode("

8、command/commandtext")  IfNIsNothingThen   CallresponseError("缺少<sp_name>参数。")  Elsesp_name=N.Text  EndIf    接着,应该让页面创建一个Command对象,读入所有<param>元素,并且为request中的每一个元素创建一个参数。最后,让页

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。