以下为引用的内容 ：
<% Fungsi downloadfile (strfile)
Strfilename = Strfile
Response.buffer = true
Respons.clear
Set S = Server.CreateObject (adodb.stream)
S.open
S.Type = 1
pada kesalahan resume berikutnya
Atur fso = server.createObject (scripting.filesystemObject)
Jika bukan FSO.FileExists (Strfilename)
From_url = cstr (request.serverVariables (http_referer))
Serv_url = cstr (request.serverVariable (server_name))
Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian
Respons.write 该文件不存在或者已经删除.
Respons.end
Akhiri jika
Response.redirect request.serverVariables (http_referer)
Respons.end
Akhiri jika
FileExt = mid (strfilename, instrrev (strfilename ,.)+1)
SELECT CASE UCASE (FILEEXT)
Case Asp, ASA, Aspx, Asax, MDB, PHP, JSP, SHTML, HTML, HTM, TV, Data
From_url = cstr (request.serverVariables (http_referer))
Serv_url = cstr (request.serverVariable (server_name))
Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian
Respons.write 该文件不存在或者已经删除.
Respons.end
Akhiri jika
Response.redirect request.serverVariables (http_referer)
Respons.end
Akhiri Pilih
Set f = fso.getFile (strfileName)
Intfilelength = f.Size
S.LoadFromFile (Strfilename)
Jika err maka
From_url = cstr (request.serverVariables (http_referer))
Serv_url = cstr (request.serverVariable (server_name))
Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian
Respons.write 该文件数据不完整或许已损坏.
Respons.end
Akhiri jika
Response.redirect request.serverVariables (http_referer)
Respons.end
Akhiri jika
Setel unggah = server.CreateObject (persits.upload)
Jika mengunggah tidak ada artinya
Response.addheader konten-disposisi, lampiran; FileName = & f.name
Response.addheader konten-panjang, intfilelength
Response.charset = UTF-8
Response.contentType = aplikasi/x-download
Response.binarywrite s.read
Response.flush
S.close
Set S = tidak ada
Kalau tidak
Unggah
Akhiri jika
Fungsi akhir
%>
调用
<%Call downloadfile (下载地址)%>