<%
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('警告！你正在从外部提交数据！！请立即终止！！\r\n如果你不是在外部提交,可能是因为你重复提交数据,请不要重复提交！！');window.location.href='/';</Script>"
response.end
end if
%>