Avatar billede zyxep Nybegynder
11. februar 2002 - 15:58 Der er 5 kommentarer og
1 løsning

ignore ip i tagwall

Hej......


hvordan får jeg lavet i min tagwall så jeg kan ignore ip'er så de ikke kan skrive mere ?
Avatar billede Slettet bruger
11. februar 2002 - 16:03 #1
Du kunne f.eks. skrive ip'erne ind i en string, og så teste om brugerens ip findes i den string:

banned = "10.10.10.10,20.10.45.50.35" 'bannede ip'er

If Instr(1, banned, Request.ServerVariables("REMOTE_ADDR")) Then
Response.Redirect("anden_side.asp")
End If
Avatar billede zyxep Nybegynder
11. februar 2002 - 16:06 #2
du kan se min tagwall her http://zyxep.sutiglu.dk/test/ der mangler en hvor den læser de første 5 og en reload når man adder men jeg vil godt have at vide hvordan man gør det hvor man banner et ip så det ip ik kan skrive og så hvor jeg kan fjerne det ip senere hen
Avatar billede zyxep Nybegynder
11. februar 2002 - 16:09 #3
sådan her ser min add ud der står så hvordan den gemmer ip'erne i databasen

<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) { var ww = 480, wh = 340, leftPos = null, topPos = null;

IE=(document.all)?true:false;
var wh = (IE)?document.body.clientHeight : window.innerHeight;
var ww = (IE)?document.body.clientWidth : window.innerWidth;

if (top.screen){
  if (screen.width){
    leftPos = Math.round((ww-w-10)/2);
    topPos = Math.round((wh-h-29)/2);
  } else {
    leftPos = 50
    topPos = 50
  }
}

popupWin = window.open(url, 'Smiley', 'height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
</head>

<body bgcolor="#3a3a3a" text="black" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tagwall.mdb")
'Hvis brugeren har submittet formularen
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
'Tjecker om felterne er udfyld
    if (Request.Form("navn") <> "" AND Request.Form("overskrift") <> "" AND Request.Form("besked") <> "" AND Request.Form("hp") <> "" AND Request.Form("email") <> "") then
   
'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from Tagwall"
    rs.Open strsql, conn, 1, 3
   
'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("navn") = (Request("navn"))
    rs("overskrift") = (Request("overskrift"))
    rs("besked") = Server.HTMLEncode(Request("besked"))
    rs("hp") = (Request("hp"))    
    rs("email") = (Request("email"))
    rs("dato") = (Request("dato"))
    rs("ip") = (Request("ip"))
        rs.update
   

    Response.Write("<strong><font color='red'>Du har sendt formen!</font></strong>")
    rs.Close
    set rs = nothing
   
else
    Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")

end if
end if
%>
<form method="POST" action="Add.asp">
<table align="center" cellspacing="1" cellpadding="0" border="0" width="350">
  <tr>
    <td> navn:<br>
      <input type="text" name="navn" class="login" value="">
    </td>
    <td> overskrift:<br>
        <input type="text" name="overskrift" class="login">
    </td>
  </tr>
  <tr>
    <td> Email:<br>
      <input name="email" class="login">
    </td>
    <td> hjemmeside:<br>
        <input name="hp" class="login" value="http://">
    </td>
  </tr>
  <tr>
    <td>
      <p>Besked:</p>
      <p>
        <textarea rows="4" name="besked" cols="30"></textarea>
        <br>
      </p>
    </td>
      <td>
        <p>&nbsp;</p>
        <p><INPUT TYPE="hidden" VALUE="<% response.write Now %>" NAME="dato"><br>
        <INPUT TYPE="hidden" VALUE="<% response.write Request.ServerVariables("REMOTE_ADDR") %>" NAME="ip">
        </p>
      <p>&nbsp;</p>
      <p>
        <input type="submit" value="Add" class="login" name="submit">
        <input type="reset" class="login" name="reset">
      </p>
    </td>
  </tr>
 
</table>

der laver jeg så en admin del hvor jeg kan rette/slette/banne ip'er og slette ip'er
Avatar billede styler.dk Nybegynder
14. februar 2002 - 02:09 #4
det er da nemt nok...
øhh.
du skal da bare gøre sådan at hvergang nogle skriver i din gæstebog/Tagwall så kommer ip´en automastisk med også skal du bare ligge det her script ud på din hjemmeside også kan de ikk skrive i den mere:

<% if request.servervariables("remote_addr") = "ip.ip.ip.ip" then
Response.Redirect("http://DenSideSomDuVilVidreStillePersonenTil.dk")
end if
%>
Avatar billede zyxep Nybegynder
14. februar 2002 - 12:43 #5
hva men jeg kan jeg lave sådan at der er en side hvor på en måde tagwall'en er på hvor der står deres ip'er og så jeg trykker på en knap hvor det så fjerner tagget og  ingore/banner ip'en så persoen ikke kan skrive mere
Avatar billede zyxep Nybegynder
22. februar 2002 - 19:04 #6
lukker det her spørgsmål det kommer nok op senere fordi jeg skal bruge det senere
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