| 以下为引用的内容 ： <% 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 该文件不存在或者已经删除. Response.End End If Response.RedIrect Request.ServerVarIables(HTTP_REFERER) Response.End End Select 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) Response.End Final si Configurar upload = server.createObject (Persits.upload) If Upload Is Nothing Then Response.AddHeader Content-DIsposItIon,attachment; FIlename=&F.Name Response.AddHeader Content-Length,IntFilelength Response.CharSet=UTF-8 Response.ContentType=application/x-download Response.BinaryWrite S.Read Response.Flush S. cerca Establecer s = nada Demás Upload.sendbinary strfileName, verdadero, aplicación/x-download, falso Final si Función final %> |
调用
<%Call DownloadFile (下载地址)%>