<%
  From_url 
= Cstr(Request.ServerVariables("HTTP_REFERER")) 
  Serv_url 
= Cstr(Request.ServerVariables("SERVER_NAME")) 
  
if mid(From_url,8,len(Serv_url)) <> Serv_url then 
  response.write 
"非法链接!" '防止盗链
  response.end 
  
end if 
%>
 

更多推荐