复制代码 代码如下:<% '================================================================ '= 系统版本：1.0 = '= 文件版本：1.0 = '= 文本创建日期：2005-10-31 = '================================================================ Class Cls_IO Private FileSystemObject Private Sub Class_Terminate() If IsObject(FileSystemObject) Then Set FileSystemObject = Nothing End If End Sub '//创建FileSystemObject对象 Public Function Init_Object() On Error Resume Next If Not IsObject(FileSystemObject) Then Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then Init_Object = False Err.Clear Exit Function Else Init_Object = True End If End If End Function Public Sub DeleteFile(ByVal Str) On Error Resume Next Call FileSystemObject.DeleteFile(Server.MapPath("../UpLoadFile/"&Str)) End Sub Public Function IsFolder(ByVal Str) IsFolder = FileSystemObject.FolderExists(Str) End Function Public Function ShowFolder(ByVal Str) Dim Obj_Folder,Obj_File Set Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str)) Set ShowFolder = Obj_Folder.Files Set Obj_Folder = Nothing End Function End Class %>

　　推荐阅读

　　asp之自动闭合HTML/ubb标签函数 附简单注释

这最近在PJ的function库里看到的这个函数，感觉思路差了点，不过相对比较完美，只是闭合标签时的顺序问题，呵呵 修改一下数组arrTags里的各元素内容，可以达到闭合任何标签的功能。 在此，我给增加了一些注释，方便>>>详细阅读

本文标题：asp fso操作类

地址：http://www.17bianji.com/kaifa2/ASP/31976.html

 1/2    1