Ta bort många poster med samma IP?

14 svar · 356 visningar · startad av webbSAJTEN 17 mars 2004

webbSAJTENMedlem sedan jan. 2002992 inlägg

Frågan17 mars 2004 12:12#1

Tjenare!
Det är så att min gästbok har blivit lite spammad, med ett par 100 tomma inlägg.. hans IP-nummer ligger sparad i databasen..
Det jag skulle vilha ha hjälp med är ett sätt att kunna ta bort alla hans inlägg på samma gång..
Alltså: Jag skriver in ett IP adress i ett formulär och klicka på "Ta bort" så raderas alla inlägg skrivna av det IP-nummret samtidigt..

Hur skulle jag kunna göra??

LarsGMedlem sedan dec. 200012 464 inlägg

17 mars 2004 12:17#2

'
' create connection object named connect and open
'
'
connect.execute "delete from guestbook where ip = '" & _
replace(request("ip"),"'","''") & "'",,128
'
connect.close

Byt tabell och kolumnnamn där det är påkallat.

webbSAJTENMedlem sedan jan. 2002992 inlägg

17 mars 2004 12:34#3

Förlåt, säkert jättebre men jag förstår inte hur jag ska göra :(

MeleaMedlem sedan juli 20033 147 inlägg

17 mars 2004 12:48#4

<form action="delete_ip.asp" method="post">
<input type="input" name="ip" size="30"><br>
<input type="submit" value="Ta bort alla poster med detta IP">
</form>

Sen i delete_ip.asp skriver du LarsG:s kod

connect.execute "delete from guestbook where ip = '" & _
replace(request.form("ip"),"'","''") & "'",,128

connect.close

webbSAJTENMedlem sedan jan. 2002992 inlägg

17 mars 2004 13:02#5

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/gastbok_admin2.asp, line 12

Linje 12: <% connect.execute "delete from inlagg where IP = '" & _

InferisMedlem sedan sep. 2000667 inlägg

17 mars 2004 13:08#6

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/dindatabas.mdb")
connect.execute "delete from inlagg where ip = '" & _
replace(request.form("ip"),"'","''") & "'",,128

connect.close
%>

KoplikMedlem sedan juli 20011 129 inlägg

17 mars 2004 13:11#7

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/dindatabas.mdb")
Connect.execute "delete from guestbook where ip = '" & _
replace(request.form("ip"),"'","''") & "'",,128

Connect.close

Cause and effect

Engine^Medlem sedan dec. 20003 887 inlägg

17 mars 2004 13:11#8

Set objConnect = Server.CreateObject("ADODB.Connection")

objConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databasen")

objConnect.Execute "DELETE FROM inlagg WHERE IP = '" & Replace(Request.Form("ip"), "'", "''") & "'", , 128

objConnect.Close

Set objConnect = Nothing

Engine^Medlem sedan dec. 20003 887 inlägg

17 mars 2004 13:12#9

Hehe... tre snabba :e

webbSAJTENMedlem sedan jan. 2002992 inlägg

17 mars 2004 13:13#10

Tack! Det funkade underbart =D

InferisMedlem sedan sep. 2000667 inlägg

17 mars 2004 13:13#11

Så var det förr...

webbSAJTENMedlem sedan jan. 2002992 inlägg

17 mars 2004 13:17#12

Hur kommer det sig att den inte måste kolla om det IP nummret finns och så? Med IF satser...

InferisMedlem sedan sep. 2000667 inlägg

17 mars 2004 13:18#13

Glöm inte att acceptera något av svaren som godkänt svar.

@ndersMedlem sedan juni 200032 967 inlägg

17 mars 2004 13:20#14

Inferis skrev:

Glöm inte att acceptera något av svaren som godkänt svar.

... och glöm inte heller att följa upp dina andra trådar i det här forumet med accept av svar och / eller inlägg.

Engine^Medlem sedan dec. 20003 887 inlägg

17 mars 2004 14:49#15

webbSAJTEN skrev:

Hur kommer det sig att den inte måste kolla om det IP nummret finns och så? Med IF satser...

Det är precis det SQL-satsen gör

WHERE IP = '192.168.0.1'