防提交的页面不是本网站（非法链接到网站）

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