انقر لتنزيل ملفات PDF والملفات الأخرى بدلاً من الفتح في المتصفح

<٪

دفق خافت

محتويات قاتمة

اسم الملف الخافت

dim filext

const adtypebinary = 1

اسم الملف = request.querystring ("اسم الملف")

إذا كان اسم الملف = "" ثم

استجابة. write "اسم ملف Invfort."

استجابة

إنهاء إذا

أدناه ملف لا أريد التنزيل

filext = mid (filename ، instrev (filename ، ".") 1)

حدد Case Ucase (Filext)

حالة "ASP" ، "ASA" ، "ASPX" ، "Asax" ، "MDB"

Response.write "الملفات المحمية ، لا يمكن تنزيلها."

استجابة

نهاية الاختيار

تنزيل هذا الملف

استجابة

استجابة. contenttype = "التطبيق/ثنائي الثماني"

استجابة.

Set Dream = server.createBject ("Adodb.stream")

Stream.Type = AdTypeBinary

Stream.Open

dream.loadfromfile server.mappath (اسم الملف)

بينما لا تدفق

استجابة.

ويند

Stream.close

اضبط الدفق = لا شيء

استجابة

استجابة

٪>

استخدام: تنزيل؟

ضع ملف DOC الخاص بك على ملفات دليل الجذر ، يمكنك أيضًا وضعه في مكان آخر.