VBS基础篇 - vbscript class类的定义与使用

Private Sub Class_Initialize()
'这里写上类实例化的时候执行的代码。
end sub 

Private Sub class_terminate()
'这里是类注销的时候自动执行的代码，
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

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 & "
" & vbCrLf
Response.Write "UserPhone: " &  MyToolbox.UserPhone & "
" & 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 '参数name必选项，Class 的名称
  statements '一个或多个语句，定义了 Class 的变量、属性和方法
End Class

Class TestClass
  Private Sub Class_Initialize  ' 设置 Initialize 事件，相当于构造函数
    MsgBox("TestClass started")
  End Sub
  Private Sub Class_Terminate  ' 设置 Terminate 事件，相当于析构函数
    MsgBox("TestClass terminated")
  End Sub
End Class

Set X = New TestClass  ' 创建一个 TestClass 实例
Set X = Nothing   ' 删除实例

Set MyUser = New User
MyUser.MyAge = "22" '设置对象的MyAge属性值
MyUser.Myname = "john" '设置对象的Myname属性值
MyUser.ToString '调用对象的ToString方法
 
Class User
  Private Str_Name '声明变量Str_Name
  Private Int_Age '声明变量Int_Age
 
  'Property Get语句，获取属性值或对象引用，Default只与Public一起使用，表示该属性为类的默认属性
  Public Property Get Myname
    Myname = Str_Name
  End Property 
 
  Public Property Get MyAge
    MyAge = Int_Age
  End Property
 
  'Property Let语句，设置属性值
  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