| 以下為引用的內容： <％函數下載文件（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（下載地址）％>