怎么防止网页的内容被别人采集,非法的访问你的网站

 

< %
' ****************************************
'            怎么防止网页的内容被别人采集,非法的访问你的网站           
' ****************************************
dim  onlyURL,from     ' ***指定来源网址...
onlyURL = " http://127.0.0.1/ "
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
% >