： ：
<٪ function downloadFile (strfile)
strfilename = strfile
استجابة. buffer = صحيح
استجابة
تعيين s = server.createBject (Adodb.stream)
S.
S.Type = 1
عند استئناف الخطأ التالي
set fso = server.createObject (scripting.filesystemObject)
إذا لم يكن fso.filexists (strfilename) ثم
from_url = cstr (request.servervariables (http_referer))
serv_url = cstr (request.servervariables (server_name))
إذا كان منتصف (من _url ، 8 ، لين (serv_url)) <> serv_url ثم
استجابة. write 该文件不存在或者已经删除.
استجابة
إنهاء إذا
Response.Redirect request.ServerVariables (http_referer)
استجابة
إنهاء إذا
filext = mid (strfilename ، instrev (strfilename ،.)+1)
حدد Case Ucase (Filext)
CASE ASP ، ASA ، ASPX ، ASAX ، MDB ، PHP ، JSP ، SHTML ، HTML ، HTM ، TV ، DATA
from_url = cstr (request.servervariables (http_referer))
serv_url = cstr (request.servervariables (server_name))
إذا كان منتصف (من _url ، 8 ، لين (serv_url)) <> serv_url ثم
استجابة. write 该文件不存在或者已经删除.
استجابة
إنهاء إذا
Response.Redirect request.ServerVariables (http_referer)
استجابة
نهاية الاختيار
تعيين f = fso.getfile (strfilename)
intfilelength = f.size
s.loadfromfile (strfilename)
إذا أخطأ بعد ذلك
from_url = cstr (request.servervariables (http_referer))
serv_url = cstr (request.servervariables (server_name))
إذا كان منتصف (من _url ، 8 ، لين (serv_url)) <> serv_url ثم
استجابة. write 该文件数据不完整或许已损坏.
استجابة
إنهاء إذا
Response.Redirect request.ServerVariables (http_referer)
استجابة
إنهاء إذا
SET LOAD = Server.CreateBject (persits.upload)
إذا كان التحميل لا شيء
استجابة. اسم الملف = & f.name
استجابة
استجابة. Charset = UTF-8
استجابة. contenttype = التطبيق/x-download
استجابة
استجابة
S.Close
تعيين s = لا شيء
آخر
تحميل
إنهاء إذا
وظيفة النهاية
٪>
调用
<٪ Call DownloadFile (下载地址) ٪>