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

<%
'****************************************
'           怎么防止网页的内容被别人采集,非法的访问你的网站          
'****************************************
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
%>