<%@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" />