?? download.asp
字號:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
table="tbioaDownloadFile"
id=request("id")
set rs=Server.CreateObject("ADODB.RECORDSET")
rs.Open "select * from " & table & " where id =" & id ,oConn
FileName = "./files/"&rs("url")
sql="UPDATE " & table & " SET num=num+1 where id =" & id
oConn.Execute sql
'FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "無效文件名."
Response.End
End if
'取得文件名
FileSaveName = Mid(FileName, InStrRev(FileName, "/") + 1)
' 下面是不希望下載的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保護(hù)文件,不能下載."
Response.End
End Select
' 下載這個文件
Response.Clear
Response.ContentType = "application/octet-stream"
'Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Response.AddHeader "content-disposition", "attachment; filename="&FileSaveName
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ù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -