艾恩 ASP 无组件上传类(上传组件)
AienAspUpload V13.01.16 By Anlige
一、简介
自从接触 ASP 就开始接触上传，看过一些上传类，但是总感觉封装的还是不够简单，因此自己尝试
写一个能够用最少最简单的代码实现各种上传方式的上传类。
在学校期间就开始写，一点点的完善、优化，到现在的版本，现在的版本能适应各种上传方式。上
传类的主要的功能如下：
1、自由设置最大上传大小、单文件最大上传大小
2、自由设置允许上传的文件类型
3、可设置文本的编码，以适应各种上传环境
4、内置进度条，用户可选择开启和关闭（需配合客户端程序）
5、多种错误状态处理
6、多种文件保存方式：原文件名、随机文件名、用户自定义文件名
7、自由选择是否覆盖已存在文件
8、完整保存表单数据，支持同名表单，不支持同名文件域
9、可获取常见图片格式的宽高
10、优化的上传过程。。。
注意：
1、特别注意 Form 一定要加上 enctype="multipart/form-data"属性,method 属性值必须是 post,否
则上传会出错
2、request.form()方法获取数据失效,请使用 UpLoad.forms()
3、上传前请确认保存文件的文件夹有读写权限,若不可写则会出现"文件无法写入"错误,解决方法
http://dev.mo.cn/show.asp?id=81
二、调用方法
dim Upload
set Upload = new AnUpLoad
注意：上传属性的设置必须在调用 Upload.GetData()之前。
简单调用示例：
dim Upload
set Upload=new AnUpLoad 'Set Upload = server.CreateObject("Anasp.Anupload")
Upload.SingleSize=1024*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=1024*1024*1024 '设置最大上传限制,按字节计；默认为不限制
Upload.Exe="*.bmp;*.rar;*.pdf;*.jpg;*.gif;" '设置合法扩展名
Upload.Charset="gb2312" '设置文本编码，默认为 gb2312
Upload.Mode = 0
Upload.GetData() '获取并保存数据,必须调用本方法
