| 以下为引用的内容： <％関数ダウンロードファイル（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（下载地址）％>