Многие веб-сайты с рингтонами для мобильных телефонов имеют свою собственную программу по борьбе с пиявками, но эта программа предназначена только для предотвращения джентльменов, а не воров. Давайте кратко представим эту функцию: используется объект ASP ServerVariables (переменная среды сервера). С помощью этой переменной среды можно получить реальный адрес загрузки, а затем целостность реального адреса можно разрушить с помощью некоторых простых встроенных функций VBS. Достичь функции обманной загрузки программного обеспечения. Исходный код теперь приложен, и каждый может у него поучиться.
Скопируйте код кода следующим образом:
<% ФУНКЦИЯ ЗАГРУЗКИФАЙЛА(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(DownloadFIle)%>.