refuseexteriorpost.asp

前台完全分离了HTML与ASP

<%
Call RefuseExteriorPost()
Sub RefuseExteriorPost()
  Dim ServerNameLen,ClientName,ServerName
  ServerNameLen=Len(Request.ServerVariables("SERVER_NAME"))
  ClientName=Lcase(left(Cstr(Request.ServerVariables("HTTP_REFERER")),ServerNameLen))
  ServerName=Lcase(left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),ServerNameLen))
  IF ServerName<>ClientName Then
  Response.Redirect "err.asp?message=本站开启了防外部提交开关,请确认您提交的URL正确性.谢谢."
  Response.End
  End IF
End Sub
%>