getimage.asp
<% Option ExplicitDim strBuffer, FilePathstrBuffer = Request.ServerVariables(\”HTTP_REFERER\”)strBuffer = mid(strBuffer, InStr(strBuffer,\”.\”) + 1)strBuffer = left(strBuffer, InStr(strBuffer, \”/\”) – 1)FilePath = \”/HIDDENIMAGES/\”If strBuffer = \”intels.net\” then
FilePath = FilePath + Request.QueryString(\”FName\”)
Else
FilePath = \”/images/chunfeng.jpg\”
End IfResponse.Redirect(FilePath)