文件操作类
<%
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
%> from:asp学习网/title:文件操作类/ time:2006-4-26 22:01:22
本文主题文件操作类
