العنوان مربك بعض الشيء اليوم تتحدث المجموعة عن هذا السؤال. يمكن للأصدقاء الذين يحتاجون إليه الرجوع إليه.
سؤال: أريد تغيير اسم الملف عند تحميله، ثم تغيير الاسم مرة أخرى عند التنزيل.
على سبيل المثال: قمت بتحميل "My Photo.jpg" وغيرته إلى اسم النظام "20040302001.jpg" بعد التحميل ثم قمت بتغييره مرة أخرى إلى "My Photo.jpg" عند التنزيل.
يتم استخدام قاعدة البيانات لحفظ أسماء الملفات القديمة والجديدة (تم ذلك بالفعل)
كل ما في الأمر أنني لا أستطيع تغيير الاسم عند التنزيل.
شفرة:
انسخ رمز الكود كما يلي:
<%
دالة دل (و، ن)
على خطأ استئناف المقبل
اضبط S=CreateObject("Adodb.Stream")
الوضع S = 3
النوع S = 1
س. مفتوح
S.LoadFromFile(و)
إذا Err.Number> 0 ثم
حالة الاستجابة= "404"
آخر
Response.ContentType= "التطبيق/تيار الثماني"
Response.AddHeader "ترتيب المحتوى:"، "المرفق؛ اسم الملف =" & n
النطاق=Mid(Request.ServerVariables( "HTTP_RANGE"),7)
إذا كان النطاق= "" إذن
Response.BinaryWrite(S.Read)
آخر
S.position=Clng(Split(Range, "- ")(0))
Response.BinaryWrite(S.Read)
انتهي إذا
نهاية إذا
الاستجابة.النهاية
وظيفة النهاية
%>
مثال لاستخدام الوظيفة:
انسخ رمز الكود كما يلي:
اتصل بـ dl(Server.MapPath( "download/20040302001.jpg"), "My Photos.jpg ")