ASP中如何下载FTP站点中文件

想用ASP编写能实现下载FTP站点中的文件,不知要如何写,请各位帮助 问题点数：50、回复次数：5Top

1 楼wangyingdong（初学asp.net）回复于 2006-02-22 17:52:49 得分 30

<%  
  Response.Buffer=true  
  取得要下载的文件，如果不为空。就下载  
  dim   url,trueurl  
  url="下载文件路径和下载文件名"  
  fname=Request("filename")  
  if   fname<>""   then  
  trueurlurl=server.MapPath("/")   &url  
  end   if  
  set   objFso=server.CreateObject("scripting.filesystemobject")  
  set   fn=objFso.GetFile(trueurl)  
  flsize=fn.size  
  flname=fn.name  
  set   fn=nothing  
  set   objFso=nothing  
   
  set   objStream=server.CreateObject("adodb.stream")  
  objStream.Open    
  objStream.Type=1  
  objStream.LoadFromFile   url  
   
  select   case   lcase(right(flname,4))  
  case   ".asf"  
  ContentType="video/x-ms-asf"  
  case   ".avi"  
  ContentType="video/avi"  
  case   ".doc"  
  ContentType="application/msword"  
  case   ".zip"  
  ContentType="application/zip"  
  case   ".xls"  
  ContentType="application/vnd.ms-excel"  
  case   ".gif"  
  ContentType="image/gif"  
  case   ".jpg","jpeg"  
  ContentType="image/jpeg"  
  case   ".wav"  
  ContentType="audio/wav"  
  case   ".mp3"  
  ContentType="audio/mpeg3"  
  case   ".mpg",   "mpeg"  
  ContentType="video/mpeg"  
  case   ".rtf"  
  ContentType="application/rtf"  
  case   ".htm","html"  
  ContentType="text/html"  
  case   ".txt"  
  ContentType="text/plain"  
  Case   ".ASP",   ".ASA",   "ASPX",   "ASAX",   ".MDB"  
  Response.Write   "受保护文件,不能下载."  
  Response.End  
  case   else  
  ContentType="appliation/octet-stream"  
  end   select  
   
  Response.AddHeader   "Content-Disposition",   "attachment;   filename="&flname  
  Response.AddHeader   "Content-Length",   flsize  
  Response.CharSet="UTF-8"  
  Response.ContentType=ContentType  
  Response.BinaryWrite   objStream.Read    
  Response.Flush    
  Response.Clear()  
  objStream.Close  
  set   objStream=nothing  
  %>  
   
   
  详见：http://www.dwww.cn/new/2005812224648154.htmlTop

2 楼slayerbb（名字被抢了）回复于 2006-02-22 18:15:40 得分 10

FSOTop

3 楼dingjin_dj（海诚）回复于 2006-02-23 10:01:48 得分 0

upTop

4 楼DarkW（夜狼）回复于 2006-02-23 10:36:53 得分 0

好Top

5 楼ChinaMake2008（Notes）回复于 2006-03-10 08:26:22 得分 10

我写了一个     呵呵     如果你要的话     发信到txxc2008@163.com     我这个暂时传送文件到FTP     FTP端口只能用默认的21Top

相关问题

• mpeg
• video
• application
• asp
• server
• contenttype
• objstream
• objfso
• fn
• case

• 帖主：hzpirlo
• wangyingdong
• slayerbb
• ChinaMake2008

• Web开发类图书