On Thu, 13 Feb 2003 18:28:27 +0000 (UTC), Thomas Brejner
<Thomasb@postbilen.dk> wrote:
>Hej! jeg ville høre om der er nogen der kender en kode til at
>banne et ip fra en side den skal hente ip fra en database og så
>hvis han er banned skal den skrive noget med "du er banned fra
>denne side" hvordan laver man det?
>Mvh Thomas
Jeg bruger nedenstående sammen med en Access database, hvor jeg har en
tabel kaldet banned og et felt kaldet banip.
IPadr = request.servervariables("Remote_Addr")
strConn = "DBQ="& Server.MapPath("dinsti/database.mdb") &
";Driver={Microsoft Access Driver (*.mdb)};"
Set banRS = Server.CreateObject("ADODB.Recordset")
strQ = "SELECT * FROM banned WHERE banip='" & IPadr & "';"
banRS.Open strQ, strConn
If not banRS.EOF Then
If banRS("banip") = IPadr Then
Response.Redirect "
http://www.politi.dk"
end if
end if
SET banRS = nothing