ASP中设计和使用类4

'================================================================
'= Power By Joshua =
'=--------------------------------------------------------------=
'= 文件摘要：基本属性 =
'=--------------------------------------------------------------=
'= 系统版本：1.0 =
'= 文件版本：1.0 =
'= 文本创建日期：2005-3-18 =
'================================================================
Class Cls_BaseInfo
Private Ini

Public Property Let Name(Str)
Call InI.WriteNode("BaseInfo","Name",Str)
End Property
Public Property Get Name()
Name = INI.ReadNode("BaseInfo","Name")
End Property

Public Property Let Count(Str)
Call InI.WriteNode("BaseInfo","Count",Str)
End Property
Public Property Get Count()
Count = INI.ReadNode("BaseInfo","Count")
End Property

Public Property Let FiltrateStr(Str)
Call InI.WriteNode("BaseInfo","FiltrateStr",Str)
End Property
Public Property Get FiltrateStr()
FiltrateStr = INI.ReadNode("BaseInfo","FiltrateStr")
End Property

Public Property Let IsAuditingReview(Str)
Call InI.WriteNode("BaseInfo","IsAuditingReview",Str)
End Property
Public Property Get IsAuditingReview()
IsAuditingReview = INI.ReadNode("BaseInfo","IsAuditingReview")
End Property

Public Property Let IsAuditingPage(Str)
Call InI.WriteNode("BaseInfo","IsAuditingPage",Str)
End Property
Public Property Get IsAuditingPage()
IsAuditingPage = INI.ReadNode("BaseInfo","IsAuditingPage")
End Property

Public Property Let IsLog(Str)
Call InI.WriteNode("BaseInfo","IsLog",Str)
End Property
Public Property Get IsLog()
IsLog = INI.ReadNode("BaseInfo","IsLog")
End Property

Public Property Let IsReg(Str)
Call InI.WriteNode("BaseInfo","IsReg",Str)
End Property
Public Property Get IsReg()
IsReg = INI.ReadNode("BaseInfo","IsReg")
End Property

Public Property Let IsAuditingReg(Str)
Call Ini.WriteNode("BaseInfo","IsAuditingReg",Str)
End Property
Public Property Get IsAuditingReg()
IsAuditingReg = INI.ReadNode("BaseInfo","IsAuditingReg")
End Property

Public Property Let Template_Name(Str)
Call InI.WriteNode("Template","Name",Str)
End Property
Public Property Get Template_Name()
Template_Name = InI.ReadNode("Template","Name")
End Property

Public Property Let Template_FileName(Str)
Call InI.WriteNode("Template","FileName",Str)
End Property
Public Property Get Template_FileName()
Template_FileName = InI.ReadNode("Template","FileName")
End Property

'==================================================
'类初始化
'==================================================
Private Sub Class_Initialize()
Set InI = New Cls_InI
InI.OpenFile = Server.MapPath(Path&"non-bin/Ini/System.Joshua")
If Not INI.IsTrue Then
Ini.Close
Set Ini = Nothing
Response.Write "未找到系统配置文件!请检查文件路径是否正确!"
Response.End()
End If
End Sub

Public Sub Save()
Call Ini.Save()
End Sub

Private Sub Class_Terminate()
Ini.Close
Set Ini = Nothing
End Sub
End Class