国产探花免费观看_亚洲丰满少妇自慰呻吟_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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 突泉县| 武威市| 阳西县| 开平市| 那坡县| 斗六市| 安岳县| 盐亭县| 福海县| 永登县| 滨州市| 图片| 五河县| 商河县| 洞头县| 汉阴县| 彭阳县| 密云县| 吉木乃县| 道真| 株洲市| 平陆县| 广南县| 新建县| 寻甸| 绥中县| 金平| 宁化县| 钦州市| 眉山市| 马龙县| 木里| 白水县| 西昌市| 合阳县| 临泉县| 屯门区| 郑州市| 蕲春县| 綦江县| 墨脱县|