getimage.asp <% Option Explicit
Dim strBuffer, FilePath strBuffer = 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 If
Response.Redirect(FilePath) |
请发表评论