工程浏览器”来打开它。如果属性窗口也没有打开，同样的方法，可以打开属性窗口。
现在在工程浏览器中点击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文件保存在什么地方，在编译的过程中，编译程序都会自动的在系统中对组件进行注册。
如果你的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 >" & Year & "< /b >是闰年< /P >"
Else
Response.Write "< P >< b >" & Year & "< /b >不是是闰年< /P >"
End If
% >
< /BODY >
< /HTML >
代码很简单，唯一需要解释的，就是在ASP中如何建立对自建对象的引用。它的语法是：CreateObject("Projectname.Classname")。你应该还记得吧，在前面我们把工程命名为CheckYear而把类命名为LeapYear，因而在这儿的语句就是：CreateObject("CheckYear.LeapYear")。一旦你建立了对对象的引用，你就可以在ASP页面中访问其所有的公有元素了。剩下的，就如同调用其它任何ASP内置对象一样简单了。
关键词：如何用VB6写COM组件(转)