| 以下为引用的内容： <％函数下载文件（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（下载地址）％>