-
' 下载文件
ฟังก์ชั่น downloadfile(fullpath)
downloadfile = false
dim strfilename, s, fso, f, intfilelength
set fso = server.createobject("scripting.filesystemobject")
ถ้าไม่ใช่ fso.fileexists(fullpath) แล้ว
ฟังก์ชันทางออก
หาก
set f = fso.getfile(fullpath)
'获取文件ตัวใหญ่
intfilelength = f.size
set s = server.createobject("adodb.stream")
s.open
s.type = 1
s.loadfromfile(fullpath)
การตอบสนอง .buffer = true
response.clear
'response.addheader "Content-Encoding", "GB2312" ' 乱码的解决方案
'response.addheader "content-type", "application/x-msdownload"
response.addheader "การจัดการเนื้อหา" ,"attachment;filename=" & f.name
response.addheader "content-length" ,intfilelength
response.contenttype = "application/octet-stream"
ในขณะที่ไม่ใช่ s.eos
การตอบสนอง binarywrite s.read (1024 * 64)
response.flush
wend
s.close
set s = ไม่มีอะไร
ดาวน์โหลดไฟล์ = true
ฟังก์ชั่นสิ้นสุด
-