以下为引用的内容 ：
<% Funktion downloadFile (strFile)
Strfilename = strFile
Response.buffer = true
Antwort.Clear
Setzen Sie s = server.createObject (adodb.stream)
S.Open
S.type = 1
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Wenn nicht fso.fileExists (Strafilename) dann
From_url = cstr (request.servervariables (http_referer)))
Serv_url = cstr (request.servervariables (server_name))
Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann
Antwort.Write 该文件不存在或者已经删除.
Antwort.end
Ende wenn
Antwort.Redirect Request.Servervariables (http_referer)
Antwort.end
Ende wenn
Fileext = Mid (strFileName, Instrrev (strFileName,.)+1)
Wählen Sie Case uCase (Fileext)
Fall ASP, ASA, ASPX, Asax, MDB, PHP, JSP, Shtml, HTML, HTM, TV, Daten, Daten
From_url = cstr (request.servervariables (http_referer)))
Serv_url = cstr (request.servervariables (server_name))
Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann
Antwort.Write 该文件不存在或者已经删除.
Antwort.end
Ende wenn
Antwort.Redirect Request.Servervariables (http_referer)
Antwort.end
Ende auswählen
Setzen Sie F = fso.getFile (strafilename)
Intfilelength = f.size
S. loadfromFile (Strfilename)
Wenn irren
From_url = cstr (request.servervariables (http_referer)))
Serv_url = cstr (request.servervariables (server_name))
Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann
Antwort.Write 该文件数据不完整或许已损坏.
Antwort.end
Ende wenn
Antwort.Redirect Request.Servervariables (http_referer)
Antwort.end
Ende wenn
Upload = server.createObject (PERSITS.Upload) einrichten.
Wenn Upload dann nichts ist
Response.AddHeader-Inhaltsdisposition, Anhang; Dateiname = & F.Name
Response.addHeader inhaltslang, intFilelength
Antwort.CharSet = UTF-8
Antwort.ContentType = Application/X-Download
Antwort.Binarywrite S.Read
Antwort.Flush
S.CLOSE
Setzen Sie s = nichts
Anders
Upload.SendBinary Strfilename, True, Application/X-Download, False
Ende wenn
Endfunktion
%>
调用
<%Call downloadFile (下载地址)%>