Ban en Ip fra en homepage

Du kan få fat i IP nummeret med:
Request.ServerVariables("REMOTE_HOST")

Så er det bare at sammenligne det nr med din liste.

Det er:
Request.ServerVariables("REMOTE_ADDR")

i stedet. REMOTE_HOST returnere domæne-navnet hvis brugeren har sådan et (ikke mange der har), ellers returnere den REMOTE_ADDR. Du kan lige så godt bruge REMOTE_ADDR så er du sikker på det er en IP hver gang.

<%
dim ip_nr
ip_nr    = Cstr(Request.ServerVariables(\"REMOTE_ADDR\"))

if ip_nr = \"xxx.xxx.xxx.xxx\" then
  response.redirect(\"ingen_adgang.html\")
end if
%>

jeg er ikke specielt god til ASP - det var noget jeg tilfældigt fandt i en bog :-)
Bør virke ;)

Skulle vi lave det som en funktion:

sub banIP()
dim fArr(2), ff, fIP
  fIP = Request.ServerVariables("REMOTE_ADDR")
  fArr(0) = "aa.aa.aa.aa"
  fArr(1) = "bb.bb.bb.bb"
  fArr(2) = "cc.cc.cc.cc"
  for ff=0 to uBound(fArr)
    if fIP = fArr(ff) then response.redirect("Banned.asp")
  next
end sub

Man kan evt lave det med en database i stedet, så alle IP'er ligger deri. Så er det også nemmere at vedligeholde, lige som man kan banne personer i en periode, for så at give dem adgang igen.

... Bare sig til hvis du er intreseret i en DB løsning, og de fordele der er herved :o)

Kan ikke få det til at virke- min default.asp set sådan her ud:

<%
Dim StrIp,StrCheckIP, Sql, rs

StrIP         = Request.ServerVariables("REMOTE_ADDR")

Sql = "Select ip from users where chat_ban > '2'"
    Set rs = Conn.Execute(Sql)









Hvor skal jeg så liggeden her ind:

  <%
dim ip_nr
ip_nr    = Cstr(Request.ServerVariables(\"REMOTE_ADDR\"))

if ip_nr = \"xxx.xxx.xxx.xxx\" then
  response.redirect(\"ingen_adgang.html\")
end if
%>


PS: Jeg har de iper jeg skal banne

Husk de skal skrives som  fx 85.15.65.23 og ikke med foranstillede 0 som i 085.015.065.023

'2' ville jeg skifte til 2 (men ved ikke om det er korrekt)

if ip_nr = \"xxx.xxx.xxx.xxx\" then

erstattes med

if ip_nr == \"xxx.xxx.xxx.xxx\" then

Men din udtrækning ville jeg egentlig trække anderledes ud

Select ip from users where chat_ban > '2'

Select chat_ban from users wjere ip = StrIP

if chat_ban > 2 then

ingen adgang

Og som en funktion du bare skal kalde:

sub banIP()
dim fRS
  fIP = Request.ServerVariables("REMOTE_ADDR")
  set fRS = conn.execute("select IP from users where ip='"& fIP &"' and chat_ban > 2")
  if fRS.eof then
    'OK
  else
    'Banned
    response.redirect("Banned.asp")
  end if
end sub

Du smider bare funktionen et eller andet sted på din side (evt i en include) og kalder funktionen med:
call banIP()

Det skulle være lige til at bruge :o)