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 "無(wú)效文件名."
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 "無(wú)效文件名."
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)文章
獲取軟件下載的真實(shí)地址！再談獲取Response.redirect重定向的URL
獲取軟件下載的真實(shí)地址！再談獲取Response.redirect重定向的URL...2006-08-08
有時(shí)候大家享用base64 加解密，下面是具體的實(shí)現(xiàn)代碼，需要的朋友可以參考下。2009-06-06
有時(shí)候我們需要 延遲 下面的函數(shù)的執(zhí)行，但不建議使用啊，最好能換個(gè)思路。2009-06-06
asp實(shí)現(xiàn)獲取MSSQL數(shù)據(jù)庫(kù)表指定條件行數(shù)的函數(shù)
這篇文章主要介紹了asp實(shí)現(xiàn)獲取MSSQL數(shù)據(jù)庫(kù)表指定條件行數(shù)的函數(shù)的的相關(guān)資料,需要的朋友可以參考下2015-03-03
由給定的字符串生成關(guān)鍵字...2006-10-10
最近做的一個(gè)項(xiàng)目中需要使用asp來獲取瀏覽器的agent信息，好久都不玩ASP了，先度娘一下吧，把結(jié)果總結(jié)一下分享給大家。2015-05-05
用asp實(shí)現(xiàn)網(wǎng)頁(yè)郵箱訪問的方法
用asp實(shí)現(xiàn)網(wǎng)頁(yè)郵箱訪問的方法...2007-04-04
ASP向Excel導(dǎo)數(shù)據(jù)(圖片)終結(jié)版 ASP操作Excel
ASP向Excel導(dǎo)數(shù)據(jù)(圖片)終結(jié)版 ASP操作Excel，需要的朋友可以參考下。2009-11-11
在基于瀏覽器/服務(wù)器的應(yīng)用環(huán)境中，在瀏覽器中上傳各種類型的文件一直是困擾用戶文件管理應(yīng)用的難題之一。常用的實(shí)現(xiàn)方法是利用在RFC1867中引入的一個(gè)新類型：File以及ADO Stream對(duì)象。本文對(duì)上述上傳方法及實(shí)現(xiàn)原理作了論述，并給出了具體解決實(shí)例。2015-09-09
asp實(shí)現(xiàn)新評(píng)論自動(dòng)發(fā)短信提示的代碼
前幾天看到有幾個(gè)wordpress都有有新評(píng)論自動(dòng)發(fā)短信提示的功能，我覺得不錯(cuò)，對(duì)于不經(jīng)常在線的管理員特別有幫助，如果有人發(fā)非法信息一下子就知道了，而且發(fā)信息是免費(fèi)的。2009-11-11