基于Visual Basic的ASP组件的开发

维普资讯

・开发研究与设计技术・・・・・・　本栏目责任编辑：谢媛媛　基于Ｖｉｓｕａｌ　Ｂａｓｉｃ的ＡＳＰ组件的开发　郭晓俐　（盐城师范学院计算机系，江苏盐城２２４００１）　摘要：组件是对数据和方法的简单封装，组件有自己的属性和方法，使用组件可以实现拖放式编程、快速的属性处理以及真正的面向　对象的设计。组件技术日益成为软件开发新技术。本文详细介绍了动态网页开发中使用ＡＳＰ组件的优势．ＡＳＰ组件的特点，开发的工具　组件构成，以及利用组件进行三层应用程序开发有很好的借鉴作用。　关键词：组件；ＣＯＭ；线程；ＶＢ；ＡＳＰ　以及一般开发流程。并以文件读取ＡＳＰ组件为例，对ＶｉｓｕａｌＢａｓｉｃ中组件的开发作了具体阐述，并应用于Ｗｅｂ应用程序。本文对了解ＡＳＰ　中图分类号：ＴＰ３１１　文献标识码：Ａ　文章编号：１００９—３０４４（２００７）０５—１１２９０－０１　ＧＵｏ）（ｉａｏ－ｌｉ　Ｄｅｖｅｌｏｐｉｎｇ　ＡＳＰ　Ｃｏｍｐｏｎｅｎｔｓ　Ｂａｓｅｄ　ｏｎ　Ｖｉｓｕａｌ　Ｂａｓｉｃ　（Ｄｅｐａｒｔｍｅｎｔ　ｏｆ　Ｃｏｍｐｕｔｅｒ　Ｓｃｉｅｎｃｅ，Ｙａｎｃｈｅｎｇ　Ｔｅａｃｈ　Ｃｏｌｌｅｇｅ，Ｙａｎｃｈｅｎ　２２４００１，Ｃｈｉｎａ）　．。　Ａｂｓｔｒａｃｔ：Ｃｏｍｐｏｎｅｎｔ，ｗｈｉｃｈ　ｉｓ　ｔｈｅ　ｓｉｍｐｌｅ　ｅｎｃａｐｓｕｌａｔｉｏｎ　ｏｆ　ｄａｔａ　ａｎｄ　ｍｅｔｈｏｄ，ｈａｓ　ｉｔｓ　ｏｗｎ　ａｔｔｉｂｕｔｒｅ　ａｎｄ　ｍｅｔｈｏｄｏｌｏｇｙ．Ｉｔ　ｃａｎ　ｂｅ　ｕｓｅｄ　ｔｏ　ａｃｈｉｅｖｅ　ｄｒａｇ—ａｎｄ—ｄｒｏｐ　ｐｒｏｇｒａｎｍｆｉｎｇ，ｉｎｓｔａｎｔ　ａｔｔｉｒｂｕｔｅ　ｍａｎｉｐｕｌａｔｉｏｎ　ａｎｄ　ｇｅｎｕｉｎｅ　ｏｂｊｅｃｔ—ｏｒｉｅｎｔｅｄ　ｐｒｏｇｒａｎｍｆｉｎｇ　Ｃｏｍｐｏｎｅｎｔ　ｔｅｃｈｎｉｑｕｅ　ｉｓ　ｂｅ－　ｃｏｍｉｎｇ　ｔｈｅ　ｔｅｃｈｎｉｑｕｅ　ｏｆ　ｎｏｗａｄａｙｓ　ｉｎ　ｔｈｅ　ｄｉｓｃｉｐｌｉｎｅ　ｏｆ　ｓｏｆｔｗａｒｅ　ｄｅｖｅｌｏｐ—ｍｅｎｔ、Ｔｈｉｓ　ｐａｓｓａｇｅ　ｄｅｔａｉｌｅｄｌｙ　ｉｎｔｒｏｄｕｃｅｓ　ａｄｖａｎｔａｇｅｓ　ａｎｄ　ｃｈａｒａｃｔｅｒｉｓｔｉｃｓ　ｏｆ　ＡＳＰ　ｃｏｍｐｏｎｅｎｔｓ　ａｓ　ｗｅｌｌ　ａｓ　ｄｅｓｉｇｎ　ｔｏｏｌｓ　ａｎｄ　ｇｅｎｅｒａｌ　ｄｅｓｉｎ　ｐｒｏｃｅｄｕｒｅｓｇ　ｉｎ　ｄｙｎａｍｉｃ　ｗｅｂ　ｃｏｎｓｔｒｕｃｔｉｏｎ．Ｗｉｔｈ　ｅｘａｍｐｌｅｓ　ｏｆ　ａｔｄａ—ｉｎｐｕｔ　ＡＳＰ　ｃｏｍｐｏ—　ｎｅｎｔ，ｔｈｅ　ｃｏｍｐｏｎｅｎｔｓ　ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｈａｖｅ　ｂｅｅｎ　ａｍｐｌｙ　ｄｅｓｃｒｉｂｅｄ　ａｎｄ　ｉｎｔｒｏｄｕｃｅｄ　ｉｎｔｏ　Ｗｅｂ　Ａｐｐｈｃａｔｉｏｎ　Ｔｈｅ　ｐａｓｓａｇｅ　ｐｒｅｓｅｎｔｓ　ｓｕｆｉ—　ｆｃｅｎｔ　ａｎｄ　ｇｏｏｄ　ｒｅｆｅｒｅｎｃｅｓ　ｆｏｒ　ｃｏｍｐｒｅｈｅｎｄｉｎｇ　ｔｈｅ　ｃｏｍｐｏｎｅｎｔ　ｃｏｍｐｏｓｉｔｉｏｎ　ｏｆ　ＡＳＰ　ａｎｄ　ｔｈｅｉｒ　ａｐｐｈｃａｔｉｏｎ　ｔｏ　３－ｌａｙｅｒ—ｐｒｏｇｒａｍ—ｄｅｖｅｌｏｐｍｅｎｔ．　Ｋｅｙ　ＷＯ￣Ｓ：Ｃｏｍｐｏｎｅｎｔ；Ｃｏｍ；Ｔｈｒｅａｄ；ＶＢ；ＡＳＰ　１引言　ＡＳＰ（Ａｃｔｉｖｅ　Ｓｅｒｖｅｒ　Ｐａｇｅ，活动服务器网页）是一种运行于服务　器端的Ｗｅｂ应用程序开发技术，是一种服务器端的脚本语言环　境。通过使用ＡＳＰ指令、ＨＴＭＬ语句，以及ＡＳＰ提供的内置Ａｃ—　ｔｉｖｅＸ组件可建立动态、交互且高效的Ｗｅｂ服务器应用程序。组件　在ＡＳＰ应用程序开发中发挥了极大的、便利的作用，如我们经常　使用ＡＤＯ组件访问数据库．进行数据查询、更改；使用Ｔｏｏｌｓ组件　在ＡＳＰ组件的开发上。没有所谓“正确”的工具，只要能够创　生成随机数，检查文件是否存在或处理ＨＴＭＬ表格：使用Ａｄ　Ｒｏ．　ｔａｔｏｒ组件显示广告信息，设置其变更频率。不仅如此，ＡＳＰ还支持　面向对象的可扩展ＡｃｔｉｖｅＸ组件功能，允许使用第三方语言创建　特定功能的服务器端组件，以扩展ＡＳＰ的功能。　建与ＣＯＭ相兼容的对象的工具都能用来创建ＡＳＰ组件。如Ｃ＋＋、　Ｖｉｓｕａｌ　Ｂａｉｓｃ、Ｄｅｌｐｈｉ和Ｊａｖａ等。使用Ｖｉｓｕａｌ　Ｂａｓｉｃ来编写的ＡＳＰ组　件和使用Ｖｉｓｕａｌ　Ｃ＋＋编写的相同组件相比较并没有明显的优势．　只是Ｖｉｓｕａｌ　Ｃ＋＋调用了更多的底层ＣＯＭ架构，效率更高，但Ｖｉ—　ｓｕａｌ　Ｃ＋＋使用起来更困难，而Ｖｉｓｕａｌ　Ｂａｉｓｃ更容易一些。　由于ＣＯＭ是一种基于二进制的网络标准．通过使用这种机　器级的通信，使用Ｖｉｓｕａｌ　Ｃ＋＋编写的组件可以调用Ｊａｖａ编写组件　所暴露的函数，而Ｊａｖａ组件也可以调用Ｖｉｓｕａｌ　Ｃ＋＋对象中的函数。　所以我们在选择组件开发工具时可根据自身对语言的掌握　２为什么要开发ＡＳＰ组件　ＡＳＰ组件是在ＡＳＰ环境下工作ＣＯＭ／ＣＯＭ＋对象．基于　ＣＯＭ＋．其中封装了一些只能在ＡＳＰ环境下使用的对象以实现某　种特定的功能，可以在ＡＳＰ页面中直接调用或者通过其它ＡＳＰ　组件间接调用。如果某一个ＡＳＰ组件不需要访问ＡＳＰ对象模型　提供ＡＳＰ专用对象，那么它就是一个一般ＡｃｔｉｖｅＸ组件。　那么为什么要在ＡＳＰ应用程序中使用ＡＳＰ组件来代替ＡＳＰ　脚本呢？原因有三：　程度以及组件自身的要求选择一种合适的工具。本文下列组件的　创建选择简单易行的Ｖｉｓｕａｌ　Ｂａｓｉｃ工具。　４怎样开发ＡＳＰ组件　在使用ＶＢ创建一个ＡＳＰ组件之前我们通常考虑以下问题：　４，１创建哪种类型组件　ＡＳＰ组件实际上就是ＡｃｔｉｖｅＸ控件，它分为进程内组件（Ａｃ．　ｔｉｖｅＸ　ＤＬＬ）和进程外组件（ＡｃｔｉｖｅＸ可执行文件）。进程内组件与创　建组件的应用共享地址空间（内存及其他资源），当组件被调用时，　方法的参数被装入的客户自己的堆栈中，提高了组件性能。当组件　（１）ＡＳＰ组件的重用性好。将一个ＡＳＰ脚本打包以便大量其他　页面反复使用它，这是比较麻烦的，并且用户可以轻易地看到脚　本功能实现的源代码　还可以自行修改，这是很不安全的。将重用　的代码放在组件中进行管理不仅效率高，而且组件是基于二进制　的，安全性好。　（２）ＡＳＰ组件本身可以存在于任何地方，甚至在不同机器上，　通过远程访问技术实现ＡＳＰ应用的分布式处理，增加处理多用户　访问的能力　远离客户时，一般要使用进程内代理（ｄｌｌｈｏｓｔ。ｅｘｅ）进程外组件对于　每个客户请求，组件自己可以为每个进程赋予不同的线程，这样组　件可以远离客户而无须使用进程内代理。方法的参数通过一个列　集进程在两个进程之间传递，列集所做的就是通过客户端的代理　服务器从堆栈中提取参数以及通过存根向堆栈中放置参数。　Ｖｉｓｕａｌ　Ｂａｓｉｃ支持这两种类型组件。在一个小型应用程序中，　我们考虑创建一个进程内组件。　４．２组件实例为哪种类型　（３）ＡＳＰ组件可以实现脚本语言不支持或无法实现的功能。如　ＡＳＰ应用可能需要调用Ｗｉｎｄｏｗｓ内核，或者需要管理文件的输入　输出，用ＶＢＳｃｒｉｐｔ或Ｊｓｃｒｉｐｔ很难实现，而通过文件读写组件（Ｆｉｌｅ　Ａｃｃｅｓｓ　Ｃｏｍｐｏｎｅｎｔ）可以方便地读写服务器端的文件。　３用什么样的工具开发ＡＳＰ组件　收稿日期：２００７－０１－１２　Ｖｉｓｕａｌ　Ｂａｓｉｃ支持单线程和套间线程两种进程内组件线程模　式。如果选择单线程组件；那么客户将在主线程上创建组件，而不　是在创建它的进程上，所有组件的访问以队列的形式限制在主线　程上，导致多用户访问瓶颈。考虑到Ｗｅｂ应用程序本身就是多用　（下转第１３２３页）　作者简介：郭晓俐（１９７４－），女，讲师，主要研究多媒体、嵌入式网络方向。　电脑知识与技术　

维普资讯

本栏目贲任编辑：谢媛媛　。。。。・开发研究与设计技术・　地址总线．可以实现硬件断点；ＷＰ　Ｄａｔａ　Ｖａｌｕｅ／Ｍａｓｋ寄存器用来监　ＧＤＢ远程调试协议．本调试系统就可以实现源码级调试。　控数据总线。每组寄存器都与一个比较器联系，比较器的比较结　５结束语　果决定了断点条件是否满足。　本文介绍的调试系统利用了ＡＲＭ处理器的硬件调试模块来　设置硬件断点的时候，将断点地址写入ＷＰ　Ａｄｄｒｅｓｓ　Ｖａｌｕｅ寄　实现基本的调试功能，可以满足嵌入式开发对于调试器的特殊需　存器中。当比较起检测到地址线中的地址和ＷＰ　Ａｄｄｒｅｓｓ　Ｖａｌｕｅ寄　求：并和ＧＤＢ已有调试功能结合，能够完成源码级调试。虽然本　存器中的地址匹配时．ＡＲＭ９２ｏＴ就自动ｈａｌｔ，进入调试状态。删除　调试系统目前仅适合于ＡＲＭ９２　ｒ处理器，但绝大多数ＡＲＭ处理　断点只要将ＷＰ　Ａｄｄｒｅｓｓ　Ｍａｓｋ寄存器置为全１就可以了。　器都带有硬件调试模块．因此可对本调试系统进行扩展，以支持　６与ＧＤＢ通信　尽可能多的ＡＲＭ处理器。ＡＲＭ处理器调试技术本身也还处于不　ＧＤＢ要调用上述各个调试功能。必须和调试代理通信，ＧＤＢ　断的发展当中，各种版本处理器的硬件调试模块在功能上也略有　远程调试协议就是它们之间通信的桥梁。ＧＤＢ远程调试协议是一　差别，只要不断对调试代理进行修改升级，就能实现更多更强的　种基于字符的应用层协议．所有报文都由字符构成。报文结构如　调试功能。　下：￥ｐａｃｋｅｔ—ｄｍａ＃ｃｈｅｃｋｓｕｍ。报文以“￥”字符开头，在“　和“＃”字符　参考文献：　之间是报文负载，“＃”之后是两个数字组成的校验码，校验码等于　［１］ＦＳＦ．ＧＤＢ　Ｕｓｅｒ　Ｍａｎｕａ１．　负载中所有字符的ＡＳＣＩＩ码之和模２５６的结果。协议规定的调试　［２］ＡＲＭ　Ｌｉｍｉｔｅｄ．ＡＲＭ　９２０Ｔ　Ｔｅｃｈｎｉｃａｌ　Ｒｅｆｅｒｅｎｃｅ　Ｍａｎｕａ１．ＡＲ—　命令见参考文献『１１。协议实现过程是，读取报文字符串并逐字节　ＭＤＤ１０１５１Ｃ．　解析．得出报文负载中的调试命令，然后调用相应的调试功能函　【３］ＯＰＥＮ－ＪＴＡＧ开发小组．ＡＲＭ　ＪＴＡＧ调试原理【Ｒ］．　数，执行完毕后向ＧＤＢ发送调试命令执行结果。　【４］ＩＥＥＥ一１　１４９．１—２００１，ＩＥＥＥ　Ｓｔａｎｄａｒｄ　Ｔｅｓｔ　Ａｃｃｅｓｓ　Ｐｏｒｔ　ａｎｄ　ＧＤＢ本身支持源码级调试，只要调试代理正确地实现了　Ｂｏｕｎｄａｒｙ—Ｓｃａｎ　Ａｒｃｈｉｔｅｃｔｕｒｅ［Ｓ］．　ｆ上接第１２９０页）　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　户的，组件在任何时候都要处理多个对象请求，对于进程内组件　Ｐｕｂｌｉｃ　Ｓｕｂ　ｗｒｉｔｅｔｅｘｔ（ＢｙＶａｌ　ｆｉｌｅｎａｍｅ　Ａｓ　Ｓｔｉｒｎｇ，ＢｙＶａｌ　ｎａｍｅ　Ａｓ　来说，最好的线程模型选择是套间线程。套间线程是Ｖｉｓｕａｌ　Ｂａｓｉｃ　Ｓｔｉｒｎｇ，ＢｙＶａｌ　ｃｏｄｅ　Ａｓ　Ｓｔｒｉｎｇ）　唯一支持的一种多线程模型，组件的实例在与创建实例的客户相　Ｄｉｍ　ｆｉｌｅｎｕｍｂｅｒ　Ａｓ　Ｓｔｒｉｎｇ　ｉｆｌｅｎｕｍｂｅｒ＝ＦｒｅｅＦｉｌｅ　同的线程中创建，每个对组件的请求都产生一个新的对象实例，　Ｏｐｅｎ　ｆｉｌｅｎａｍｅ　Ｆｏｒ　Ａｐｐｅｎｄ　Ａｓ＃ｆｉｌｅｎｕｍｂｅｒ　组件可以在任何时刻处理多个对象请求。在Ｖｉｓｕａｌ　Ｂａｓｉｃ环境中　Ｗｒｉｔｅ＃ｆｉｌｅｎｕｍｂｅｒ，ｎａｍｅ，ｃｏｄｅ　将参数值写人文件　可以通过设置组件类的Ｉｎｓｔａｎｃｉｎｇ属性选择单线程或套间线程　Ｃｌｏｓｅ＃ｆｉｌｅｎｕｍｂｅｒ　（ＭｕｈｉＵｓｅ）。　Ｅｎｄ　Ｓｕｂ　在ＶＢ环境下创建一个ＡＳＰ组件的步骤：　６实例组件在ＡＳＰ应用程序中的运用　ｆ１）Ｖｉｓｕａｌ　Ｂａｓｉｃ，选择ＡｃｔｉｖｅＸ　ＤＬＬ项目类型创建进程内组件，　＜％　或选择ＡｃｔｉｖｅＸ　ＥＸＥ项目类型创建进程外组件。得到一个项目文　ｄｉｍ　ｏｂｊ　件，其中包含一个默认的类文件。设置类文件Ｉｎｓｔａｎｃｉｎｇ属性为　ｓｅｔ　ｏｂｊ＝ｓｅｒｖｅｒ．ｅｒｅａｔｅｏｂｊｅｅｔ（”ａｓｐ００１．ｒｅａｄＲＷ”１　创建组件实例　ＭｕｈｉＵｓｅ；　ｄｉｍ　ｍｓｇ　ｆ２１在类文件中添加子程序或函数，创建组件的方法。两者的　ｍｓｇ＝ｏｂｊ．ｒｅａｄｔｅｘｔ（”Ｈ：＼项目ｋＡＳＰ项目＼创建组件２＼ｔｅｘｔ．ｄａｔ”）　差别就是子程序不需要返回值。因为组件将来要被外部（ＡＳＰ）访　读文件　问，因此定义为Ｐｕｂｌｉｃ。对于子程序或函数的参数传递一般选择按　ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”＜ｈ３＞”＆ｍｓｇ＆”＜／ｈ３＞”　在网页中显示文本文件内容　值传递；　ｏｂｊ．ｗｒｉｔｅｔｅｘｔ”Ｈ：＼项目　ＳＰ项目＼创建组件２＼ｔｅｘｔ．ｄａｔ”．”刘　ｆ３）保存项目文件和类文件，并且利用Ｍａｋｅ　ｅｐｍｐｏｎｅｎｔｎａｍｅ．　杨”，”８５４３２１５”　往文件里添加内容　ｄＵ项生成ＤＩ　文件；　ｓｅｔ　ｏｂｊ＝ｎｏｔｈｉｎｇ　ｆ４１将组件拷贝到Ｃ：＼ｗｉｎｎｔ￣ｓｙｓｔｅｍ３２＼，执行Ｃ：＼ｗｉｎｎｔ＼ｓｙｓ．　％＞　ｔｅｍ３２ｋｒｅｇｓｖｒ３２　．ｄｌｌ，注册组件。　７结束语　要取消注册这个ｄｌｌ。使用：　以上介绍了ＡＳＰ组件的特点和基于ＶＢ环境开发ＡＳＰ组件　Ｃ：＼ｗｉｎｎｔ￣ｓｙｓｔｅｍ３２＼ｒｅｇｓｖｒ３２／ｕ　．ｄｌｌ　的一般方法。使用ＡＳＰ组件技术使Ｗｅｂ应用程序的开发远远超　５一个ＡＳＰ组件实例　过建立网页相互连接的简单水平．降低了对Ｗｅｂ程序设计人员的　下面是实现文本文件读、写功能的一个组件。组件名称为　要求，使一般Ｗｅｂ程序设计人员集中精力针对应用需求开发安　ＡＳＰ０１．ｄｌ１．类的名称为ＴｅｘｔＲＷ．方法名称为Ｒｅａｄｔｅｘｔ和Ｗｒｉｔｅ—　全、高效的可扩展的三层应用程序。组件技术完全隐藏所有数据　ｔｅｘｔ。　和实现细节。通过接口提供有效服务，有效节省资源消耗和进行　Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ　软件重用。具有广泛的发展前景。　Ｆｕｎｃｔｉｏｎ　ｒｅａｄｔｅｘｔ（ＢｙＶａｌ　ｉｆｌｅｎａｍｅｌ　Ａｓ　Ｓｔｉｒｎｇ）Ａｓ　Ｓｔｒｉｎｇ　参考文献：　将文件名通过参数形式传递给函数　【１］雨於志渊．动态Ｗｅｂ网页技术大全【Ｍ］．清华大学出版社，　Ｄｉｍ　Ｌｉｎｅ　Ａｓ　Ｓｔｒｉｎｇ，ｓｔｒ　Ａｓ　Ｓｔｒｉｎｇ，ｉｆｌｅｎｕｍｂｅｒ　Ａｓ　Ｓｔｉｒｎｇ　１９９９．１０．　ｉｆｌｅｎｕｍｂｅｒ＝ＦｒｅｅＦｉｌｅ　Ｏｐｅｎ　ｉｆｌｅｎａｍｅ１　Ｆｏｒ　Ｉｎｐｕｔ　Ａｓ＃ｆｉｌｅｎｕｍｂｅｒ　打开文件　【２］杜春雷，孙会莲，等．如何使用Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０中文版【Ｍ］．　Ｄｏ　Ｗｈｉｌｅ　Ｎｏｔ　ＥＯＦ（ｉｆｌｅｎｕｍｂｅｒ）　机械工业出版社，１９９９．５．　ｉＬｎｅ　Ｉｎｐｕｔ＃ｆｉｌｅｎｕｍｂｅｒ．Ｌｉｎｅ　分行读取文件内容　【３］Ｓｂｅｌｌｅｙ　Ｐｏｗｅｒｓ．ＡＳＰ组件开发指南【Ｍ］．中国电力出版社，　ｓｔｒ＝ｓｔｒ＋ＬｉＢｅ＋”＜ｂｒ＞”　＜ｂｒ＞回车换行　２００２．４．　Ｌｏｏｐ　ｒｅａｄ＝ｓｔｒ　【４］吉根林，崔海源．Ｗｅｂ程序设计【Ｍ］．电子工业出版社，　Ｃｌｏｓｅ＃ｆｉｌｅｎｕｍｂｅｒ　２００２．８．