فرض مربع الحوار تحميل مع ASP

• أبريل 29, 2024

هل شعرت بالإحباط من أي وقت مضى عندما تصل إلى موقع ويب وهناك مستندات وصور ومحتويات أخرى متاحة للتنزيل وترغب في القيام بذلك ، قم بتنزيله! بدلاً من ذلك ، عند النقر فوق عنصر محتوى ، فإنه يتم فتحه في المستعرض الخاص بك. لقد واجهت هذه المشكلة خلال مشروع لشركة طبية وكانوا بحاجة إلى تنزيل ملفات PDF الخاصة بهم وعدم فتحها. حسنًا ، هناك طريقة لجعله يفتح مربع الحوار "حفظ باسم".

في هذا البرنامج التعليمي ، سنفترض أن الملفات مخزنة محليًا على الخادم وليس في قاعدة بيانات. (هذا هو مناقشة مختلفة تماما)

أولاً ، تحتاج إلى معرفة موقع ملفاتك. لذلك دعونا نفترض أن ملفاتك موجودة في //yourserver.com/files/filename.ext. سنفترض أن Server.MapPath هو "/ files".

لذلك ، في هذه المرحلة ، دعونا ننشئ ملف ASP الذي يتحكم في تنزيل الملف. ابدأ بإنشاء مستند جديد وفارغ باستخدام NotePad أو محرر HTML المفضل لديك. ضع كود ASP التالي:

<%
'=======================
'Define the names of your functions
'=======================
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
'=======================
'Get the actual file name from the URL that is passed to the browser
'=======================
FileName = request.querystring("filename") 'Get the name from the URL
'=======================
'GIVE AN ERROR MESSAGE IF THE URL IS EMPTY
'=======================
if FileName = "" Then
response.write "Filename Not specified."
response.end
end if
'=======================
'prevent access to certain files
'=======================
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
select case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
response.write "You cannot access these file types."
response.end
end select
'=======================
'Start the download process if all is good
'=======================
response.clear
response.contentType = "application/octet-stream"
response.addheader "content-disposition", "attachment; filename=" & FileName
set stream = server.CreateObject("ADODB.Stream")
stream.type = adTypeBinary
stream.open
stream.LoadFromFile Server.MapPath("/files") & FileName
while not stream.EOS
response.BinaryWrite Stream.Read(1024 * 64)
wend
stream.Close
Set stream = Nothing
response.Flush
response.End
%>


هذا هو لهذا واحد. الآن ، قم بحفظ هذا الملف وتحميله على الخادم الخاص بك وقم بتسميته filedownloader.asp

الآن دعنا نقول أن اسم الملف على الخادم الخاص بك هو familytree.pdf

بعد ذلك ، يمكنك ببساطة تمرير عنوان URL التالي في المستعرض الخاص بك وسوف يظهر مربع الحوار "حفظ الملف كفتح".

//yourserver.com/filedownloader.asp؟filename=familytree.pdf

هذا هو! يجب أن ترى هذا:



حظًا سعيدًا ويمكنك تحسين ذلك باستخدام قواعد البيانات والوظائف الرائعة الأخرى للتأكد من أن الملفات التي تريد أن يصل مستخدموك لديك قد تم منحها القدرة على التنزيل وعدم فتحها في متصفح الويب الحالي الخاص بهم مما يسمح لهم "بالبقاء" على موقع الويب الخاص بك .

تعليمات الفيديو: Vardi Wala The Iron Man Full Movie | Kannada Dubbed Action Movies | Tollywood Action Movies (أبريل 2024).