ASP隱藏真實(shí)文件的下載功能實(shí)現(xiàn)代碼
更新時(shí)間：2008年12月02日 23:09:31 作者：
將下邊的文件保存為Download.asp就可以了，然后根據(jù)需要傳要下載的文件過來就可以了。
格式：Download.asp?FileName=要下載的文件名
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "無效文件名."
Response.End
End if
' 下面是不希望下載的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保護(hù)文件,不能下載."
Response.End
End Select
' 下載這個(gè)文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
復(fù)制代碼 代碼如下:
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "無效文件名."
Response.End
End if
' 下面是不希望下載的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保護(hù)文件,不能下載."
Response.End
End Select
' 下載這個(gè)文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
相關(guān)文章
將首頁轉(zhuǎn)成靜態(tài)html頁的asp文件
將首頁轉(zhuǎn)成靜態(tài)html頁的asp文件...2007-03-03
asp 數(shù)組 重復(fù)刪除函數(shù)(腳本之家增強(qiáng)版)
這篇文章是asp下刪除重復(fù)數(shù)組的函數(shù)，已經(jīng)經(jīng)過測試。2010-05-05
去掉html中的table代碼2009-02-02
檢查access數(shù)據(jù)庫中是否存在某個(gè)名字的表的asp代碼
首先調(diào)用adodb.connection對象中的openSchema函數(shù)，這樣會得到一個(gè)Recordset，其中每一條“紀(jì)錄”對應(yīng)著數(shù)據(jù)庫中的一張表，“紀(jì)錄”的每個(gè)“字段”包含了對應(yīng)表的某方面信息。其中TABLE_NAME字段包含了對應(yīng)表的名稱2009-06-06
其實(shí)我這樣做的本意是為了防止盜鏈！大家?guī)兔匆幌峦ㄟ^代碼能夠根治盜鏈！2009-03-03
在5年的開發(fā)中，總結(jié)出來的一些源碼2008-10-10
asp下使用fso生成js代碼的方法2008-06-06
asp下去除數(shù)組中重復(fù)項(xiàng)的方法
這篇文章主要為大家介紹了asp中去除數(shù)組中重復(fù)項(xiàng)的方法，需要的朋友可以參考下2007-08-08
asp下利用fso實(shí)現(xiàn)文件夾或文件移動改名等操作函數(shù)
以后利用fso來操作文件和文件夾就方便了2008-01-01
用實(shí)現(xiàn)ASP批量刪除目錄及文件的代碼...2007-07-07