<img src="showpic.asp?Mark=getPic&x=a.jpg"/>

showpic.asp文件代码如下：
<%
Function ReadBinFile(fileName)
 Dim objStream,bin
 Set objStream = Server.CreateObject("ADODB.Stream")
 objStream.Open
 objStream.Type = 1
 objStream.LoadFromFile fileName
   bin = objStream.Read
 objStream.Close
 ReadBinFile = bin
End Function

Function isSelfRefer()
 Dim sHttp_Referer, sServer_Name
 sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
 if instr(sServer_Name,")<>0 then
 IsSelfRefer = True
 Else
 IsSelfRefer = False
 End If
End Function

if request.QueryString("Mark")="getPic" then
 Dim RealUrl,fso
 Dim uFileName:uFileName=Request.QueryString("x")
 RealUrl=Server.MapPath("images/"&uFileName)
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("images/logo.gif")
 
 if Not(isSelfRefer) then
 RealUrl=Server.MapPath("images/logo.gif")
 end if
 
 response.contenttype = "image/jpeg"
 response.BinaryWrite ReadBinFile(RealUrl)
 response.end
end if
%>

文章出处：IT618资讯网(http://)