IP nummer

kan du ikke bare slette det som ikke skal være der?

Du kunne evt kigge på din serveropsætning og nægte adgang til IP nummeret. Der må være noget i permissions

<% if Request.ServerVariables("remote_host") = rs("IPadr") then
response.write "adgang nægtet"
else
response.write "Fuld adgang"
end if %>

Prøv og leg lidt med det!!

Jeg ville nok nærmere overveje at "forsøge" at sikre siden imod ondsindet kode i stedet.

Anyway... hvis du af andre grunde alligevel syntes det er en god ide at lave et ip filter. Er det rimligt nemt blot at logge ip'ere fra folk der skriver ting du ikke syntes skal være i dit forum og så simpelthen bare checke om folk der poster's ip ligger i denne tabel.
Men i praksis er det en dårlig løsning der ikke kan bruges til noget som helst.

Eneste rigtige løsning er at forsøge at sikre forumet imod ondsindet kode. Hvis det skal være meget sikkert (og beskytte imod udtaleser som firmaet/webmaster/etc. ikke finder passende) så er den eneste rigtige løsning at lave en moderator funktion (så alle posts skal læses igennem af en admin/moderator inden de bliver offentligt tilgængelige)

Hygge
Hvid

takker for hjælpen .. cthun.. du fik pointene for det spg. som er oprettet 2 gange.. så jeg napper dem igen..

UPS... lige en kommentar..
Her er min kode..

Men hvor skal jeg indsætte....


<% if Request.ServerVariables("remote_host") = rs("IPadr") then
response.write "adgang nægtet"
else
response.write "Fuld adgang"
end if %>

Jeg har prøvet rundt omkring.. men så vil siden bare ikke komme frem når jeg klikke på linket..
<%

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb")

    nu = now
    dag = DatePart("d", nu)
    If Len(dag) = 1 Then
        dag = "0" & dag
    End If
    maaned = DatePart("m", nu)
    If Len(maaned) = 1 Then
        maaned = "0" & maaned
    End If
    aar = DatePart("yyyy", nu)

    Dato = dag & "/" & maaned & "-" & aar & " " & left(time,8)

    Forfatter = Server.HTMLEncode(Request.Form("navn"))
    Email = Server.HTMLEncode(Request.Form("email"))
    City = Server.HTMLEncode(Request.Form("City"))
    Country = Server.HTMLEncode(Request.Form("Country"))

    if Len(Request.Form("homepage")) then
        if not left(LCase(Request.Form("homepage")),7) = "http://" then
            session("notice") = "<font size=+0 font color='red'><br>Den hjemmeside du har angivet er ikke gyldig!<br><a href=java script:history.go(-1)>Klik på tilbage for at rette adressen eller slet evt. det indtastede i feltet hjemmeside!</a></font>"
            response.redirect "board.asp"
        else
            Homepage = Server.HTMLEncode(Request.Form("homepage"))
        end if
    end if

    BeskedTitel = Server.HTMLEncode(Request.Form("titel"))
    Besked = Request.Form("text")

    Login = "intet"

   
    conn.Execute("INSERT INTO Board (Forfatter, Email, Dato, City, Country, Homepage, BeskedTitel, Besked, IP) VALUES ('" & Forfatter & "', '" & Email & "', '" & Dato & "', '" & City & "', '" & Country & "', '" & Homepage & "', '" & BeskedTitel & "', '" & Besked & "', '" & request.servervariables("REMOTE_ADDR") & "')")

    conn.Close
    set conn = nothing

    session("notice") = "<br><font size=+0 font color='green'>Your Message is now added!</font>"

    Response.Redirect("board.asp")
%>