纯Javascript打造的ASP上传组件，支持多文件上传、进度条、数据库存放和文件系统存放组件
演示：http://www.fengyun.org/Test/NetDisk/
相关说明：
有组件上传方式请右键"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调用时“不存在属性”的错误。
简要代码示例：
Set Upload = Server.CreateObject("Rimifon.Upload")
Upload.ReadForm 204800
'存放文件系统：
Upload.SaveFile "Upload"
'存放数据库：
'Rs(0).AppendChunk Upload.Form("file1")
Upload.Dispose
Set Upload = Nothing
更新记录：
最后更新：2006-08-25 21:22
[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
用法：
For VBScript：
<%@language="VbScript" codepage="936"%><html><head><%
Dim svrInfo
if Request.ServerVariables("Request_Method").Item = "POST" Then
Set Upload = Server.CreateObject("Rimifon.Upload")
Upload.AspTest Me
Upload.ReadForm
Upload.SaveFile
svrInfo = Upload.Form("file_01").Message
If Upload.Form("file_01").FileSize > 0 and svrInfo = "" Then svrInfo = "上传成功。"
Upload.Dispose
End If
%><title>文件上传</title></head><body>
<font color="red"><%=svrInfo%></font>
<form method="post" enctype="multipart/form-data">
<input type="file" name="file_01">
<input type="submit">
</form></body></html>
For JScript：
<%@language="JScript" codepage="936"%><html><head><%
var svrInfo;
if(Request.ServerVariables("Request_Method").Item == "POST")
{
var Upload = Server.CreateObject("Rimifon.Upload");
Upload.AspTest(this);
Upload.ReadForm();
Upload.SaveFile();
svrInfo = Upload.Form("file_01").Message;
if(Upload.Form("file_01").FileSize > 0 && !svrInfo) svrInfo = "上传成功。";
Upload.Dispose();
}
%><title>文件上传</title></head><body>
<font color="red"><%=svrInfo%></font>
<form method="post" enctype="multipart/form-data">
<input type="file" name="file_01">
<input type="submit">
</form></body></html>
官方下载地址：（建议选择该下载点）
http://www.zope.org/Members/Rimifon/FyUpload.sct（右键下载）
中国asp之家下载地址：
FyUpload.rar （3.00 KB）
站长工具
相关文章
请稍等，评论加载中...