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
% >