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.
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.
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)
Synes godt om
Ny brugerNybegynder
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.