国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP隱藏真實文件的下載功能實現代碼

2024-05-04 11:00:28
字體：大 中 小
來源：轉載
供稿：網友
格式：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 "受保護文件,不能下載."
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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 安多县| 湖口县| 长顺县| 阿尔山市| 潢川县| 阿尔山市| 安西县| 红河县| 鸡东县| 鲁山县| 玉环县| 涪陵区| 安西县| 贞丰县| 武定县| 丘北县| 宜君县| 资阳市| 阳春市| 寻乌县| 收藏| 台山市| 西贡区| 格尔木市| 武冈市| 囊谦县| 铜山县| 内黄县| 安远县| 诸城市| 荆州市| 定日县| 五大连池市| 庄浪县| 潮州市| 射洪县| 淮阳县| 和田市| 青田县| 大埔县| 科尔|