奥康国际跆拳道官网:谁能解释一下vbscript里面的类到底是怎么。工作的啊！！

我看了看这个代码？看了一下午，就是不明白。
Dim StrSqlDate
Class DataBaseClass
'————————————————————————————————
'定义变量
Private IConnStr
'————————————————————————————————
' ConnStr属性
Public Property Let ConnStr(Val)
IConnStr = Val
End Property
'———————————————————————————————
' ConnStr属性
Public Property Get ConnStr()
ConnStr = IConnStr
End Property
'————————————————————————————————
' 类初始化
Private Sub Class_initialize()
ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
StrSqlDate = "Date()"
End Sub
'————————————————————————————————
' 类注销
Private Sub Class_Terminate()
ConnStr = Null
End Sub
'————————————————————————————————
' 建立一个连接
Public Function OpenConnection()
Dim TempConn
On Error Resume Next
Set TempConn = Server.CreateObject(G_FS_CONN)
TempConn.Open ConnStr
Set OpenConnection = TempConn
Set TempConn = Nothing
if Err.Number <> 0 then
Response.Write("<font size=""2"">[数据库连接错误]<br>请检查系统参数设置>>站点常量设置,或者/inc/const.asp文件!</font>")
Response.End
end if
End Function
End Class
%>
-----------------------------------------------------
Dim DBC,Conn,RecordConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + server.mappath(RecordDataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set RecordConn = DBC.OpenConnection()
----------------------------------------------------
整个工作流程到底是怎么样的啊！