悠悠博客 关注Ajax技术与web开发

文件操作类File：
<%
Class File

Private FSO
Private IPath
Private IContent

Public Property Let Path(ByVal PPath)
IPath = PPath
End Property

Public Property Get Path()
Path = IPath
End Property

Public Property Let Content(ByVal PContent)
IContent = PContent
End Property

Public Property Get Content()
Content = IContent
End Property

Private Sub Class_Initialize()
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub

Private Sub Class_Terminate()
Set FSO = Nothing
End Sub

Public Sub Save()
Dim f
Set f = FSO.OpenTextFile(Server.MapPath(Path), 2, true)
f.Write Content
End Sub

End Class
%>