1. <% Option Explicit 
2.  
3. Dim strBuffer, FilePath 
4. strBuffer = Request.ServerVariables("HTTP_REFERER") 
5. strBuffer = mid(strBuffer, InStr(strBuffer,".") + 1) 
6. strBuffer = left(strBuffer, InStr(strBuffer, "/") - 1) 
7.  
8. FilePath = "/HIDDENIMAGES/" 
9.  
10. If strBuffer = "intels.net" then 
11. FilePath = FilePath + Request.QueryString("FName") 
12. Else 
13. FilePath = "/images/chunfeng.jpg" 
14. End If 
15.  
16. Response.Redirect(FilePath)