asp之基于adodb.stream的文件操作类

复制代码 代码如下:

<%

'*************************************************************

'转发时请保留此声明信息,这段声明不并会影响你的速度!

'*************************************************************

'*************************************************************

'@author:                        面条

'@realname:                        徐仁禄

'@email:                        xurenlu@sohu.com

'@QQ:                            55547082

'@Homepage:                        http://www.ksdn.net

'@版权申明:

'            非盈利性质团体或者个人可以免费使用.

'*************************************************************

'*************************************************************

'        类名称:        files

'        类功能:            实现文件读写功能,利用adodb.stream实现,在不支持fso的主机上也可以读写文件.

'*************************************************************

class files

private adSaveCreateOverWrite    '创建文件的时候可以覆盖已经存在的文件.

    private adSaveCreateNotExist    '保存文件的时候如果文件不存在,可以创建文件.

'*************************************************************

'        事件名称:        Class_Initialize()

'        事件发生条件:    类创建时候产生该事件

'        事件内容:        给私有变量赋值

'        事件传入参数:    无

'*************************************************************

sub Class_Initialize()

        adSaveCreateOverWrite =2

        adSaveCreateNotExist = 1

    end sub

'*************************************************************

'        函数名称:        function readfile(filepath)

'        函数内容:        读出文件

'        传入参数:        filepath:要读的文件的绝对路径

'        返回参数:        要读的文件的内容.

'*************************************************************

function readfile(filepath)

on error resume next

dim stm2

set stm2 =server.createobject("ADODB.Stream")

    stm2.Charset = "gb2312"

    stm2.Open

    stm2.LoadFromFile filepath

    readfile = stm2.ReadText

end function

'*************************************************************

'        函数名称:        function writefile(filepath,str)

'        函数内容:        写入文件

'        传入参数:        filepath:要读的文件的绝对路径

'                        str:    要写入的内容

'        返回参数:        无返回

'************************************************************* 

    function writefile(filepath,str) 

        on error resume next 

        Set stm = server.createobject("ADODB.Stream")

        stm.Charset = "gb2312"

        stm.Open

        stm.WriteText str

        stm.SaveToFile filepath, adSaveCreateOverWrite

    end function

'*************************************************************

'        函数名称:        function copy(filepath_s,filepath_d)

'        函数内容:        读出文件

'        传入参数:        filepath_d:目的文件的绝对路径

'                        filepath_s:源文件路径

'*************************************************************

function copy(filepath_s,filepath_d)

    on error resume next

    dim stm2

    set stm2 =server.createobject("ADODB.Stream")

    stm2.Charset = "gb2312"

    stm2.Open

    stm2.LoadFromFile filepath_s

    stm2.SaveToFile filepath_d, adSaveCreateOverWrite

end function

end class

%>

时间: 2024-10-08 05:33:19

asp之基于adodb.stream的文件操作类的相关文章

asp之基于adodb.stream的文件操作类_应用技巧

复制代码 代码如下: <% '************************************************************* '转发时请保留此声明信息,这段声明不并会影响你的速度! '************************************************************* '************************************************************* '@author:          

asp对象化之:基于adodb.stream的文件操作类

ado|stream|对象 <%  '************************************************************* '转发时请保留此声明信息,这段声明不并会影响你的速度! '*************************************************************  '************************************************************* '@author:     

使用asp下的adodb.stream 下载文件而不是打开_小偷/采集

在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径,那么该文件会直接显示在浏览器里.而在很多时候我们希望能直接弹出下载提示框让用户下载,我们该怎么办呢?这里有两种方法:  1.设置你的服务器的iis,给doc等后缀名做映射. 2.在向客户端发送时设置其contenttype.  下面详细说明方法2  程序代码:  复制代码 代码如下: <% Response.Buffer = true Response.Clear dim url Dim fso,fl,flsize dim 

asp上传图片提示 ADODB.Stream 错误 &#039;800a0bbc&#039;的解决方法

  asp上传图片提示 ADODB.Stream 错误 '800a0bbc' 有这个提示有很多问题导致.权限是常见一种.这个不多说,还有一个有点怪的就是 windows2008显示系统时间的格式竟然是:2013/3/8,而并非是以前的2013-3-8,由于重命名上传的文件是按时间来命名的,本要求为201338,但到windows2008平台上最后变成了2013/3/8,这样则会有一个问题,就是会被当成文件夹和路径处理,最终会导致了真正的不存在目录,最后会写入出错. 解决办法: 经过查看在上传保存

Asp.net(c#)常用文件操作类封装 移动 复制 删除 上传 下载等

Asp.net(c#)中常用文件操作类封装 包括:移动 复制 删除 上传 下载等 using System; using System.Configuration; using System.Data; using System.IO; using System.Text; using System.Threading; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.Ht

PHP面向对象文件操作类

对象 <?php  /*  文件名:ClassFile.php  功能:面向对象,文件操作类(查看文件,删除文件,上传文件)  作者:感染源  时间:2007-1-11 */  class ClassFile {  private $dir_name;  private $file_name;  private $dh;  //private $file_path;      //构造函数,打开工作文件目录  function __construct($PDirName)  {   $this-

Web项目: Java在部署项目的WebRoot下建立文件夹(附上文件操作类)

public boolean doTest(){ String path="../webapps/FileTest/reportFiles/aa.jsp";//FileTest为自己的项目名 reportFiles为自己建立的文件夹 aa.jsp为自己建立的文件 boolean isDone = false; File file = new File(path); if(file.exists()) throw new RuntimeException("File: &quo

Python文件操作类操作实例代码

  #!/usr/bin/env python 01 #!/usr/bin/env python  02 #coding:utf-8  03 # Author: 酷酷 04 # Purpose: 文件操作类  05 # Created: 2011/1/1  06  07 #声明一个字符串文本  08 poem='''  09 Programming is fun测试  10 When the work is done  11 if you wanna make your work also fu

Python文件操作类操作实例详解_python

本文讲述了Python文件操作类的操作实例,详细代码如下: #!/usr/bin/env python #!/usr/bin/env python #coding:utf-8 # Purpose: 文件操作类 #声明一个字符串文本 poem=''' Programming is fun测试 When the work is done if you wanna make your work also fun: use Python! ''' #创建一个file类的实例,模式可以为:只读模式('r'