UC知道ASP写的文件下载代码
来源：百度知道 编辑：UC知道 时间：2024/05/15 11:15:34
在软件信息.asp上有一个下载按钮：
<a href="down.asp?filename=<%=rs("filename")%>"><img src="images/download.gif" border="0"></a>
在down.asp上计算下载次数，并下载文件：
<!--#include file="conn.asp"-->
<%
set rs2 = server.CreateObject ("Adodb.recordset")
sql2="update downtimes set downtimes=(downtimes+1) where filename="&request("filename")
rs2.open sql2,conn,1,1
set rs2=nothing
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from upfile where filename="&request("filename")
rs.open sql,conn,1,1
Response.Redirect rs("filepath")
%>
filepath一般是“XXX.mp3”或“XXX.wma”、“XXX.doc”、“XXX.jpg”这样的名称，当点击下载按钮后，浏览器不显示下载对话框，而是直接在浏览器中播放或是显示这些文档或图片。请问有没有什么办法，不让浏览器调用本机播放器播放这些影音文件。当然，右键“目标另存为”可以下载，但是这样就不能计算文件的下载次数了，有两全其美的办法么？
<a href="down.asp?filename=<%=rs("filename")%>"><img src="images/download.gif" border="0"></a>
在down.asp上计算下载次数，并下载文件：
<!--#include file="conn.asp"-->
<%
set rs2 = server.CreateObject ("Adodb.recordset")
sql2="update downtimes set downtimes=(downtimes+1) where filename="&request("filename")
rs2.open sql2,conn,1,1
set rs2=nothing
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from upfile where filename="&request("filename")
rs.open sql,conn,1,1
Response.Redirect rs("filepath")
%>
filepath一般是“XXX.mp3”或“XXX.wma”、“XXX.doc”、“XXX.jpg”这样的名称，当点击下载按钮后，浏览器不显示下载对话框，而是直接在浏览器中播放或是显示这些文档或图片。请问有没有什么办法，不让浏览器调用本机播放器播放这些影音文件。当然，右键“目标另存为”可以下载，但是这样就不能计算文件的下载次数了，有两全其美的办法么？
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> 文件不存在<p>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
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