惧上传类 - UpFile_Class V1.2 使用手册

无惧上传类 - UpFile_Class V1.2 使用手册

UpFile_Class 概述

自从用ASP来编写网站，就无时无刻想找一种兼容性强，使用方便的上传方法，用过很多的无组件上传方法，但是都存在使用不方便，兼容性差，速度慢等的问题。终于在2003年的元旦里，想到了可以让上传文件达到最快的方法，经过10天的努力，整整10个版本的版本的更新，终于完成了这一个“无惧上传类V1.0”，这个版本与其它的上传类或方法相比，具有速度快，兼容性强，使用方便等特点。

UpFile_Class 公共属性

File	文件域的集合,是一个Dictionary 对象,返回值一个FileInfo_Class 类。
Form	表单域的集合,是一个Dictionary 对象,返回对应表单域的值。
Err	返回错误的数值。-1表示无错,1表示没有上传数据,2表示上传超出限制。
Version	获取类的版本信息。

UpFile_Class 公共方法

GetData(MaxSize As Int64)

分析上传的数据。MaxSize为限制上传的字节,设为-1即不限制大小

FileInfo_Class 概述

文件信息类,用来存贮上传的文件信息

FileInfo_Class 公共属性

FileName	返回上传的文件名。
FilePath	返回上传时文件在客户端的路径。
FileExt	返回文件扩展名。
FileType	返回文件MIME类别。
FileData	返回文件内容。
FileSize	返回文件大小(以字节为单位)。

FileInfo_Class 公共方法

SaveToFile(Path As String)

保存到文件。Path为服务器的完整路径(注:只能是已经存在的目录)

Dictionary 对象 请参考VBSCRIPT帮助取得更详细的属性和方法

使用示例

上传文件的表单要加入enctype="multipart/form-data"属性，即
<form name="form1" method="post" action="" enctype="multipart/form-data">
<input type="text" value="1" name="name">
<input type=file name="img">
<input type=submit name="submit" value="提交">
</form>

在执行上传的ASP页
'包含类文件

dim upfile
'建立上传对象
set upfile=new upfile_class
'取得上传数据,限制最大上传10M
upfile.GetData (10240000)
'判决是否出错
if upfile.err>0 then
  select case upfile.err
    case 1
      Response.Write "你没有上传数据呀???是不是搞错了??"
    case 2
      Response.Write "你上传的文件超出我们的限制,最大10M"
  end select
  else
  '执行保存文件代码
   upfile.file("img").savetofile "c:\"&upfile.file("img").filename
   '销毁对像
set upfile=nothing
end if

目录下包含了一个完整的示例,分别存到数据库及存为文件,详细请参考.

梁无惧于2003年3月18日修改