Avatar billede inctor Nybegynder
14. juni 2006 - 21:13 Der er 11 kommentarer og
1 løsning

Ip Ban system..

Har et nu, jeg skal have vist dem som er i DB'en. har ikk lært at lave de der tables rigtigt, men her er HTML råkoden:

<div align="left">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="448" height="1" id="AutoNumber1">
    <tr>
      <td width="111" height="1">IP</td>
      <td width="111" height="1">Bannet</td>
      <td width="112" height="1">Udløber</td>
      <td width="112" height="1">Fordi</td>
    </tr>
    <tr>
      <td width="111" height="1">212.10.3.210</td>
      <td width="111" height="1">21:10 14/6-2006</td>
      <td width="112" height="1">23:10 14/6-2006</td>
      <td width="112" height="1">Test Banning...</td>
    </tr>
        </table>
</div>
Som i kan se øverst er den øverste bjælke den øverste af dem, den skal være øverst, bagefter skal den nederste Loop'es det antal gange som der er Records hvor felterne blir udfyldt ligesom jeg har gjort ..
Avatar billede madeindk Nybegynder
14. juni 2006 - 21:16 #1
<div align="left"><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="448" height="1" id="AutoNumber1">

<%
DataPath = Server.MapPath("../database/ban.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning ORDER BY id DESC "
Set rs = Conn.Execute(strSQL)

if rs.eof then
response.write("<tr><td width='448'>Listen er i øjeblikket tom</td></tr>")
else
do until rs.eof
%>


    <tr>
      <td width="111" height="1">IP</td>
      <td width="111" height="1">Bannet</td>
      <td width="112" height="1">Udløber</td>
      <td width="112" height="1">Fordi</td>
    </tr>
    <tr>
      <td width="111" height="1"><%=rs("ip")%></td>
      <td width="111" height="1">21:10 14/6-2006</td>
      <td width="112" height="1">23:10 14/6-2006</td>
      <td width="112" height="1">Test Banning...</td>
    </tr>

<%
rs.movenext
loop
end if
%>

</table></div>
Avatar billede inctor Nybegynder
14. juni 2006 - 21:25 #2
Great, hvorn laver jeg nemmest en expire funktion ? så jeg kan vælge om personen skal bannes i 1 time, flere timer 1 dag osv..
Avatar billede madeindk Nybegynder
14. juni 2006 - 21:28 #3
Hmm - den kan jeg desværre ikke klare. Har også selv leget med det, men har aldrig fået det til at virke. Måske burde eagleeye træde til her :-)

Kan tilgængæld hjælpe med en lynhurtig slet funktion hvis det var noget?
Avatar billede inctor Nybegynder
14. juni 2006 - 21:28 #4
Ja selvf .. ! :)
Avatar billede madeindk Nybegynder
14. juni 2006 - 21:31 #5
Så skal du bare selv indsætte det hvor du vil ha det, men lav en ny side der evt. hedder slet og så lav et link hvor der står:

<a href="slet.asp?id=<%=rs("id")%>" onClick="return confirm('Er du sikker?">Slet</a>

Slet.asp
--------
<%
DataPath = Server.MapPath("../database/ban.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning WHERE id=" & request.querystring("id")
Set rs = Conn.Execute(strSQL)

rs.delete
rs.update

response.write("Slettet")
%>
Avatar billede madeindk Nybegynder
14. juni 2006 - 21:32 #6
Rettelse af link:

<a href="slet.asp?id=<%=rs("id")%>" onClick="return confirm('Er du sikker?');">Slet</a>
Avatar billede inctor Nybegynder
14. juni 2006 - 21:34 #7
Er tilbage om en lille halv times tid .. Skal lige noget ..
Avatar billede inctor Nybegynder
14. juni 2006 - 21:54 #8
Wuhu, skønt ! det virker sQ .. Nå, nu skal jeg bare kunne tilføje IP'er, det er nemt nok, der svære er bare at lave en Expire funktion .. :)
Avatar billede inctor Nybegynder
14. juni 2006 - 22:50 #9
EagleEye , Du må gerne træde til, har prøvet at kigge på nogen andre Ip Bannings systemer, og prøvet at gennemlure hvorn de har lavet en Expire funktion, det er ikk lykkdes for mig, så et bud fra dig ville være vidunderligt. .
:) eller en anden som ved hvorn ..
Avatar billede madeindk Nybegynder
14. juni 2006 - 23:35 #10
Hey Inctor! Jeg synes jeg har hjulpet rimelig godt her - så kan du ikke oprette et nyt spørgsmål hvor du spørg om det du vil spørge om med det med tiden? Og så kan vi afslutte her :-)
Avatar billede inctor Nybegynder
15. juni 2006 - 13:48 #11
Jo da .. :)
Avatar billede madeindk Nybegynder
15. juni 2006 - 20:40 #12
Fint du - tak :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester