Описание функции: после загрузки файла изображения в указанный каталог имя файла, указанное в URL-адресе, добавляется в каталог, в котором находится файл, на основе полного пути к файлу. Затем поток двоичных данных файла записывается на страницу сервиса, тем самым достигается эффект сокрытия реального адреса изображения и предотвращения внешней ссылки на изображение.
Вот цитата:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
Option Explicit
Const SysUrl=" http://www.80Boby.com/uImg/ "
Функция ReadBinFile(имя_файла)
Тусклый objStream,bin
Установите objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile имя_файла
бен = objStream.Read
objStream.Close
ReadBinFile = корзина
Конечная функция
Функция isSelfRefer()
Тусклый sHttp_Referer, sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
если instr(sServer_Name,"80boby.com")<>0 или instr(sServer_Name,"freeat63.cn")<>0 тогда
IsSelfRefer = Истина
Еще
Исселфрефер = ложь
Конец, если
Конечная функция
если request.QueryString("Mark")="getPic" тогда
Тусклый RealUrl, fso
Тусклый uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("Реальный путь к файлу"&uFileName)
Установите fso = Server.CreateObject("Scripting.FileSystemObject")
если Нет(fso.FileExists(RealUrl)) то RealUrl=Server.MapPath("logo.gif")
если Нет(isSelfRefer), то
RealUrl=Server.MapPath("logo.gif")
конец, если
response.contenttype = "изображение/jpeg"
ответ.BinaryWrite ReadBinFile(RealUrl)
ответ.конец
конец, если
%>