保存文件

我要的效果是单击一个超级连接后弹出一个选择保存或打开或取消的框,效果和IE的那个下载框是一样的,请问代码怎么写? 问题点数：20、回复次数：4Top

1 楼zhurenweile（助人为乐）回复于 2005-08-17 14:34:38 得分 20

<%  
  Response.ContentType   =   "application/octet-stream"  
  Response.AddHeader   "Content-Disposition","attachment;   filename="&request("downloadname")&""  
  response.binarywrite   getBinaryFile(Server.MapPath("../download/"&request("downloadname")&""))'文件存放的路在径  
  function   getBinaryFile(fileSpec)  
  Dim   adTypeBinary  
  adTypeBinary   =   1  
  Dim   oStream  
  set   oStream   =   server.createobject("ADODB.Stream")  
  oStream.Open  
  oStream.Type   =   adTypeBinary  
  oStream.LoadFromFile   fileSpec  
  getBinaryFile=   oStream.read  
  set   oStream=nothing  
  end   function  
  %>  
  Top

2 楼ken_666666（阿风）回复于 2005-08-17 16:55:40 得分 0

怎么用？onclick时调用这个函数？那么  
  Response.ContentType   =   "application/octet-stream"  
  Response.AddHeader   "Content-Disposition","attachment;   filename="&request("downloadname")&""  
  response.binarywrite   getBinaryFile(Server.MapPath("../download/"&request("downloadname")&""))'文件存放的路在径  
  这段代码放哪的？Top

3 楼zhurenweile（助人为乐）回复于 2005-08-18 08:59:56 得分 0

Response.Write   "下载文件:<a   href=downloadfile.asp?downloadname="&rsUser("downloadname")&"   target=_blank>"&rsUser("downloadname")&"</a>"  
  Top

4 楼zhurenweile（助人为乐）回复于 2005-08-18 09:01:35 得分 0

把上面的代码单独放到一个文件里，放到文件downloadfile.asp<%  
  Response.ContentType   =   "application/octet-stream"  
  Response.AddHeader   "Content-Disposition","attachment;   filename="&request("downloadname")&""  
  response.binarywrite   getBinaryFile(Server.MapPath("../download/"&request("downloadname")&""))'文件存放的路在径  
  function   getBinaryFile(fileSpec)  
  Dim   adTypeBinary  
  adTypeBinary   =   1  
  Dim   oStream  
  set   oStream   =   server.createobject("ADODB.Stream")  
  oStream.Open  
  oStream.Type   =   adTypeBinary  
  oStream.LoadFromFile   fileSpec  
  getBinaryFile=   oStream.read  
  set   oStream=nothing  
  end   function  
  %>  
  靠联接打开Top

相关问题

• 文件
• 代码
• 效果
• 保存
• downloadname
• response
• request

• 帖主：ken_666666
• zhurenweile

• Web开发类图书