ITPub博客

首页 > 应用开发 > IT综合 > ASP中多文件同时上传解决方案 (转)

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

原创 IT综合 作者:worldblog 时间:2007-12-10 10:04:27 0 删除 编辑
ASP中多文件同时上传解决方案 (转)[@more@]

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

上传表单如下:

标题:    性别: 女 属于: <select multiple size=6 name=sel1> 是否选定: 内容: 分类:      选取文件一:    选取文件二:    选取文件三:    选取文件四:    选取文件五: 

 

ASP源代码



文件上传



  <% Set Obj = Server.Createobject("Yousoft.UPLOADFile")
  Response.Write "总共上传 " & obj.Count & " 个文件
总数据大小 " & obj.TotalBytes & " Bytes
共花费了时间 " & (obj.SpendTime/1000) & " 秒
"
  response.write obj.version %>



 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
标题:<%=obj.form("title1")%>
属于:<%=obj.form("sel1")%>
性别:<%=obj.form("sex1")%>
分类:<%=obj.form("list1")%>
内容: <%=obj.form("Content1")%>
是否选定:<%=obj.form("select1")%>
提交按钮:<%=obj.form("save")%>

 


上传文件如下:



 
 
 
 
 
 
 
 
 
  <%for i=0 to Obj.Count-1 %>
  <% userFile = Obj.userFile(i) %>
 
 
 
 
 
 
 
 
 
  <% ' Obj.SaveToFTP "192.168.7.168",21,5000,"xu","xu",0,"",0,"",userFile,Obj.FileName(userFile) %>
  <% 'Obj.SaveFile userFile, "c:" & Obj.FileName(userFile) %>
  <%' Obj.SaveFileAS userFile, "c:" & Obj.FileName(userFile)  %>
  <% 'Obj.SaveFileAS "file6", "c:a.txt"  %>
 <%' =Obj.GetFileData (userFile,"txt") %>
  <% next
  set Obj=nothing %>
名称文件名(包括扩展名)文件名(不含扩展名)文件大小(B)原文件路径文件扩展名原文件名(含路径)

  <% =userFile %>
 

  <% =Obj.FileName(userFile) %>
 

  <% =Obj.FileNameX(userFile) %>
 

  <% =Obj.FileSize(userFile) %>
 

  <% =Obj.FilePath(userFile) %>
 

  <% =Obj.FileExt(userFile) %>
 

  <% =Obj.OldFileName(userFile)%>
 




上传结果:

总共上传 5 个文件
总数据大小 4317 Bytes
共花费了时间 .321 秒
YouUpload 1.0版 版权所有(C)徐长友


标题: ASP中多文件同时上传解决方案 属于:体育艺术 性别:男 分类:分类3 内容: 在大多数J2EE系统中,我们希望由无状态会话Bean形式的工厂或管理器触发适当的事件。但EJB容器创建每一个Bean实例的时候都会带有一组重复的监听器。本文告诉你如何在EJB环境中正确实现“观察者”模式。 是否选定:是 提交按钮:确认上传

上传文件如下:

名称文件名(包括扩展名) 文件名(不含扩展名) 文件大小(B) 原文件路径文件扩展名原文件名(含路径) file1 AUTOEXEC.BAT AUTOEXEC 2 C: .BAT C:AUTOEXEC.BAT file2 boot.ini boot 199 C: .ini C:boot.ini file3 CONFIG.SYS CONFIG 2 C: .SYS C:CONFIG.SYS file4 skin.txt skin 2236 C: .txt C:skin.txt file5 WINNTnwstatus.txt WINNTnwstatus 59 C: .txt C:WINNTnwstatus.txt

以上使用了YouUpload上传组件,下面是YouUpload的介绍:

YouUpload -- 文件上传组件

欢迎使用YouUpload !

许可协议

请参阅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

    下载地址

     .NET/FileBBS/files/2001_9/T_567_1.zip" target=_blank>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的写法


    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通常只有在国外的站点才可能找到,可见国内的这方面的东东还少。所以我希望得到各位的支持。


    来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990843/,如需转载,请注明出处,否则将追究法律责任。

    请登录后发表评论 登录
    全部评论
    • 博文量
      6241
    • 访问量
      2449107