ASP页面的防采集实现

自己写了一段防小偷采集的代码,与大家交流交流!

用法:
单独保存一个文件如(no.asp);
在相应的asp页面头部用<!--#include file="no.asp" -->加入即可!

<%
'****************************************
'*            网页防采集实现            *  
'****************************************
dim onlyURL,from

'***指定来源网址...
onlyURL="http://www.aleaf.com/"

from=trim(request.serverVariables("HTTP_REFERER"))
if from="" then
'***来源为空:可能直接输入网址或小偷...
    response.write "<div style='display:none'><p>拒绝小偷!!!"
    response.write "<p>来自:" & from 
    response.write "<p>请访问:<a href='" & onlyURL & "'>" & onlyURL &"</a>"
    response.write "<p><form name='blankForm' method=get action=''></form>"
    response.write "<p><script language=""JavaScript"">blankForm.submit()</script>" & vbCRLF
    response.end
else
    if inStr(from,onlyURL)<>1 then
           '***非指定来源:盗链...
        response.write "<div style='display:none'><p>拒绝盗链!!!"
        response.write "<p>来自:" & from 
        response.write "<p>请访问:<a href='" & onlyURL & "'>" & onlyURL &"</a>"
        response.write "<p><form name='blankForm' method=get action=''></form>"
        response.write "<p><script language=""JavaScript"">blankForm.submit()</script>"
        response.end
    else 
        '***来源正常,将访问后面的内容...
    end if
end if
%>