ASP 组件|无组件上传

最后更新：2006-08-25 21:22

纯Javascript打造的ASP上传组件，支持多文件上传、进度条、数据库存放和文件系统存放

组件下载地址（为方便版本同步，未在此处上传附件）：
http://www.zope.org/Members/Rimifon/FyUpload.sct（右键下载）

相关说明：
有组件上传方式请右键"FyUpload.sct"注册，然后可以使用：
　　　　Server.CreateObject("Rimifon.Upload")
创建对象。
无组件上传方式请使用
　　　　GetObject("script:" + 组件地址)
创建对象，组件地址为硬盘绝对路径，也可以使用http完整路径。
==============================================
属性和方法说明：
　　设置页面字符编码：Upload.Charset = "UTF-8" //默认为gb2312编码。
　　文件大小限制：Upload.MaxSize = 1024 * 512 //设置上传大小不超过 512 kb，参数为零时不限制上传文件大小（默认为 0）。
　　文件类型限制：Upload.Filter = "rar|zip|txt|gif|jpg|bmp|htm|html|swf|mht"; //（默认值）设置允许上传的文档类型，不限制上传文件类型则使用空值。
　　获得上传文件的客户端路径：Upload.Field.输入框名称.FilePath
　　获得上传文件的文件名称：Upload.Field.输入框名称.SourceName
　　获得上传文件后保存的文件名：Upload.Field.输入框名称.FileName
　　获得上传文件的MimeType：Upload.Field.输入框名称.FileType
　　获得上传文件实际大小：Upload.Field.输入框名称.FileSize
　　获得上传文件被拒绝信息：Upload.Field.输入框名称.Message
　　获得表单数据：Upload.Field.输入框名称.Value //如果是文件则返回文件的Unicode编码内容
　　指定上传缓冲区大小并读取上传数据：Upload.ReadForm(缓冲大小[bytes], 参数二) //默认为全部缓冲，推荐在200k以下（可解决2003不能上传大文件的问题）；提供参数二可为上传生成进度条的Application数据。
　　保存文件到指定目录：Upload.SaveFile("保存目录") //默认为当前目录
　　简化文本元素数据读取：Upload.Form(输入框名称); // 将Upload.Field.输入框名称.Value简化为习惯性的方法，并可解决vbs调用时“不存在属性”的错误。
==============================================

演示： http://www.fengyun.org/Test/NetDisk

简要代码示例：
Set Upload = Server.CreateObject("Rimifon.Upload")
Upload.ReadForm 204800
'存放文件系统：
Upload.SaveFile "Upload"
'存放数据库：
'Rs(0).AppendChunk Upload.Form("file1")
Upload.Dispose
Set Upload = Nothing

更新记录：
        [06-07-31] 将Upload.Field["Test"].Value简化为Upload.Form("Test")
        [06-08-01] 修改Upload.Form方法，如果是文件则返回Upload.Field["Test"]对象
        [06-08-02] 修改Upload.Form方法，后面不加属性则返回Value值
        [06-08-10] 指定了注册时的clsid，以便能生成正确的“通用类型库”
        [06-08-23] 修正了vbs不能枚举表单元素的Bug