<%
****************************************
怎么防止网页的内容被别人采集非法的访问你的网站
****************************************
dim onlyURLfrom ***指定来源网址
onlyURL="
from=trim(requestserverVariables("HTTP_REFERER"))
if from="" then ***来源为空:可能是直接输入网址或小偷
responsewrite "<div style=’display:none’><p>拒绝小偷!!!"
responsewrite "<p>来自:" & from
responsewrite "<p>请访问:<a " & onlyURL & ">" & onlyURL &"</a>"
responsewrite "<p><form name=’blankForm’ method=get action=’’></form>"
responsewrite "<p><script language=""JavaScript"">blankFormsubmit()</script>" & vbCRLF
responseend
else
if inStr(fromonlyURL)<> then
***非指定来源:盗链
responsewrite "<div style=’display:none’><p>拒绝盗链!!!"
responsewrite "<p>来自:" & from
responsewrite "<p>请访问:<a href=’" & onlyURL & "’>" & onlyURL &"</a>"
responsewrite "<p><form name=’blankForm’ method=get action=’’></form>"
responsewrite "<p><script language=""JavaScript"">blankFormsubmit()</script>"
responseend
else ***来源正常将访问后面的内容
end if
end if
%>
