क्या आप कभी निराश हुए हैं जब आप एक वेबसाइट पर आते हैं और डाउनलोड के लिए दस्तावेज, चित्र और अन्य सामग्री उपलब्ध है और आप बस यही करना चाहते हैं, इसे डाउनलोड करें! इसके बजाय, जब आप किसी सामग्री आइटम पर क्लिक करते हैं, तो यह आपके ब्राउज़र में खुलता है। मैं एक चिकित्सा कंपनी के लिए एक परियोजना के दौरान इस मुद्दे के खिलाफ था और उन्हें अपनी पीडीएफ फाइलों को डाउनलोड करने और खोलने की आवश्यकता नहीं थी। खैर, इसे सेव डायलॉग बॉक्स खोलने का एक तरीका है।

इस ट्यूटोरियल के लिए, हम मान लेंगे कि फाइलें सर्वर पर स्थानीय रूप से संग्रहीत हैं और डेटाबेस में नहीं। (यह एक पूरी अलग चर्चा है)

सबसे पहले, आपको अपनी फ़ाइलों का स्थान जानना होगा। तो मान लें कि आपकी फाइलें //yourserver.com/files/filename.ext पर स्थित हैं। हम मान लेंगे कि Server.MapPath "/ files" है।

तो, इस बिंदु पर, एएसपी फ़ाइल बनाएं जो फ़ाइल के डाउनलोड को नियंत्रित करेगा। नोटपैड या अपने पसंदीदा HTML संपादक का उपयोग करके एक नया, रिक्त, दस्तावेज़ बनाकर प्रारंभ करें। निम्नलिखित एएसपी कोड रखें:

<%
'=======================
'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
%>


यह उस एक के लिए है। अब, इस फ़ाइल को अपने सर्वर पर सहेजें और अपलोड करें और इसे fileownloader.asp नाम दें

अब आपके सर्वर पर फ़ाइल नाम familytree.pdf है

फिर आप बस अपने ब्राउज़र में निम्न URL पास करेंगे और Open Save के रूप में File Save पॉप अप होगा।

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

बस इतना ही! आपको यह देखना चाहिए:



सौभाग्य और आप डेटाबेस और अन्य शांत कार्यों का उपयोग करके इसे बढ़ा सकते हैं यह सुनिश्चित करने के लिए कि आपके उपयोगकर्ता जिस फ़ाइल तक पहुंचना चाहते हैं, उसे डाउनलोड करने की क्षमता दी गई है और उनके वर्तमान वेब ब्राउज़र में नहीं खोला गया है जो उन्हें आपकी वेबसाइट पर "रहने" की अनुमति देता है। ।

वीडियो निर्देश: 2019 का हाई पावर डीजे कम्पीटीशन | Trance Bass Competition with Dailog (मार्च 2024).