Public Property Get Result() As Integer Result = Point End Property
Public Property Get Maxpoint() As Integer Maxpoint = Max End Property
Public Property Let Maxpoint(num As Integer) Max = num End Property
Public Sub Throw() Randomize Point = Int(Rnd * Max) + 1 End Sub
Private Sub Class_Initialize() Max = 6 End Sub
这个类模块定义了clsDice对象的两个属性和一个方法，这些属性和方法模拟了掷色子的过程。其中Maxpoint属性表示色子的面数，加入Property Let语句将使客户能修改色子的面数；Result属性表示最后掷出色子的点数；Throw方法代表掷色子的动作；Private Sub Class_Initialize语句将色子的面数缺省的设置为6面。
ASP(活动服务器页面Active Server Pages)的所有代码都是在服务器上运行的，客户只能查看以HTML形式传回的结果。它使用“%”和“%>”标记来标识脚本代码，并不传回客户端，在代码外部，使用HTML标记来标识内容。在下面Dice.asp的代码中使用了CreateObject函数创建了一个clsDice对象实例，该对象来自于上面创建的ActiveX.DLL--MYDLL.DLL文件，下面的例子使用了VBScript脚本语言。
!--METADATA TYPE="typelib" FILE="Path/mydll.dll" --> '装载 METADATA 标签中指定的类型库。 Path是mydll.dll在机器上存放的路径 html> head>title>在ASP文件使用DLL/title>/head> body> % On Error Resume Next ‘当程序出现意外错误时能继续执行
If Request.Form("T1")="" then Session("point") = 6 Else Session("point")=Request.Form("T1") End If '用Session("point")来存放色子的面数
Set dice1=Server.Createobject("MyDLL.clsDice") '使用set语句创建dice1对象，其中MyDLL是上面创建dll文件时的工程名称（注意：不是文件的名称），clsDice为类模块的名称。至此我们就可以用Maxpoint,Result和Throw属性（方法）来对dice1对象进行操作。
