|
|
|
|
你现在的位置：您现在的位置是: 中国ASP>>ASP教程>>asp类 |
|
| 文件操作类 |
|
文件操作类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
%>
相关标签：文件操作类 fso文件操作类
|
|
|
