以下为引用的内容
<% Função Downloadfile (strfile)
Strfilename = strfile
Response.Buffer = true
Response.clear
Set s = server.createObject (adodb.stream)
S.Open
S.Type = 1
em erro de erro em seguida
Set fso = server.createObject (script.filesystemoBject)
Se não fso.FileExists (strfileName), então
From_url = cstr (request.Servervariables (http_referer))
Serv_url = cstr (request.servervariables (server_name))
Se MID (from_url, 8, len (serv_url)) <> serv_url então
Response.Write 该文件不存在或者已经删除.
Resposta.END
Final se
Response.Redirect Request.ServerVariables (http_referer)
Resposta.END
Final se
FileExt = MID (StrFileName, Instrrev (strfileName ,.)+1)
Selecione Case UCase (FileExt)
Case Asp, ASA, ASPX, Asax, MDB, PHP, JSP, SHTML, HTML, HTM, TV, Dados
From_url = cstr (request.Servervariables (http_referer))
Serv_url = cstr (request.servervariables (server_name))
Se MID (from_url, 8, len (serv_url)) <> serv_url então
Response.Write 该文件不存在或者已经删除.
Resposta.END
Final se
Response.Redirect Request.ServerVariables (http_referer)
Resposta.END
Final Selecione
Set f = fso.getFile (strfileName)
IntfilEleLength = f.size
S.LoadFromFile (StrfileName)
Se errar então
From_url = cstr (request.Servervariables (http_referer))
Serv_url = cstr (request.servervariables (server_name))
Se MID (from_url, 8, len (serv_url)) <> serv_url então
Response.Write 该文件数据不完整或许已损坏.
Resposta.END
Final se
Response.Redirect Request.ServerVariables (http_referer)
Resposta.END
Final se
Configurar upload = server.createObject (Persits.upload)
Se o upload não é nada então
Response.AddHeader Content-Disposição, Anexo; Nome do arquivo = & f.name
Response.AddHeader Length, IntfilEleLength
Response.CharSet = UTF-8
Response.ContentType = Application/X-download
Response.BinaryWrite S.Read
Response.flush
S.Close
Set s = nada
Outro
Upload.sendbinary strfilename, true, aplicativo/x-download, false
Final se
Função final
%>
调用
<%Call Downloadfile (下载地址)%>