一、简介
自从接触ASP就开始接触上传,看过一些上传类,但是总感觉封装的还是不够简单,因此自己尝试写一个能够用最少最简单的代码实现各种上传方式的上传类。在学校期间就开始写,一点点的完善、优化,到现在的版本,现在的版本能适应各种上传方式。上
传类的主要的功能如下:
1、自由设置最大上传大小、单文件最大上传大小
2、自由设置允许上传的文件类型
3、可设置文本的编码,以适应各种上传环境
4、内置进度条,用户可选择开启和关闭
5、多种错误状态处理
6、多种文件保存方式:原文件名、随机文件名、用户自定义文件名
7、自由选择是否覆盖已存在文件
8、完整保存表单数据,支持同名表单,不支持同名文件域
注意:
1、特别注意Form一定要加上enctype="multipart/form-data"属性,method属性值必须是post,否则上传会出错
2、request.form()方法获取数据失效,请使用UpLoad.forms()
3、上传前请确认保存文件的文件夹有读写权限,若不可写则会出现"文件无法写入"错误,解决方法
http://dev.mo.cn/show.asp?id=81
二、调用方法
1、无组件类的调用方法:
Dim Upload
set Upload = new AnUpLoad
2、组件的调用方法:
Dim Upload
Set Upload = server.CreateObject("Anasp.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.openProcesser=false '禁止进度条功能,如果启用,需配合客户端程序
Upload.GetData() '获取并保存数据,必须调用本方法
2023-01-12 03:12:41
326KB
无组件上传
1