以下为引用的内容：
<％函数下载文件（strfile）
strfilename = strfile
wonspons.buffer = true
响应
设置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））
如果中间（from_url，8，len（serv_url））<> serv_url，则
响应。
响应
如果结束
response.redirect request.servervariables（http_referer）
响应
如果结束
fileExt = mid（strfilename，instrev（strfilename，。）+1）
选择CASE UCASE（FileExt）
CASE ASP，ASA，ASPX，ASAX，MDB，PHP，JSP，SHTML，HTML，HTM，HTM，TV，DATA
from_url = cstr（request.servervariables（http_referer））
serv_url = cstr（request.servervariables（server_name））
如果中间（from_url，8，len（serv_url））<> serv_url，则
响应。
响应
如果结束
response.redirect request.servervariables（http_referer）
响应
结束选择
设置f = fso.getFile（strfilename）
intfileLegents = f.size
s.loadfromfile（strfilename）
如果err，然后
from_url = cstr（request.servervariables（http_referer））
serv_url = cstr（request.servervariables（server_name））
如果中间（from_url，8，len（serv_url））<> serv_url，则
响应。
响应
如果结束
response.redirect request.servervariables（http_referer）
响应
如果结束
设置upload = server.createobject（persits.upload）
如果上传一无所有
响应。附加内容分解，附件；文件名=＆f.name
响应。addheader内容长度，intfileLemength
响应= utf-8
响应。conttype= application/x-download
响应。BinaryWriteS.Read
响应
S.close
设置s =没有
别的
upload.sendbinary strfilename，true，application/x-download，false
如果结束
结束功能
％>
调用
<％call downloadfile（下载地址）％>