Private Sub Class_Initialize()
這里寫上類實(shí)例化的時(shí)候執(zhí)行的代碼。
end sub 

Private Sub class_terminate()
這里是類注銷的時(shí)候自動執(zhí)行的代碼，
end Sub

Public Function Checkstr(Str)
If Isnull(Str) Then
  CheckStr = ""
  Exit Function 
End If
CheckStr = Replace(Str,"'","''")

End Function

Public Property Let Value(ByVal vNewValue)
Dim tmpstr
tmpstr = vNewValue
tmpstr = split(tmpstr,"@@@")
html = split(tmpstr(0),"|||")
Strings = split(tmpstr(1),"|||")
pic = split(tmpstr(2),"|||")
End Property
這是一個(gè)只讀的屬性
Public Property Get TodayNum
TodayNum = Application(Forum_sn & "_Dv_setup")(9,0)
End Property

Public Property Get TodayNum
TodayNum = Application(Forum_sn & "_Dv_setup")(9,0)
End Property
Public Property Let TodayNum(ByVal vNewValue)
TodayNum = vNewValue
End Property

Public Sub TrueCheckUserLogin()
代碼
end sub

Class cls_templates
Public html,Strings,pic
Private Sub Class_Initialize()

end sub 
Private Sub class_terminate()

end sub
Public Property Let Value(ByVal vNewValue)
  Dim tmpstr
  tmpstr = vNewValue
  tmpstr = split(tmpstr,"@@@")
  html = split(tmpstr(0),"|||")
  Strings = split(tmpstr(1),"|||")
  pic = split(tmpstr(2),"|||")
End Property
End Class

Dim MyToolbox
Set MyToolbox = New CToolbox
Response.Write "UserName: " & MyToolbox.UserName & "<BR>" & vbCrLf
Response.Write "UserPhone: " &  MyToolbox.UserPhone & "<BR>" & vbCrLf
Set MyToolbox = Nothing

Class CToolbox
Private m_conn, m_rs
Private m_username, m_userphone

Public Property Get UserName()
   UserName = m_username
End Property

Public Property Get UserPhone()
   UserPhone = m_userphone
End Property

Private Sub Class_Initialize()
   Set m_conn = Server.CreateObject("ADODB.Connection")
   m_conn.ConnectionString = "Some connection string"
   m_conn.Open
   Set m_rs = Server.CreateObject("ADODB.Recordset")
   Set m_rs.ActiveConnection = m_conn
   m_rs.Open "SELECT * FROM Users WHERE userid = '" &
             Request.ServerVariables("LOGON_USER") & "'"
   If Not m_rs.EOF Then
     m_username = m_rs.Fields("username")
     m_userphone = m_rs.Fields("userphone")
   End If
End Sub

Private Sub Class_Terminate()
   On Error Resume Next
   m_rs.Close
   Set m_rs = Nothing
   m_conn.Close
   Set m_conn = Nothing
End Sub

End Class

Class MyClass

Private Sub Class_Initialize()
End Sub

Private Sub Class_Terminate()
End Sub

End Class

Class name '參數(shù)name必選項(xiàng)，Class 的名稱
  statements '一個(gè)或多個(gè)語句，定義了 Class 的變量、屬性和方法
End Class

Class TestClass
  Private Sub Class_Initialize  ' 設(shè)置 Initialize 事件，相當(dāng)于構(gòu)造函數(shù)
    MsgBox("TestClass started")
  End Sub
  Private Sub Class_Terminate  ' 設(shè)置 Terminate 事件，相當(dāng)于析構(gòu)函數(shù)
    MsgBox("TestClass terminated")
  End Sub
End Class

Set X = New TestClass  ' 創(chuàng)建一個(gè) TestClass 實(shí)例
Set X = Nothing   ' 刪除實(shí)例

a.類的事件方法格式是固定的，事件名是固定的，事件只能是Sub不能是Function，事件無參數(shù)；
b.類實(shí)例通過New來創(chuàng)建，通過Nothing來銷毀；
c.記住所有的類實(shí)例都是對象，創(chuàng)建與銷毀時(shí)記得用Set語句，沒有Set是錯(cuò)的。

Set MyUser = New User
MyUser.MyAge = "22" '設(shè)置對象的MyAge屬性值
MyUser.Myname = "john" '設(shè)置對象的Myname屬性值
MyUser.ToString '調(diào)用對象的ToString方法
 
Class User
  Private Str_Name '聲明變量Str_Name
  Private Int_Age '聲明變量Int_Age
 
  'Property Get語句，獲取屬性值或?qū)ο笠茫珼efault只與Public一起使用，表示該屬性為類的默認(rèn)屬性
  Public Property Get Myname
    Myname = Str_Name
  End Property 
 
  Public Property Get MyAge
    MyAge = Int_Age
  End Property
 
  'Property Let語句，設(shè)置屬性值
  Public Property Let Myname(New_Name)
    Str_Name = New_Name
  End Property  
 
  Public Property Let MyAge(New_Age)
    Int_Age = new_age
  End Property 
 
  '類方法
 
  Public Sub ToString()
    MsgBox "姓名："+Myname+" 年齡："+MyAge
  End Sub
 
End Class