يخفي ASP رمز وظيفة التنزيل للملفات الحقيقية

ما عليك سوى حفظ الملف أدناه باسم Download.asp، ثم نقل الملف ليتم تنزيله حسب الحاجة. التنسيق: Download.asp?FileName=اسم الملف الذي سيتم تنزيله

انسخ رمز الكود كما يلي:

تيار خافت

محتويات خافتة

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

خافت FileExt

كونست adTypeBinary = 1

اسم الملف = Request.QueryString (اسم الملف)

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

الاستجابة.اكتب اسم ملف غير صالح.

الاستجابة.النهاية

انتهي إذا

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

FileExt = Mid(FileName, InStrRev(FileName, .) + 1)

حدد الحالة UCase(FileExt)

حالة ASP، ASA، ASPX، ASAX، MDB

يعتبر Response.Write ملفًا محميًا ولا يمكن تنزيله.

الاستجابة.النهاية

إنهاء التحديد

'قم بتنزيل هذا الملف

الاستجابة.واضحة

Response.ContentType = application/octet-stream

Response.AddHeader ترتيب المحتوى، المرفقات؛ اسم الملف = واسم الملف

تعيين الدفق = server.CreateObject(ADODB.Stream)

Stream.Type = adTypeBinary

دفق.فتح

Stream.LoadFromFile Server.MapPath(اسم الملف)

في حين لا Stream.EOS

Response.BinaryWrite Stream.Read (1024 * 64)

ويند

دفق.إغلاق

تعيين الدفق = لا شيء

الاستجابة. فلوش

الاستجابة.النهاية