refuseexteriorpost.asp

来自「前台完全分离了HTML与ASP」· ASP 代码 · 共 13 行

<%
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
%>