asp fso操作类

代码如下:

<%
'================================================================
'=                    系统版本：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
%>

赞 (0)

相关推荐

  • 使用FSO修改文件夹的名称实现文件转移防盗链

    那天突然的一个灵感,是针对防盗链的 正常上传的文件,若被人盗链则增加了自己服务器的负担,上次164.cc就因此被挂 然后想想对策,目前各类防盗链程序也不少,不过使用也并不简单,还有就是不能免费-- 所以,只有自己先想办法.那么,现在看看标题,再想想防盗链,或许就有些眉目了 我可以不定时的修改上传文件所在的文件夹名称,而本站程序是动态获得文件夹名称,这样原先盗用本站文件的站点会因路径的错误而找不到文件,从而也就实现了防盗链. 那么,如何使用FSO修改文件夹的名称呢? 一个简单的函数: 复制代码 代

  • ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串）

    FSO文件(File)对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文件的名字 ParentFolder 返回该文件的父文件夹的Folder对象 Path 返回文件的绝对路径,可使用长文件名 ShortName 返回DOS风格的8.3形式的文件名 ShortPath 返

  • ASP+FSO可视化目录编历（可增、删、改）下载

    本程序介绍: 1.完全可视化界面操作,采用asp+fso开发. 2.可上传文件,可修改删除文件. 3.同时提了其他俩个程序(大家可自行测试).本地下载

  • fso asp生成静态html的代码

    FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.asp在textarea里调出来,如:  <textarea name="body"><!--#include f

  • 设置FSO权限功能的说明

    星外科技再次开发国内首创的功能,新版本已支持用户自己打开或关闭FSO及ADO流,因此,就算再烂的程序,如果关了FSO,木马都无法上传,就算原来的程序有木马,也没有办法用FSO破坏服务器. 1.虚拟主机A关闭FSO,并不会影响另一个虚拟主机B正常使用FSO. 2.FSO可以随时打开或关闭. 3.关闭FSO并不会影响正常的数据库操作,如论坛程序的正常运行,也不影响正常的FTP使用.

  • asp下用ADODB.Stream代替FSO读取文本文件

    '文件内容读取. 复制代码 代码如下: Function LoadFile(ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本

  • asp结合fso实现文件或文件夹创建删除等操作的函数

    '////////////////////////////////////////////////FSO操作///////////////////////////////////// '判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Fold

  • asp下利用fso实现文件夹或文件移动改名等操作函数

    asp利用fso实现文件的移动function movefiles(sFolder,dFolder)     on error resume next     dim fso     set fso = server.createobject("scripting.filesystemobject")     if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)

  • asp fso操作类

    复制代码 代码如下: <% '================================================================ '=                    系统版本:1.0                                = '=                    文件版本:1.0                                = '=                文本创建日期:2005-10-31       

  • 一个简单的asp数据库操作类

    <% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '数据库操作类 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '名称:Class_DBOperate '版本:0.2 '作者:qihangnet '更新:2005年6月14日 '作用:简化数据库操作的流程 '授权:免费使用 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Class Class_DBOperate '*********************

  • ASP XML操作类代码

    复制代码 代码如下: Class XMLClass Private objXml Private xmlDoc Private xmlPath '//============================================================ ' Sub Class_initialize Set objXml = Server.CreateObject("MSXML2.DOMDocument") objXml.preserveWhiteSpace = tru

  • 发一个ASP的ADODB类代码

    反正我现在用这个做了很多站,自己觉得还是满有用的,所以拿出来和大家分享一下.支持三种数据库连接:MSSQL2000,MSSQL2005,ACCESS 三种方法: select_table(sql) 表查询,返回TRUE或FALSE 当SQL语句出错,或空记录时返回FALSE,否则TRUE update_table(SQL) 表更新,包括update,delete 成功执行返回TRUE,否则返回FALSE,updated为执行后影响记录行数. insert_table(sql,table,id_c

  • 结合FSO操作和Aspjpeg组件写的Class

    <结合FSO操作写的一个Class> 尚在完善中,基本功能已具备. 也可作为初学者的教程 程序代码 <% '***************************** CDS系统 FSO操作类 Beta1 ***************************** '调用方法: Set Obj=New FSOControl '所有路径必须为绝对路径,请采用Server.MapPath方法转换路径后再定义变量 '------ FileRun ------------------------

  • ASP Crazy 模版操作类(最简单的模板类、仅提供交流)

    文件名:Awa_temp.Class.asp 复制代码 代码如下: <% 'Crazy蛙!模板操作类 '作者Crazy~蛙! QQ:379969387 欢迎交流 '版本V1.0; Class AwaTemp Public aa Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues '=========================================== '构造函数_初始化FS

  • ASP.NET数据库操作类实例

    本文实例讲述了ASP.NET数据库操作类.分享给大家供大家参考,具体如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using Syst

  • Asp.Net中Cache操作类实例详解

    本文以一个Asp.Net的Cache操作类实例代码来详细描述了cache缓存的结构及实现方法,完整代码如下所示: /// <head> /// <function> /// 存储类(存储UserInfo信息) /// </function> /// <description> /// 用Cache存储用户信息 /// 在指定间隔(TimeOut)内取,则可以从Cache中取, /// 如果超出存储时间,则从数据库取用户信息数据 /// 作為所有用户信息的存儲

  • EasyASP v1.5发布(包含数据库操作类，原clsDbCtrl.asp)第1/2页

    而Easp类中提供了大量实用的ASP通用过程及方法,可以简化大部分的ASP操作.目前只提供了VBScript版,JScript版将来可能会提供.EasyASP v1.5 (2008-10-22更新) 新增功能: 1.将数据库控制类(原clsDbCtrl.asp)封装入Easp类,均通过Easp.db调用,也可独立使用. 2.新增MSSQL存储过程调用方法,可灵活调用存储过程并返回返回值.记录集及出参. 3.新增db.CreatConn方法,可以根据自定义的连接字符串连接数据库. 4.新增db.J

  • mysql仿asp的数据库操作类

    CODE:[复制到剪切板]<?php class MySQLDB   {     //MYSQL数据库操作类     //作者:熊毅     //版本:2.0(发行版) //可以自由转载,修改请通知我scxy78@yeah.net     //转载请保留以上声明 //上进行操作,当然也可以每次指定特殊的表进行操作     //nErr指示是否操作出错,sErr记录最后一次出错的错误代码,记录了明确的有哪个函数引起的错误     //错误之处请指正     //欢迎来信与我交流编程经验:scxy7

随机推荐