如何阻止别人非法链接你网站的图片？ -电脑资料

    作者： 字体：[增加 减小] 类型：转载

    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)