أي أنه يطالب المستخدم مباشرة بتنزيل الملفات بدلاً من فتح بعض الملفات بواسطة المتصفح. لاحظ أنه بعد نسخ الكود التالي إلى ملف ASP ، لا تقم بإضافة بعض رمز غير ASP إلى الصفحة: مثل رمز عميل HTML و JavaScript.
نسخة الكود كما يلي:
<٪
'---------------------------------------------
استجابة. buffer = صحيح
Dimstrfilepath ، strfilesize ، strfilename
constadtypebinary = 1
strfilepath = "filepath"
strfilesize = ... حجم الملف ، اختياري
strfilename = "اسم الملف"
استجابة
'8 ********************************************** 8
يتطلب تثبيت MDAC2.6 أو MDAC2.7 على الخادم الخاص بك
'8 ********************************************** 8
setObjStream = server.createBject ("Adodb.stream")
objstream.Open
objstream.type = adtypebinary
objstream.loadfromfilestrfilepath
strfiletype = lcase (يمين (strfilename ، 4)) 'extension station.long. محطة
'الحكم على أنواع المحتوى عن طريق ملحق الملف
SelectCasestrfileType
حالة ".asf"
contentType = "Video/X-MS-ASF"
حالة ".Avi"
contentType = "Video/Avi"
حالة ".doc"
contentType = "Application/msword"
حالة ".zip"
contentType = "Application/zip"
حالة ".xls"
contentType = "Application/VND.MS-Excel"
حالة ".gif"
contentType = "Image/GIF"
القضية ".jpg" ، "JPEG"
contentType = "Image/JPEG"
القضية ".wav"
contentType = "Audio/Wav"
حالة ".mp3"
contentType = "Audio/MPEG3"
القضية ".mpg" ، "mpeg"
contentType = "video/mpeg"
القضية ".rtf"
contentType = "Application/RTF"
القضية ".htm" ، "HTML"
contentType = "text/html"
حالة ".asp"
contentType = "Text/ASP"
Caseelse
'handleallotherfiles
contentType = "Application/Octet-stream"
endselect
استجابة
استجابة
استجابة.
استجابة. contenttype = contentType
استجابة
استجابة
objstream.close
setObjStream = لا شيء
٪>