Многие друзья создали сайты для загрузки, но их часто сильно крадут, поэтому вы можете использовать этот метод, чтобы скрыть реальный адрес загрузки. Не позволяйте другим видеть конкретный адрес загрузки. Скопируйте код кода следующим образом:
<% ФУНКЦИЯ ЗАГРУЗКИФАЙЛА(StrFIle)
StrFIlename=StrFIle
Response.Buffer=Истина
Ответ.Очистить
Установите S=Server.CreateObJect(ADODB.Stream)
С.Открыть
S.Тип=1
при ошибке Возобновить Далее
Установите Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)
Если Не Fso.FIleExists(StrFIleName), Тогда
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Если MId(From_Url,8,len(Serv_Url)) <> Serv_Url Тогда
Response.WrIte Файл не существует или был удален.
Ответ.Конец
Конец, если
Response.RedIrect Request.ServerVarIables(HTTP_REFERER)
Ответ.Конец
Конец, если
FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)
Выберите регистр UCase(FIleExt)
Случай ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Если MId(From_Url,8,len(Serv_Url)) <> Serv_Url Тогда
Response.WrIte Файл не существует или был удален.
Ответ.Конец
Конец, если
Response.RedIrect Request.ServerVarIables(HTTP_REFERER)
Ответ.Конец
Конец выбора
Установите F=Fso.GetFIle(StrFIlename)
IntFIlelength=F.SIze
s.LoadFromFIle(StrFIlename)
Если Ошибка Тогда
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Если MId(From_Url,8,len(Serv_Url)) <> Serv_Url Тогда
Response.WrIte Данные файла неполны или повреждены.
Ответ.Конец
Конец, если
Response.RedIrect Request.ServerVarIables(HTTP_REFERER)
Ответ.Конец
Конец, если
Установить Upload=Server.CreateObJect(PersIts.Upload)
Если загрузка ничего не значит, то
Response.AddHeader Content-DIsposItIon,attachment=&F.Name;
Response.AddHeader Content-Length, IntFilelength
Response.CharSet=UTF-8
Response.ContentType=приложение/x-загрузка
Response.BinaryWrite S.Read
Ответ.Flush
S.Close
Установить s=Ничего
Еще
Upload.SendBinary StrFIlename, True, application/x-download, False
Конец, если
Конечная функция
%>
вызов
Скопируйте код кода следующим образом:
<%Call DownloadFIle(адрес загрузки)%>