Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Du må ikke have 2 spm om det samme emne. Anyway dette her virker:
<html>
<head>
<title>IP blokker</title>
</head>
<body> <% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("/data/blokeret.mdb") Conn.Open DSN
seekip = request.ServerVariables("REMOTE_ADDR")
strSQL = "Select * From blokeret Where ip='" & seekip & "';" Set rs = Conn.Execute(strSQL) if (rs.BOF AND rs.EOF) then response.Redirect ("ok.asp") 'response.Write(rs("ip") & " Godkendt, ip er OK <br>") else response.Redirect ("ip.asp") 'response.Write(rs("ip") & " Nægtet adgang - ip er blokeret [Din ip er: " & request.ServerVariables("REMOTE_ADDR")& "]<br>") end if
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("/data/blokeret.mdb") Conn.Open DSN
seekip = request.ServerVariables("REMOTE_ADDR")
strSQL = "Select * From blokeret Where ip='" & seekip & "';" Set rs = Conn.Execute(strSQL) if (rs.BOF AND rs.EOF) then response.Redirect ("default.asp") else response.Redirect ("admin/meddeleser/ip.asp") 'response.Write(rs("ip") & " Nægtet adgang - ip er blokeret") end if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
