http.asp

百度搜索作弊系统 看了你就知道啦

<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write("<script>alert(""系统提示：请勿在其他网站提交信息！"");location.href=""Index.asp"";</script>")
response.end
end if
%>