说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何用VB6写COM组件(一)

HTML文档下载 WORD文档下载 PDF文档下载
VB如何用VB6写COM组件(一)
所幸的是,我们可以用COM组件来在最大程度上扩展ASP的功能。你可知道,任何可以用诸如VB,VC和VJ以及其它的一些程序语言所写出来的东西,都可以被应用到你的网站的开发中去,这就是COM(组件对象模型)。COM能够用来编写能够被ASP所调用的对象。当在VB等编程环境中完成了组件的编制后,就可以放在ASP页面中被ASP所调用了。在这篇文章中,我们将看到如何使用VB6来编写一个COM对象,如何将其注册在服务器上,并在ASP页面中对其进行调用。但在开始之前,让我先来简单的介绍一写关于COM的小知识。

   COM对象通常表现为一个.dll文件,是一个编译好了的可执行程序。这意味着COM的运行速度要比纯ASP代码要快的多。在调用COM对象之前,必须在运行IIS服务器的机器上对其进行注册,而且不能通过ASP代码来注册COM组件,这也就是说你必须有对服务器的使用权限。

   现在来看一看我们要实现的任务:我们需要创建一个组件,当你对它传递一个年份的时候,它能够告诉你这一年是否为闰年。当然,这个任务可以用VBScript来实现的。这儿是用这个简单的例子,只是为了程序的简便起见,从而能够把更多的注意力放在如何创建组件以及如何同ASP进行交互上面。实际上如同上面所说的那样,你可以使用VB的任何功能来创建这个组件。

   首先要做的当然是编写ActiveX dll组建,至于到底如何在ASP中调用它,我们会在后面提及。打开Visual Basic,一个对话框会提示你选择一种新建工程类型,在这儿当然选择“ActiveX DLL”。

   如果工程浏览器没有被打开,可以通过选择菜单栏上面的“视图|工程浏览器”来打开它。如果属性窗口也没有打开,同样的方法,可以打开属性窗口。

   现在在工程浏览器中点击Project1,然后可以在属性窗口中看到工程的name 属性为Project1,把它改为CheckYear。当然如果你很懒的话,你也可保留这些缺省的设置,只需在后边在ASP中调用它的时候,也使用相应的工程名和类名就好了。

   现在在工程中,已经预建了一个缺省的类,你可以按你自己的喜好来重新对其命名。在这儿把类命名为LeapYear。

   在类中填写入如下的代码:

   Option Explicit

   注释:用来判断一个年份是否为闰年的函数

   Public Function IsLeapYear(yr As Variant) As Boolean

   注释:如果年份能够被4整除并且不能被100整除,或者能够被400整除

   注释:那么它就是闰年

   If (yr Mod 4 = 0 And yr Mod 100 < > 0) Or yr Mod 400 = 0 Then

   IsLeapYear = True

   Else

   IsLeapYear = False

   End If

   End Function

   上面就是所需要的全部代码了,其实很简单。下面所要做的,就是把它编译成一个dll文件。在“文件”菜单中选择“建立CheckYear.dll...”,再选择要文件要保存的路径。一般的,可以在在服务器上的InetPub目录下面建一个Server Components目录,专门用来存放所有用于ASP中的组件。但这不是必须的,无论你把dll文件保存在什么地方,在编译的过程中,编译程序都会自动的在系统中对组件进行注册
美国智库战略与国际研究中心(CSIS)詹姆斯&#183;刘易斯:网络安全神话、传说与现实 云安全联盟中国分会理事赵粮:建设可信的云生态环境 Web前端优化最佳实践及工具集锦 2013中国互联网安全大会(ISC)9月23日隆重举行 科技界最聪明的人:Facebook首任CTO激情燃烧的岁月 怎么用java打开dbf格式的文件,修改其中的内容保存,它跟读写txt文件有区别吗?? 论坛带宽扩容:已经由共享10M变为独享100M。 请问哪里有Sybase11.9下载???急! server to server 方式如何提交一个新的页面 求vc笔试题目 在vc的win32 application程序中如何开始多线程? 亲爱的朋友——“图片无预览”怎么办??? vc中资源问题。 Windows2000的用戶權限 某人用50N的水平拉力,拉100N重的物体在水平地 重500N的铁箱,受100N的水平拉力作用.重50 一个重500N的物体,静止在水平地面上,对地面的压 1.一个重500N的物体,静止在水平地面上,对地面 重力100N物体受到20N的水平拉力在水平面匀速前 某人用30N的力拉重为100N的物体在水平桌面上做 置于水平桌面上的物体A重200N,物体B重100N .用图3所示滑轮组拉着一重为100牛的物体A沿水平 滑轮组拉着一重为100牛的物体A沿水平面做匀速运动 杨洁篪:中国是二十国集团积极参与者、国际晚班车:日大规模“夺岛”军演剑指北约在东欧举行大规模军演 模拟外敌入中央巡视组展开第二轮巡视 分析称密度中国和新西兰签署加强食品安全合作备忘适应人群广泛 种植牙已成缺牙修复首选西南医院募集60名患者 开展大批量临比赛没有输家 球迷才是赢家发生伤人交通事故 请找人民调解室6000多字刻在20厘米猛犸象牙残片道门法则凯撒的异世界传奇大冒险封神大天王从漫威开始破坏雍正皇后生存录黑城遗址旅游额济纳胡杨林旅游泰安古镇旅游街子古镇旅游蓥华山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘