ASP中多文件同时上传解决方案

上传文件如下：

请参阅license.txt

支持上传多个文件

支持所有格式的文件上传，zip,jpg,gif等格式全部支持

支持将上传的文件改名保存

支持同时使用其它的form input,携带附加的信息，例如，文件说明

支持判断上传文件的大小、文件类型

支持将文件内容保存进数据库

支持上传到ftp目录中

无需iis将目录设置为write(如果是ntfs文件系统，其安全性需要设置，可以简单的设置为everyone full control,或者设置为iusr_server full control)

youupload目前无任何功能限制，完全免费使用

适用于 windows 98 + pws4 ,nt4.0 server + iis 4 ，win2k+iis 5

 http://www.csdn.net

要求: windows nt server 4 edition + sp3 + ie4.01 + option pack / win98 + ie4.01

1. 如果下载的是安装程序,运行setup即可
2. 测试，你安装目录下的examples复制到web服务器的发布目录即可测试默认文档default.asp
3. 在浏览器地址栏输入如 http://yourhost/uploadtest/
4. 如果上方出现版权所有，基本上没多大问题了
5. 你再上传一些文件试一下

object.form(fieldname) 返回表单数据 object.form(“title”) title是表单名称 object.savefile(fieldname, filename) fieldname:表单名 filename:新的文件名(注：要包括路径) dim upl, filename set upl = server.createobject(“yousoft.youupload”) filename = upl.filename(“file1”) upl.savefile “file1”, “c:\temp\” & filename object.savefileas(fieldname, fname) fieldname:表单名 filename:新的文件名(注：要包括路径) dim upl, filename set upl = server.createobject(“yousoft.youupload”) filename = upl.filename(“file1”) upl.savefileas “file1”, “c:\temp\” & filename object.savetoftp(ftp_host,ftp_port,timeout,ftp_user,ftp_password, use_proxy,proxy_host,proxy_port,user_dir,fieldname,filename) ftp_host ：ftp主机(最好用ip地址) ftp_port ：ftp服务器端口(一般为21) timeout ：连接ftp超时时间 ftp_user ：ftp登录名 ftp_password ：ftp登录密码 use_proxy ：是否使用代理服务器连接ftp，如果 =1 则使用代理 =0 不使用代理 proxy_host ：代理服务器主机(最好用ip)，结合use_proxy使用 proxy_port ：代理服务器端口，结合use_proxy使用 user_dir ：当前ftp路径，为空则表示不指定路径，即登录后默认路径 fieldname ：表单名称，从这决定保存的文件 filename ：指定新的文件名 obj.savetoftp “192.168.7.168”,21,5000,”xu”,”xu”,0,””,0,””,”file1″,”new.exe” object.filename(fieldname) 得到文件名（包括扩展名） object.filepath((fieldname) 取得上传文件路径 object.filesize((fieldname) 取得上传文件大小 object.fileext(fieldname) 取得上传文件扩展名 object.oldfilename(fieldname) 取得上传文件完整名（包括路径在内） object.filenamex(fieldname) 得到文件名（不包括扩展名） object.count 上传文件数目 object.totalbytes 上传数据总字节数 object.spendtime 上传所花时间（单位:毫秒） object.userfile(n) 取得上传文件第n个的名称(表单名) object.getfiledata(fieldname,datatype) 取得上传文件数据 datatype ： “bin” 取得二进制数据 “txt” 取得文本数据 你可以取得数据存放到数据库中，以文本或二进制方式存放 <%=obj.getfiledata (“file1″,”txt”) %> object.version 取得当前youupload版本

 

请参考examples目录下的示例

上传form的写法
<form enctype=”multipart/form-data” method=”post” action=”upload.asp” name=”upload”>
enctype=”multipart/form-data” 是必须的，并且method必须是post

如果获得上传文件的文件个数
set obj=server.createobject(“yousoft.uploadfile”)
response.write “文件个数：”&obj.count

如果上传多个文件，如果确定对应file input上传的文件
obj.userfile(n)
取得上传文件第n个的名称(表单名)

如何获得文件的后缀名
ext=fileext(fieldname) fieldname为表单名，如file1

如何将文件内容保存进数据库
如果你使用sql server,需要定义一个image类型的字段
dim conn,rs
set conn=server.createobject(“adodb.connection”)
conn.open “testfile”,”sa”,”xxx”
set rs=server.createobject(“adodb.recordset”)
rs.open “select * from [file] where filename is null”,conn,1,3
rs.addnew
rs(“filename”)=obj.filename(file1)
rs(“filesize”)=obj.filesize(file1)
rs(“filecontent”).appendchunk obj.getfiledata (userfile,”bin”) blob数据不能直接赋值 如果不是二进制保存 “bin” 改为 “txt”
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing   
相反的要将数据从数据库里面取出来，请参考下面的程序
dim conn,rs
dim content
set conn=server.createobject(“adodb.connection”)
conn.open “testfile”,”sa”,”xxx”
set rs=server.createobject(“adodb.recordset”)
rs.open “select * from [file] where id =” & id,conn,1,1
content=rs(“filecontent”).getchunk(clng(rs(“filesize”)))))
conn.close
set rs=nothing
set conn=nothing       

安装可能出现的问题

如果你发现，请与我联系！

程序使用可能存在的问题

如果你发现，请与我联系！

如果你在测试中发现任何问题，请mailto: mailto:yousoft@chinaren.com?subject=关于youupload,或者请在我主页的bbs进行讨论或留言。

希望大家能对这个组件多提意见。

在我们讨论asp问题的时候，常常会遇到许多问题只有利用asp components来解决，而这些com通常只有在国外的站点才可能找到，可见国内的这方面的东东还少。所以我希望得到各位的支持。