查看完整版本: 如何用VB6写COM组件（二）

如何用VB6写COM组件（二）

　　如何用VB6写COM组件（二）
　　 如果你的VB和WEB服务器不是在一台电脑上，那么在把dll文件拷贝到服务器上后，如果要让组件能够被使用，就必须手工对其进行注册。

　　 首先你需要把.dll文件从你开发它的机器上，发送到你的服务器上。一般在www服务器上可以为所有的为ASP写的组件建立一个目录，把那个.dll文件拷贝到那个目录中。比如在InetPUB下建立一个Server Components目录。在完成拷贝后，就可以运行Regsvr32.exe来注册这个组件了。在“开始”菜单中选这“运行”，然后在“运行”对话框中输入regsvr32 和要注册的组件的名称和其完整路径。例如：

　　 Regsvr32 "C:InetPubServer ComponentsMyComponent.dll"

　　 就这么简单，在注册成功之后，你会得到一个成功注册的信息。然后，你就可以在ASP页面中引用这个COM对象了。当然，要完成这些你需要有服务器的访问权限，你可以直接在服务器上注册或者通过诸如pcAnywhere之类的软件实现远程注册。

　　 然后，我们就可以在ASP中调用这个组件了。建立一个ASP页面，并添入下面的代码：

　　 < % Option Explicit

　　 Dim oCheckYear

　　 Dim IsLeapYear

　　 Dim Year

　　 Year = 1900 注释：用来检测组件的年份

　　 注释：建立一个对刚才那个组件的引用

　　 Set oCheckYear = CreateObject("CheckYear.LeapYear")

　　注释：调用组件中的IsLeapYear函数,并报存结果

　　 IsLeapYear = oCheckYear.IsLeapYear(Year)

　　 注释：清除对组件的引用,好的编程习惯

　　 Set oCheckYear = Nothing

　　 % >

　　 < HTML >

　　 < HEAD >

　　 < TITLE >例子< /TITLE >

　　 < /HEAD >

　　 < BODY >

　　 < %

　　 注释：打印输出

　　 If IsLeapYear = True Then

　　 Response.Write "< P >< b >"