主頁 > 知識庫 > ASP隱藏真實文件的下載功能實現(xiàn)代碼

ASP隱藏真實文件的下載功能實現(xiàn)代碼

熱門標(biāo)簽:智能電銷機器人適用于哪些行業(yè) 西寧公司外呼系統(tǒng)平臺 長沙防封電銷卡品牌 武漢營銷電話機器人軟件 徐州人工智能電銷機器人好用嗎 地圖標(biāo)注宅基地 外呼系統(tǒng)還用卡么 騰訊地圖標(biāo)注商戶關(guān)閉 地圖標(biāo)注服務(wù)哪家好
格式:Download.asp?FileName=要下載的文件名
復(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 "受保護文件,不能下載."
Response.End
End Select
' 下載這個文件
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

標(biāo)簽:普洱 通遼 荊門 巴彥淖爾 運城 鷹潭 雅安 通化

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP隱藏真實文件的下載功能實現(xiàn)代碼》,本文關(guān)鍵詞  ASP,隱藏,真實,文件,的,下載,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP隱藏真實文件的下載功能實現(xiàn)代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于ASP隱藏真實文件的下載功能實現(xiàn)代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章