<!--#include file="conn.asp"--><!-- 引入數(shù)據(jù)庫連接文件 -->
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Dim downName
Const adTypeBinary = 1
Fileid = Request.QueryString("File") 'GET傳來的文件名變量

? set rs=server.createobject("adodb.recordset") '創(chuàng)建記錄集對象
? sql="select top 1 * from files where F_id="&Fileid???? 'SQL查詢語句
? rs.open sql,conn,1,1????????????????????????? '打開記錄集

if rs.recordcount<1 then
Response.Write "找不到此文件"
else

FileName=rs("F_DocURL")
DownName=rs("F_title")&Mid(FileName, InStrRev(FileName, "."))
' 下面是不希望下載的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保護文件,不能下載."
Response.End
End Select
' 下載這個文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & DownName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath("Attachment/"+FileName) '設(shè)置路徑
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End

End if
rs.close??????????????????????????????????????? '關(guān)閉記錄集
Set rs=Nothing????????????????????????????????? '釋放記錄集
conn.close????????????????????????????????????? '關(guān)閉數(shù)據(jù)庫連接
Set conn=Nothing??????????????????????????????? '釋放數(shù)據(jù)庫連接
%>

轉(zhuǎn)載于:https://www.cnblogs.com/moretop/archive/2011/03/07/1973211.html

《新程序員》：云原生和全面數(shù)字化實踐50位技術(shù)專家共同創(chuàng)作，文字、視頻、音頻交互閱讀

總結(jié)

以上是生活随笔為你收集整理的ASP隐藏文件地址，并在下载时替换文件名的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。