以下为引用的内容 ：
<% Function functionfile (strfile)
Strfilename = strfile
Response.buffer = true
Response.clear
Установить s = server.createObject (adodb.stream)
S.open
S.Type = 1
при ошибке резюме следующим
Установить fso = server.createObject (scripting.filesystemobject)
Если не fso.filexists (strfilename), то тогда
From_url = cstr (request.servervariables (http_referer))
Serv_url = cstr (request.servervariables (server_name))
Если mid (from_url, 8, len (serv_url)) <> serv_url тогда
Ответ.write 该文件不存在或者已经删除.
Response.end
Конец, если
Response.redirect request.servervariables (http_referer)
Response.end
Конец, если
FileExt = mid (strfilename, instrrev (strfilename ,.)+1)
Выберите Case Ucase (FileExt)
Case ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA
From_url = cstr (request.servervariables (http_referer))
Serv_url = cstr (request.servervariables (server_name))
Если mid (from_url, 8, len (serv_url)) <> serv_url тогда
Ответ.write 该文件不存在或者已经删除.
Response.end
Конец, если
Response.redirect request.servervariables (http_referer)
Response.end
Конец выбора
Установите f = fso.getfile (strfilename)
IntfileLength = f.size
s.loadfromfile (strfilename)
Если ошибка, тогда
From_url = cstr (request.servervariables (http_referer))
Serv_url = cstr (request.servervariables (server_name))
Если mid (from_url, 8, len (serv_url)) <> serv_url тогда
Ответ.write 该文件数据不完整或许已损坏.
Response.end
Конец, если
Response.redirect request.servervariables (http_referer)
Response.end
Конец, если
Настройка upload = server.createObject (persits.upload)
Если загрузка - это ничто, тогда
Response.AddHeader-дисплекс контента, привязанность; Filename = & f.name
Response.AddHeader-длина контента, IntFileLength
Response.charset = utf-8
Response.contenttype = приложение/x-download
Response.binaryWrite S.Read
Response.flush
S.Close
Установить S = ничего
Еще
Upload.sendbinary strfilename, true, приложение/x-download, false
Конец, если
Конечная функция
%>
调用
<%Call Downloadfile (下载地址)%>