Descripción de la función: después de cargar el archivo de imagen en el directorio especificado, el nombre del archivo pasado en la URL se agrega al directorio donde se encuentra el archivo según la ruta completa del archivo. Luego, el flujo de datos binarios del archivo se escribe en la página de servicio, logrando así el efecto de ocultar la dirección real de la imagen y evitar referencias externas a la imagen.
Aquí hay una cita:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
Opción
Const explícita SysUrl=" http://www.80Boby.com/uImg/ "
Función ReadBinFile (nombre de archivo)
Dim objStream,bin
Establecer objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Tipo = 1
objStream.LoadFromFile nombre de archivo
bin = objStream.Read
objStream.Cerrar
ReadBinFile = contenedor
Función final
La función esSelfRefer()
Dim sHttp_Referer, sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
si instr(sServer_Name,"80boby.com")<>0 o instr(sServer_Name,"freeat63.cn")<>0 entonces
IsSelfRefer = Verdadero
Demás
IsSelfRefer = Falso
Terminar si
Función final
si request.QueryString("Mark")="getPic" entonces
Dim RealUrl, fso
Dim uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("Ruta real del archivo"&uFileName)
Establecer fso = Server.CreateObject("Scripting.FileSystemObject")
si no (fso.FileExists(RealUrl)) entonces RealUrl=Server.MapPath("logo.gif")
si no (esSelfRefer) entonces
RealUrl=Servidor.MapPath("logotipo.gif")
terminar si
respuesta.contenttype = "imagen/jpeg"
respuesta.BinaryWrite ReadBinFile (RealUrl)
respuesta.fin
terminar si
%>