Funktionsbeschreibung: Nach dem Hochladen der Bilddatei in das angegebene Verzeichnis wird der in der URL übergebene Dateiname basierend auf dem vollständigen Pfad der Datei dem Verzeichnis hinzugefügt, in dem sich die Datei befindet. Anschließend wird der binäre Datenstrom der Datei auf die Dienstseite geschrieben, wodurch die tatsächliche Adresse des Bildes ausgeblendet und ein externer Verweis auf das Bild verhindert wird.
Hier ein Zitat:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
Option Explicit
Const SysUrl=" http://www.80Boby.com/uImg/ "
Funktion ReadBinFile(fileName)
Dimmen Sie objStream,bin
Setze objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Dateiname
bin = objStream.Read
objStream.Close
ReadBinFile = bin
Funktion beenden
Funktion isSelfRefer()
Dimmen Sie sHttp_Referer, sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
wenn instr(sServer_Name,"80boby.com")<>0 oder instr(sServer_Name,"freeat63.cn")<>0 dann
IsSelfRefer = True
Anders
IsSelfRefer = False
Ende wenn
Funktion beenden
if request.QueryString("Mark")="getPic" dann
Dim RealUrl,fso
Dim uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("Echter Pfad der Datei"&uFileName)
Setze fso = Server.CreateObject("Scripting.FileSystemObject")
if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("logo.gif")
wenn nicht(isSelfRefer), dann
RealUrl=Server.MapPath("logo.gif")
Ende wenn
Response.contenttype = "image/jpeg"
Antwort.BinaryWrite ReadBinFile(RealUrl)
Antwort.Ende
Ende wenn
%>