<!--#include file="Lebi_Data.asp"-->
<%
If Request.ServerVariables("HTTP_REFERER") = "" Then 
		response.redirect"http://www.56770.com/"
End If 
Dim src
src = Replace(LCase(trim(request("src"))),"./","")
Select Case Right(src,"4")
Case ".gif",".jpg",".png","jpeg"
src = "../"& PicPath &"/"& src
src = Server.MapPath(src) 
response.contenttype = "image/*"    
response.BinaryWrite ReadBinFile(src)
End Select 

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 
%>
