以下为引用的内容：
<% ฟังก์ชั่นดาวน์โหลดไฟล์ (strfile)
strfilename = strfile
response.buffer = true
Response.Clear
SET 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))
ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว
Response.write 该文件不存在或者已经删除
Response.end
สิ้นสุดถ้า
Response.redirect Request.ServerVariables (http_referer)
Response.end
สิ้นสุดถ้า
fileext = mid (strfilename, instrrev (strfilename,.)+1)
เลือก Case Ucase (Fileext)
Case 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))
ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว
Response.write 该文件不存在或者已经删除
Response.end
สิ้นสุดถ้า
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))
ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว
Response.write 该文件数据不完整或许已损坏
Response.end
สิ้นสุดถ้า
Response.redirect Request.ServerVariables (http_referer)
Response.end
สิ้นสุดถ้า
ตั้งค่า upload = server.createObject (ไม่ว่าจะโหลด)
หากการอัปโหลดไม่มีอะไรแล้ว
Response.addheader เนื้อหา-การจัดสรร, สิ่งที่แนบมา; ชื่อไฟล์ = & f.name
Response.addheader ความยาวเนื้อหาความยาว intfilelength
Response.charset = UTF-8
Response.ContentType = Application/X-Download
Response.BinaryWrite S.Read
Response.flush
s.close
ตั้งค่า s = ไม่มีอะไร
อื่น
upload.sendbinary strfilename, true, application/x-download, false
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
调用
<%โทรดาวน์โหลดไฟล์ (下载地址)%>