防止外部提交数据

<%

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 "你提交的路径有误，禁止从站点外部提交数据"

response.end

end if

%>