ASP完成防范从外部提交数据

<%
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.Redirect "index.asp"
end if
%>