getimage.asp

<%OptionExplicit

DimstrBuffer,FilePath

strBuffer=Request.ServerVariables("HTTP_REFERER")

strBuffer=mid(strBuffer,InStr(strBuffer,".")+1)

strBuffer=left(strBuffer,InStr(strBuffer,"/")-1)

FilePath="/HIDDENIMAGES/"

IfstrBuffer="intels.net"then

FilePath=FilePath+Request.QueryString("FName")

Else

FilePath="/images/chunfeng.jpg"

EndIf

Response.Redirect(FilePath)

NEWSZW_HZH_END-->