以下为引用的内容：
<％関数ダウンロードファイル（strfile）
strfilename = strfile
Response.buffer = true
Response.Clear
S = server.createObject（adodb.stream）を設定します
S.Open
S.Type = 1
エラーの再開時に次に再開します
fso = server.createObject（scripting.filesystemObject）を設定します
fso.fileexists（strfilename）ではない場合
from_url = cstr（request.servervariables（http_referer））
serv_url = cstr（request.servervariables（server_name））
if mid（from_url、8、len（serv_url））<> serv_url then
Response.Write该文件不存在或者已经删除。
Response.End
ifを終了します
Response.redirect request.servervariables（http_referer）
Response.End
ifを終了します
fileext = mid（strfilename、instrrev（strfilename、。）+1）
select caseucase（fileext）
ケースASP、ASA、ASPX、ASAX、MDB、PHP、JSP、SHTML、HTML、HTM、TV、データ
from_url = cstr（request.servervariables（http_referer））
serv_url = cstr（request.servervariables（server_name））
if mid（from_url、8、len（serv_url））<> serv_url then
Response.Write该文件不存在或者已经删除。
Response.End
ifを終了します
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））
if mid（from_url、8、len（serv_url））<> serv_url then
Response.Write该文件数据不完整或许已损坏。
Response.End
ifを終了します
Response.redirect request.servervariables（http_referer）
Response.End
ifを終了します
upload = server.createObject（persits.upload）のセット
アップロードが何もない場合
Response.Adddheader Content-Disposition、Attachment; filename =＆f.name
Response.Adddeder Content-Length、intfileLength
Response.charset = utf-8
Response.ContentType = Application/X-DownLoad
respons.binarywrite s.read
Response.Flush
s.close
S = Nothingを設定します
それ以外
upload.sendbinary strfilename、true、application/x-download、false
ifを終了します
エンド関数
％>
调用
<％call downloadfile（下载地址）％>