asp+sql实现文件上传代码。主要是word文档和excel文档。100分求救！！急！！！！

[myxiaoxi]

asp+sql实现文件上传代码。主要是word文档和excel文档。
文件名及路径存在数据库中，文件存在文件夹中。
急！！！！！

[phuson]

无组件上传就可以了吧，搜一下，很多的

[myxiaoxi]

推荐一个吧。谢谢

[mymyal123]

太多了,自己搜吧

[phuson]

我用过无惧上传类，还不错

[jolinkyo]

用文件上传组件LyfUpload吧，比较简单

Set obj=Server.CreateObject("LyfUpload.UploadFile") //定义对象
obj.extname="doc,html,htm,xls,txt,gif,jpg,bmp,ppt,rar,zip" //限制文件类型
set rs=server.CreateObject("adodb.recordset")
subject=trim(obj.request("subject"))
workno=trim(obj.request("workno"))
str="select * from cs_document"
rs.open str,conn,1,3
rs.addnew
rs("workno")=workno
rs("createdate")=date()
rs("subject")=subject
ss1=obj.SaveFiletodb("addfile") //上传文件到数据库，成功返回文件名
aa1=obj.filetype("addfile") //获取文件类型
if ss1<>"" then
rs("file1").AppendChunk obj.DBContent //写入二进制数据流
rs("filename")=ss1
rs("filetype")=aa1
rs("filesize")=obj.filesize //获取文件大小
end if
rs.update

[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

[jolinkyo]

上例中：

ss1=obj.SaveFiletodb("addfile") //上传文件到数据库，成功返回文件名
ss1=obj.SaveFile("addfile",server.mappath("../.."),false,...) //上传文件到文件夹，成功则返回文件名

[myxiaoxi]

LyfUpload
在客户端可以用吗？还要下载LyfUpload 组件吗？

[jolinkyo]

要下载该组件
之后再注册该组件

[jolinkyo]

LyfUpload 可以接收客户端上传的文件
不过要用<form encType= "multipart/form-data" ....>来上传

[myxiaoxi]

不能让客户端注册组件。用无组件上传可以吗？可不可以给代码。
分不够可以再加。
我在网上搜了，但是没有找到合适的。自己没有时间做。

[zjyf]

找我啊，几分钟 搞定

[myxiaoxi]

zjyf:[e-mail]
发我邮箱吧。谢谢。

[itzhiren]

不知道上传到FTP怎样实现？

[bora521]

同时要不要编辑功能 用EwebEditer吧，很简单的

[jolinkyo]

用LyfUpload
在客户端不需要注册
只要在服务器端注册

[asd119cn]

推荐风声的无组件上传
http://rumor.17560.net/
自己进去找找吧。

[zjyf]

要两个文件，第一个为upload.htm文件,源码如下
<form name="FORM" action="deal.asp" method="post">
　　<input type="submit" name="submit" value="OK">
<input type="file" name="file1" width=400 value="">
</form>
第二个为deal.asp，将上传的文件存到服务器上，源码如下

<%
Function GetFileName(ByVal str)
If str <> "" Then
GetFileName = mid(str,InStrRev(str, "\")+1) '从路径中获取文件名字
Else
GetFileName = ""
End If
End function

FileName = Request.Form("file1")
Set obj = Server.CreateObject("ADODB.Stream")
obj.Type = 1 ' adTypeBinary
obj.Open
obj.LoadFromFile FileName
obj.SaveToFile Server.MapPath(GetFileName(FileName)),2
obj.Close
%>

好了，前几天比较忙，没来得及回复，不好意思，希望现在还能对你有点帮助。

[zwrtv]

学习下