纯Javascript打造的ASP组件|无组件上传，支持多文件及进度条

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

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

普通演示代码如下：
<%@language=javascript%>>

<%
var Upload,Info,undefined;
if(Re***st.ServerVariables("Request_Method") == "POST")
{
 //Upload = Se***r.CreateObject("Ri***on.Upload");
 Upload = GetObject("script:http://www.zope.org/Members/Rimifon/Fy***oad.sct#Upload");
 Up***d.MaxSize = 1024 * 512;
 Up***d.ReadForm(204800);
 Up***d.SaveFile(".");
 var field = new Array;
 fi***.push("允许上传的文档：" + (Up***d.Filter?Up***d.Filter:"所有文档"));
 fi***.push("单个文件最大值：" + (Up***d.MaxSize?(Up***d.MaxSize/1024/1024).toFixed(1)+" Mb":"不限文件大小"));
 fi***.push("============================================================");
 for(var x in Up***d.Field)
 {
  if(Up***d.Field[x].FilePath)
  {
   fi***.push(x+"：" + (Up***d.Field[x].Message?
    Up***d.Field[x].FilePath+"（" + Up***d.Field[x].Message + "）":
    "Up***d.Field[x].FileName + ">" +
    Up***d.Field[x].FilePath + " (" + Up***d.Field[x].FileSize + " bytes)"));
  }
  else
  {
   fi***.push(x+"："+Up***d.Field[x].Value);
  }
 }
 Up***d.Dispose();
 Upload = undefined;
 Info = fi***.join("
");
}%>
<%=Info%>

请注意：下面的附件中，组件未必是最新的，最新组件的地址是： （文档以utf-8编码保存）
Fy***oad.sct">http://www.zope.org/Members/Rimifon/Fy***oad.sct