日期:2014-05-17  浏览次数:21049 次

这个下载怎么样实现??急!~
我的网站文件是放在D盘下,但是我的下载内容是放在I盘(映射盘)下,我要怎么才能找到I盘这个地址下载?以下是我的程序,试了几个方法,现在只有把I盘下的东西放到网站文件夹下面才能下载,但是我I盘里文件比较多,这样一个一个拷过去比较难.要怎么实现呢???????急!!!
  <a   href=download.asp?file= <%=rs_word( "QQNo ")%> .pcm> 点这里下载 </a>
download.asp:
<%          
call     downloadFile(replace(Request( "file "), "\ ", " "))        
 
Function     downloadFile(strFile)              
strFilename     =     server.MapPath(strFile)        
   
Response.Buffer     =     True        
Response.Clear        
     
Set     s     =     Server.CreateObject( "ADODB.Stream ")        
s.Open              
s.Type     =     1        
   
on     error     resume     next        
   
Set     fso     =     Server.CreateObject( "Scripting.FileSystemObject ")        
if     not     fso.FileExists(strFilename)     then        
Response.Write( " <h1> Error: </h1> "     &     strFilename     &     "     文件不存在 <p> ")        
Response.End        
end     if        

Set     f     =     fso.GetFile(strFilename)        
intFilelength     =     f.size        

s.LoadFromFile(strFilename)        
if     err     then        
Response.Write( " <h1> Error:   </h1>   文件下载错误 ")        
Response.End        
end     if        

Response.AddHeader     "Content-Disposition ",     "attachment;     filename= "     &     f.name        
Response.AddHeader     "Content-Length ",     intFilelength        
Response.CharSet     =     "UTF-8 "        
Response.ContentType     =     "application/octet-stream "        

Response.BinaryWrite     s.Read        
Response.Flush        

s.Close        
Set     s     =     Nothing        

End     Function        
 
%>            


------解决方案--------------------
看看Server.MapPath 能帮你忙不?
------解决方案--------------------
file:///I:/ 这个路径吗?
------------------------------------------这个是你机器上的绝对路径!!
你上传到服务器上我觉得应该用相对路径啊用Server.MapPath对文件做个重定位试试!!
------解决方案-