11/12/2002, 20:12
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: España
Mensajes: 2.364
Antigüedad: 23 años, 3 meses Puntos: 1 | |
| Usando lo antterior con una base de datos donde almacenas las IP de los baneados.
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("usuarios.mdb")&";"
varip=Request.ServerVariables("Remote_Addr")
SQL="SELECT * FROM baneados"
rs.Open SQL, oConn
do while not rs.eof
if varip=rs("IP") then response.redirect("paginaerror.htm")
rs.movenext
loop
rs.close
%> |