那有ASP文件上传源码教程?

文件上传吗..只需要三个文件就可以了.这是我的例子,你复制去用用.1:Upform.asp 内容如下.文件上传

文件上传(此功能上传速度会有些慢!提交后请稍等!)

上传个数： 位置: 上传位置 文件夹名称 这里的值.是文件夹的名称.你要先创建好文件名称哦.如这里就是放在Passenger这个文件夹下面.

文件1:

=======================================================================2:Upfile.asp 内容如下.<%dim conn,mypathset conn=server.createobject("adodb.connection")mypath=server.mappath("xx.mdb") '建立数据库连接.conn.open "provider=microsoft.jet.oledb.4.0;data source=" & mypath %>photo上传结果 <%dim upload,file,formName,formPath,iCount,Photo_Beizhu,upcountset upload=new upload_5xSoft ''建立上传对象response.write upload.Version&"" ''显示上传类的版本if upload.form("filepath")="" then ''得到上传目录 HtmEnd "请输入要上传至的目录!" set upload=nothing response.endelse formPath=upload.form("filepath") ''在目录后加(/) if right(formPath,1)<>"/" then formPath=formPath&"/" end ifdim rs,sqlset rs=server.createobject("adodb.recordset") sql="select * from 表名"rs.open sql,conn,1,3iCount=0for each formName in upload.file ''列出所有上传了的文件 set file=upload.file(formName) ''生成一个文件对象 if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件'录入数据库 rs.addnew rs("字段")=formPath&File.FileName rs.update response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!" iCount=iCount+1 end if set file=nothingnextset upload=nothing ''删除此对象Htmend iCount&" 个文件上传结束!"sub HtmEnd(Msg) set upload=nothing response.write ""&Msg&" [返回]"end sub%>=============================================================3:upload_5xsoft.inc 这个最重要的文件.内容如下.

标签：源码