这个下载怎么样实现？？急！～

2007-05-25 12:07:47 219 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

AI大模型驱动的智能座舱研发体系重构 AI大模型正重构智能座舱研发体系的核心逻辑，需以场景认知为起点、混合架构为支柱、AI原生生态为落脚点。未来，研发体系需持续融合认知科学、边缘计算与开放生态理论，推动座舱从“工具”进化为“伙伴”。阅读详情

我的网站文件是放在Ｄ盘下，但是我的下载内容是放在Ｉ盘（映射盘）下，我要怎么才能找到Ｉ盘这个地址下载？以下是我的程序，试了几个方法，现在只有把Ｉ盘下的东西放到网站文件夹下面才能下载，但是我Ｉ盘里文件比较多，这样一个一个拷过去比较难．要怎么实现呢？？？？？？？急！！！
<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

%>

...全文