以下为引用的内容 ：
<% De funciones downloadfile (strfile)
Strfilename = strfile
Respuesta.Buffer = True
Respuesta.
Establecer s = server.createObject (ADODB.Stream)
Abiertamente
S.Type = 1
En el currículum de error siguiente
Establecer fso = server.createObject (scripting.filesystemObject)
Si no fso.fileExists (strfilename) entonces
From_url = cstr (request.serverVariables (http_referer))
Serv_url = cstr (request.serverVariables (server_name))
Si mid (from_url, 8, len (serv_url)) <> Serv_url entonces
Respuesta.Write 该文件不存在或者已经删除.
Respuesta.
Final si
Response.Redirect Solic.ServerVariables (http_referer)
Respuesta.
Final si
Fileext = mid (strfileName, instrrev (strfileName ,.)+1)
Seleccione Case UCase (FileExt)
Case ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, datos
From_url = cstr (request.serverVariables (http_referer))
Serv_url = cstr (request.serverVariables (server_name))
Si mid (from_url, 8, len (serv_url)) <> Serv_url entonces
Respuesta.Write 该文件不存在或者已经删除.
Respuesta.
Final si
Response.Redirect Solic.ServerVariables (http_referer)
Respuesta.
Final seleccionar
Establecer F = fso.getfile (strfileName)
Intfilelength = f.size
S.LoadFromFile (strFileName)
Si err entonces
From_url = cstr (request.serverVariables (http_referer))
Serv_url = cstr (request.serverVariables (server_name))
Si mid (from_url, 8, len (serv_url)) <> Serv_url entonces
Respuesta.Write 该文件数据不完整或许已损坏.
Respuesta.
Final si
Response.Redirect Solic.ServerVariables (http_referer)
Respuesta.
Final si
Configurar upload = server.createObject (Persits.upload)
Si la carga no es nada, entonces
Respuesta. AddHeader Contenido Disposición, Adjunto; Nombre de archivo = & f.name
Respuesta.AddHeader Content-longitud, intfilelength
Respuesta.Charset = UTF-8
Respuesta.ContentType = Application/X-Download
Respuesta.BinaryWrite S.Read
Respuesta. Flush
S. cerca
Establecer s = nada
Demás
Upload.sendbinary strfileName, verdadero, aplicación/x-download, falso
Final si
Función final
%>
调用
<%Call DownloadFile (下载地址)%>