<%
' 下载文件
وظيفة downloadfile(fullpath)
downloadfile = false
dim strfilename, s, fso, f, intfilelength
set fso = server.createobject("scripting.filesystemobject")
إذا لم يكن fso.fileexists(fullpath) ثم
وظيفة الخروج
إذا
تم ضبطها 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 "ترميز المحتوى"، "GB2312" ' 乱码的解决方案
'response.addheader "نوع المحتوى"، "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 = لا شيء
downloadfile = true
وظيفة النهاية
%>