Just a leaf ...

Aug.2007

ASP网页实现防小偷或盗链
作者：Aleaf 没有评论

<%
'*****************************************
' ASP网页实现防小偷或盗链
' -- Aleaf.Com --
'*****************************************
dim onlyURL,visitURL,fromURL

' 合法网址...
onlyURL="http://www.aleaf.com/"
' 跳转网址...
visitURL=request.serverVariables("URL")
' 读取来源...
fromURL=trim(request.serverVariables("HTTP_REFERER"))

if fromURL="" then
    '***来源为空:可能直接输入网址或小偷...
    '***如果是直接输入网址则跳转以产生一个合法的REFERER;若是小偷则不会跳转.
    response.write "<div style='display:none'><p>拒绝小偷!!!"
    response.write "<p>来自:" & fromURL
    response.write "<p>请访问:<a id='link1' href='" & visitURL & "'>" & visitURL &"</a></div>"
    response.write "<script language=""JavaScript"">document.all.link1.click()</script>" & vbCRLF
    response.end
elseif inStr(fromURL,onlyURL)<>1 then
    '***非指定来源:盗链???...
    response.write "<p>拒绝盗链!!!"
    response.write "<p>来自:" & fromURL
    response.write "<p>请访问:<a id='link1' href='" & onlyURL & "'>" & onlyURL &"</a>"
    response.write "<p><script language=""JavaScript"">document.all.link1.click()</script>" & vbCRLF
    response.end
else
    '***合法来源:执行后面的页面...
end if
%>