|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim ip, conn, sql ip = Request.ServerVariables("REMOTE_ADDR") conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/mdb-database/IP_Blocked.mdb") sql = "SELECT IP FROM IP_Blocked WHERE IP ='"&ip&"';" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn IF rs.EOF THEN Response.Status = "403 Access Forbidden" Response.Write Response.Status Response.End() END IF rs.Close Set rs = Nothing %> <html> <head> <title>Blocca IP</title> </head> <body> Blocca IP è scritto da Sydor Andriy.<br> Crash Override ?. </body> </html>
|
|
