Присилно преузимање дијалог бок-а са АСП-ом

• Може 7, 2024

Да ли сте икада били фрустрирани када дођете на веб страницу и постоје документи, слике и други садржаји који су доступни за преузимање и желите да урадите управо то, преузмите је! Уместо тога, када кликнете на ставку садржаја, она ће се отворити у вашем прегледачу. Ја сам био за то питање током пројекта за медицинску компанију и они су им требали да преузму своје ПДФ датотеке и не отварају. Па, постоји начин да се отвори дијалог Саве Ас.

За овај водич ћемо претпоставити да су датотеке похрањене локално на серверу, а не у бази података. (То је потпуно другачија дискусија)

Прво, морате знати локацију датотека. Претпоставимо да се ваше датотеке налазе на адреси //иоурсервер.цом/филес/филенаме.ект. Претпостављамо да је Сервер.МапПатх „/ филес“.

Дакле, у овом тренутку направимо АСП датотеку која ће контролисати преузимање датотеке. Започните креирањем новог, празног документа помоћу НотеПада или вашег омиљеног ХТМЛ уређивача. Поставите следећи АСП код:

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


То је то за оног. Сада, сачувајте и пренесите ову датотеку на свој сервер и именовајте је филеовнлоадер.асп

Рецимо да је име датотеке на вашем серверу фамилитрее.пдф

Тада бисте једноставно проследили следећу УРЛ адресу у прегледачу и појавиће се дијалог Филе Саве ас Опен.

//иоурсервер.цом/филедовнлоадер.асп?филенаме=фамилитрее.пдф

То је то! Тада бисте требали да видите ово:



Срећно и ово можете побољшати користећи базе података и друге цоол функције како бисте били сигурни да ће датотеке које желите да корисници добију моћи преузимати и не отварати у тренутном веб претраживачу омогућавајући им да „остану“ на вашој веб локацији .