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