关于文件上传-讨论！

[ricai_ke]

由于建站需要，寻求一个上传速度快的文件上传组件。
各位大侠有什么好的推荐么?

[jolinkyo]

LyfUpload 是一个免费 的ASP组件，遵从 RFC-1867 HTTP 请求， 它可以在ASP页面中接收客户端浏览器使用encType= "multipart/form-data" 的Form上载的文件。
本版本支持单文件上载、多文件上载、限制文件大小上载、限制某一类型文件上载、文件上载到数据库、数据库中读取文件及文件上载重命名等功能。
功能：
支持单文件上传 (1.2版支持上载文件覆盖判断功能)
支持上传多个文件
可以将上传的文件改名保存(1.2版支持变量保存功能)
可以同时使用其它的form元素的信息
支持限制文件上传的大小
支持限制文件上传的类型 (1.1版修改，支持多文件类型)(1.2版修正)
可以得到上传文件的大小 (1.1版新增功能)
支持将文件内容保存进数据库，如上载图形文件、DOC文件等各类Windows文件 (1.1版新增功能)
支持从数据库中读取上载文件到数据库中的记录,如显示图形文件、DOC文件等各类Windows文件 (1.1版新增功能)
可以得到上传文件的MIME类型，如gif文件为images/gif(1.2版修正)
本版本完全免费，没有任何限制
运行环境：
Windows 2000 and IIS 5.0, or
Windows NT 4.0 and IIS 3.0/IIS 4.0, or
Windows 95/98 and Personal Web Server with ASP support.
主要文件：
lyfupload.dll 文件上传组件
readme.txt 使用说明(txt版本)
RFC1867.txt 文件上传标准
default.htm 演示用起始页面
help.htm 使用说明(html版本)
demo1-demo6.htm(asp) 演示文件
使用方法：
一、注册组件
使用 regsvr32 lyfupload.dll 命令注册！
二、组件方法介绍：
Request方法
得到上一个页面中表单元素的值；
声明：
Public Function Request(nm As String)
返回值：
为元素的值，字符串类型；
FileType方法
得到上传文件的Content-Type
声明：
Public Function FileType(strTag As String)
参数介绍：
strTag为Form中文件元素的名字，如"File1"：
返回值：
文件上传成功，返回文件的Content-Type
不成功，返回为""
SaveFile方法(1.2版更改)
上传客户端选择的文件
声明：
SaveFile(strTag As String, strPath As String,strway as boolean, Optional DestFileName As String) As String
参数介绍：
strTag为Form中文件元素的名字，如"File1"：
strPath为要文件保存在本机的目录；
strway为上传文件方式，覆盖方式上传为true，不覆盖上传为false;
DestFileName(可选参数)，代表文件上传后重命名保存的名字；
返回值：
成功，返回上载的文件的名字；
不成功，如果上传失败，返回为""；
不成功，如果上传文件后缀不对，返回为"0"(当设置了extName属性时有效)；
不成功，如果上传文件的大小太大，返回为"1"(当设置了MaxSize属性时有效)；
不成功，如果上传文件同服务器上已有文件相同，返回为"2"(当设置了参数strway为false时有效)；
SaveFileToDb方法 (1.1版新功能)
上传各类文件到数据库中(同savefile方法不同的是直接保存文件到数据库中而不保存为盘文件)
声明：
SaveFile(strTag As String) As String
参数介绍：
strTag为Form中文件元素的名字，如"File1"；
返回值：
成功，返回上载的文件的名字；
不成功，如果上传失败，返回为""；
不成功，如果上传文件后缀不对，返回为"0"(当设置了extName属性时有效)；
不成功，如果上传文件的大小太大，返回为"1"(当设置了MaxSize属性时有效)；
About方法
显示LyfUpload组件的作者及版本号等信息
调用：
<%
dim ss
Set ss = Server.CreateObject("LyfUpload.UploadFile") '创建LyfUpload组件对象
ss.about
%>
三、组件属性介绍
ExtName属性
限制上载文件的类型；

调用：

Set obj = Server.CreateObject("LyfUpload.UploadFile")

obj.extname="gif" '设置文件上传只能是gif文件

obj.extname="gif,jpg,bmp" '多文件类型请用","隔开

MaxSize属性

限制上载文件的大小；

调用：

Set obj = Server.CreateObject("LyfUpload.UploadFile")

obj.maxsize=2048 '设置文件上传的最大为2048个字节(2K)

FileSize属性(1.1版新功能)

得到上载文件的大小；

调用：

Set obj = Server.CreateObject("LyfUpload.UploadFile")

response.write obj.filesize

DBContent属性(1.1版新功能)

得到上载文件的实际内容，为二进制流(不能直接读取，主要用于上载文件到数据库中)；

调用：

Set obj = Server.CreateObject("LyfUpload.UploadFile")

ss=obj.SaveFiletodb("file1") '保存文件到服务器

aa=obj.filetype("file1") '得到文件的Content-Type

'----文件上载到数据库中---------

rs.AddNew

rs("name")=trim(aa)

rs("pic").AppendChunk obj.DBContent'BLOB数据不能直接赋值

rs.Update

rs.movelast