<%@Language="vbscript"%>
<%
Response.Buffer = true
Response.Expires = -1441
' variables
dim ref : ref=Request.ServerVariables("HTTP_REFERER")
dim arrReferer : arrReferer = split(ref, "/")
dim imgName, strDomain, strDirectory, strImage, strAntiLeech
' assign variables
strDomain = "http://www.xxxx.net"
strDirectory = "/"
' assign variables
strAntiLeech = "anti-leech.jpg"
strImage = request.querystring("img")
if ref > "" then
ref = arrReferer(2)
end if
if request.querystring("img") <> "" then
if ref = "localhost" or ref = strDomain or ref = "www." & strDomain then
imgname = strDirectory & strImage
else
imgName = strDirectory & strAntiLeech
end if
else
imgName = strDirectory & strAntiLeech
end if
dim objStream
set objStream = server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open()
objStream.loadFromFile(Server.MapPath(imgName))
Response.ContentType = "image/gif"
Response.BinaryWrite(objStream.Read())
objStream.close()
set objstream = nothing
%>上面代码保存为a.asp
<img src="a.asp" border="0" />
