Kolla spärrade IP

27 svar · 1 121 visningar · startad av mackanz 30 mars 2006

mackanzMedlem sedan sep. 2003443 inlägg

Frågan30 mars 2006 13:39#1

Hej!

Jag har sökt på forumet här och hittat en del men får det inte rikgit klart för mig.

Min bror har en hemsida där han får spamm. Jag vill nu spärra Ip-adresser.

Jag har gjort en imatningsfunktion där man matar in IP som då lagras in en
accessdatanas. Tabellen heter ipsparr och fältet ip.

Hur går man vidare och gör en kontroll??

Kan man göra en includefil??

Till gästboken har jag en sida som heter gastbok_in.asp som tar hand om dom inmatade uppgfiterna. Kan man där lägga in någon kontroll eller funktion

Så här ser den sidan ut:
(Includefilen som det hänvisas till kollar så att de fält som måste vara ifylld är ifyllda.)

<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
<!-- #include file="muffins.asp" -->

<!-- #include file="check_gb.asp"-->

</head>
<body>

<%

sql = "SELECT * from gastbok"
rs.open sql, mincon, 3, 3

rs.addnew
rs("NAME")=Request.Form("NAME")
rs("EMAIL")=Request.Form("EMAIL")
rs("HOMEPAGE")=Request.Form("HOMEPAGE")
rs("CITY")=Request.Form("CITY")
rs("MESSAGE")=Request.Form("MESSAGE")
rs("DAT")=Request.Form("DAT")
rs("SMILE")=Request.Form("SMILE")
Rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
%>

<%Response.Redirect("gastbok_las.asp")%>

</body>
</html>

TravoniMedlem sedan okt. 20041 556 inlägg

30 mars 2006 13:46#2

<%
Dim rs, isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
isBanned = rs(0)
Set rs = Nothing
if isBanned <> 0 then 'Snubben är bannad
    Response.Redirect "http://www.hell.com"
End if

sql = "SELECT * from gastbok"
rs.open sql, mincon, 3, 3

'...Annan kod
%>

mackanzMedlem sedan sep. 2003443 inlägg

30 mars 2006 13:48#3

Sätter jag in denna kod i en include fil eller ska det vara på gastbok_in.asp ????

vad menar du med annan kod....???

TravoniMedlem sedan okt. 20041 556 inlägg

30 mars 2006 13:49#4

Där jag visade.

Annan kod är detta:

rs.addnew
rs("NAME")=Request.Form("NAME")
rs("EMAIL")=Request.Form("EMAIL")
rs("HOMEPAGE")=Request.Form("HOMEPAGE")
rs("CITY")=Request.Form("CITY")
rs("MESSAGE")=Request.Form("MESSAGE")
rs("DAT")=Request.Form("DAT")
rs("SMILE")=Request.Form("SMILE")
Rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close

mackanzMedlem sedan sep. 2003443 inlägg

30 mars 2006 13:51#5

Ok jag testar.....

mackanzMedlem sedan sep. 2003443 inlägg

30 mars 2006 13:55#6

Felmeddelande

får felmeddelande:

Expected ')' 

/gastbok_in.asp, line 14 

set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
---------------------------------------------------------------------------------------------^

Så här ser hela filen gastbok_in.asp ut

<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
<!-- #include file="muffins.asp" -->

<!-- #include file="check_gb.asp"-->

</head>
<body>

<%
Dim rs, isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
isBanned = rs(0)
Set rs = Nothing
if isBanned <> 0 then 'Snubben är bannad
    Response.Redirect "http://www.hell.com"
End if

sql = "SELECT * from gastbok"
rs.open sql, mincon, 3, 3

rs.addnew
rs("NAME")=Request.Form("NAME")
rs("EMAIL")=Request.Form("EMAIL")
rs("HOMEPAGE")=Request.Form("HOMEPAGE")
rs("CITY")=Request.Form("CITY")
rs("MESSAGE")=Request.Form("MESSAGE")
rs("DAT")=Request.Form("DAT")
rs("SMILE")=Request.Form("SMILE")
Rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
%>

<%Response.Redirect("gastbok_las.asp")%>

</body>
</html>

TravoniMedlem sedan okt. 20041 556 inlägg

30 mars 2006 14:10#7

Lägg till en parentes i slutet: ...Request.ServerVariables("REMOTE_HOST") &'")

Expected ')'

Betyder att en ) saknas. Om du tittar lite noga så ser nu nog det.

mackanzMedlem sedan sep. 2003443 inlägg

30 mars 2006 14:20#8

vart då??? i slutet på raden???

min rad ser ut så här nu

set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'")

får fortfarande error

ursäkta att jag fattar dåligt :)

felmeddelandet:

Expected ')' 

/gastbok_in.asp, line 14 

set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'")
---------------------------------------------------------------------------------------------^

jag tycker alla parenteser är avslutade.

det perkar ju på R, där Remote hos börjar. Har det något med det att göra??

ZaimanMedlem sedan dec. 20014 239 inlägg

30 mars 2006 14:49#9

Så här då?

Prova med denna

set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '" & Request.ServerVariables("REMOTE_HOST") &"'")

mackanzMedlem sedan sep. 2003443 inlägg

30 mars 2006 15:08#10

nu fick jag

Object required

/gastbok_in.asp, line 24

mackanzMedlem sedan sep. 2003443 inlägg

30 mars 2006 18:21#11

någon som vet vad Object required betyder??

Object required

/gastbok_in.asp, line 24

UlfTMedlem sedan maj 20018 027 inlägg

30 mars 2006 19:01#12

Det krävs ett objekt som saknas. Exakt vad som saknas, är omöjligt att säga om man inte vet något om koden runt rad 24.

mackanzMedlem sedan sep. 2003443 inlägg

30 mars 2006 21:14#13

Så här ser koden ut

Så här ser koden ut
Sidan som ska föra in inlägget i gästboken och samtidigt kolla om spärrade ip finns med.

<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
<!-- #include file="muffins.asp" -->

<!-- #include file="check_gb.asp"-->

</head>
<body>

<%
Dim rs, isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '" & Request.ServerVariables("REMOTE_HOST") &"'")
isBanned = rs(0)
Set rs = Nothing
if isBanned <> 0 then 'Snubben är bannad
    Response.Redirect "http://www.hell.com"
End if

sql = "SELECT * from gastbok"
rs.open sql, mincon, 3, 3

rs.addnew
rs("NAME")=Request.Form("NAME")
rs("EMAIL")=Request.Form("EMAIL")
rs("HOMEPAGE")=Request.Form("HOMEPAGE")
rs("CITY")=Request.Form("CITY")
rs("MESSAGE")=Request.Form("MESSAGE")
rs("DAT")=Request.Form("DAT")
rs("SMILE")=Request.Form("SMILE")
Rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
%>

<%Response.Redirect("gastbok_las.asp")%>

</body>
</html>

UlfTMedlem sedan maj 20018 027 inlägg

31 mars 2006 05:36#14

Rad 23: rs.open sql, mincon, 3, 3
Men med vilket rs? Du har ju på rad 15 satt rs = Nothing. Du har inget rs kvar att använda. Därav problemet. Du måste instansiera ett nytt rs innan du kan använda det.

voigtann1Medlem sedan juni 20019 519 inlägg

31 mars 2006 05:37#15

mincon var är den? i muffins.asp eller check_gb.asp? Rad 24 är " " direkt efter rs.open sql, mincon, 3, 3

gissar att det är rs som saknas:

Set Rs = Server.CreateObject("ADODB.Recordset")

mackanzMedlem sedan sep. 2003443 inlägg

31 mars 2006 08:58#16

så här ser includefilen ut med databaskopplingen

 <%	Set MinCon = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.RecordSet")

MinConstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("../databas.mdb")
MinCon.Open MinConstr

 %>

voigtann1Medlem sedan juni 20019 519 inlägg

31 mars 2006 09:48#17

Varför dimar du rs då när redan rs är något...

mackanzMedlem sedan sep. 2003443 inlägg

31 mars 2006 09:51#18

vet inte :)

följande kod har inte jag skrivit, utan fått av en här på forumet.
och det är den som felar.

<%
Dim rs, isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
isBanned = rs(0)
Set rs = Nothing
if isBanned <> 0 then 'Snubben är bannad
    Response.Redirect "http://www.hell.com"
End if

voigtann1Medlem sedan juni 20019 519 inlägg

31 mars 2006 11:23#19

ta bort rs, och behåll isBanned och se :D

mackanzMedlem sedan sep. 2003443 inlägg

31 mars 2006 11:27#20

Nä det funkade tyvärr inte

då klagas det på att rs inte finns

Object required: 'rs' 

/gastbok_in.asp, line 24

lägger jag tillbaks RS får jag.

Object required 

/gastbok_in.asp, line 24