gillar inte att du ha rs i en annan fil... använd objekt och värden som du använder i dokumentet är en av mina regler :D sått en ny rs då..
Kolla spärrade IP
27 svar · 1 121 visningar · startad av mackanz · sida 2 av 2
Frågan, av mackanz
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
Läs frågan i sin helhet →Det skall väl inte vara något fel på det där. Byt namn på rs då om du vill ha kvar det i det förra recordsetet.
Dim balloooo, isBanned
set balloooo= mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
isBanned = balloooo(0)
Set balloooo= Nothing
if isBanned <> 0 then 'Snubben är bannad
Response.Redirect "http://www.hell.com"
End if
Så behåller du din "gamla" kod som den är.
Travonis exempel fungera väl? annars få du nog ge mig mer kod iallafall...
jag syftar på min kod:
<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_ADDR") &"'")
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>
och 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
%>
Dim isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '" & Request.ServerVariables("REMOTE_ADDR") &"'")
isBanned = rs(0)
rs.close
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
...
Tackar!!!