Hejsan,

för att undvika all jobbig spam fixade jag medlemsfunktion på min sida. Men nu måste jag lösa detta med att man endast kan ha en medlem per ip. Så här är koden undrar om någon skulle kunna hjälpa mig:

If Request.Querystring("action") = "addera" then

If Len(request.form("username") & "") < 3 then
response.write "Ditt användarnamn måste vara minst 3 tecken långt!"
Elseif Len(request.form("password") & "") < 6 then
response.write "Ditt lösenord måste vara minst 6 tecken av säkerhetssjäl."
Elseif Len(request.form("email") & "") < 5 then
response.write "Din e-post adress måste vara minst 5 tecken långt."
Elseif not Request.Form("password") = Request.Form("password2") Then
response.write "Ditt lösenord matchar inte."
else

Set ObjRS = ObjConn.Execute("SELECT * FROM members where username='"& (Request.Form("username")) &"'")
If ObjRS.eof then
ObjConn.Execute("INSERT INTO members (username, password, email, ip) VALUES ('"& (Request.Form("username")) &"', '"& (Request.Form("password")) &"', '"& (Request.Form("email")) &"', '"& (Request.ServerVariables("REMOTE_ADDR")) &"') ")
Response.Write "Du är nu medlem på Matcho och kan logga in på startsidan."
else
Response.Write "Användarnamnet är upptaget, var vänlig välj ett annat."
End If

ObjRS.close : Set ObjRS = nothing
ObjConn.close : Set ObjConn = Nothing
End If
End If

Hejsan, för att undvika all jobbig spam fixade jag medlemsfunktion på min sida. Men nu måste jag lösa detta med att man endast kan ha en medlem per ip. Så här är koden undrar om någon skulle kunna hjälpa mig: If Request.Querystring("action") = "addera" then If Len(request.form("username") & "") < 3 then response.write "Ditt användarnamn måste vara minst 3 tecken långt!" Elseif Len(request.form("password") & "") < 6 then response.write "Ditt lösenord måste vara minst 6 tecken av säkerhetssjäl." Elseif Len(request.form("email") & "") < 5 then response.write "Din e-post adress måste vara minst 5 tecken långt." Elseif not Request.Form("password") = Request.Form("password2") Then response.write "Ditt lösenord matchar inte." else Set ObjRS = ObjConn.Execute("SELECT * FROM members where username='"& (Request.Form("username")) &"'") If ObjRS.eof then ObjConn.Execute("INSERT INTO members (username, password, email, ip) VALUES ('"& (Request.Form("username")) &"', '"& (Request.Form("password")) &"', '"& (Request.Form("email")) &"', '"& (Request.ServerVariables("REMOTE_ADDR")) &"') ") Response.Write "Du är nu medlem på Matcho och kan logga in på startsidan." else Response.Write "Användarnamnet är upptaget, var vänlig välj ett annat." End If ObjRS.close : Set ObjRS = nothing ObjConn.close : Set ObjConn = Nothing End If End If

Du får spara IP när man loggar in, så kan du jämföra alla IP-nummer från inloggningar när en ny medlem registrerar sig.

Men det är lite dåligt, för syskon osv kan inte använda samma dator om båda är medlem, för att inte tänka på större företag i samma nätverk.

Du får spara IP när man loggar in, så kan du jämföra alla IP-nummer från inloggningar när en ny medlem registrerar sig. Men det är lite dåligt, för syskon osv kan inte använda samma dator om båda är medlem, för att inte tänka på större företag i samma nätverk.

Jag sparar ip när man registrerar sig men tycker du jag ska göra de när man loggar in också för de som har dynamisk ip? Det jag inte vet hur man gör är hur man gämför.

Jag sparar ip när man registrerar sig men tycker du jag ska göra de när man loggar in också för de som har dynamisk ip? Det jag inte vet hur man gör är hur man gämför.

En annan lösning som du kanske ska se över är endast ett konto per personnummer.

En annan lösning som du kanske ska se över är endast ett konto per personnummer.

Tack det där var en bra! Men då måste jag lösa detta så man inte kan skriva falska personnr och så. Och det är ju enkelt att hitta på ett personnr annars.

Tack det där var en bra! Men då måste jag lösa detta så man inte kan skriva falska personnr och så. Och det är ju enkelt att hitta på ett personnr annars.

När man registrerar sig, loggas ens IP då? i så fall borde det väll vara något att utgå ifrån :P

När man registrerar sig, loggas ens IP då? i så fall borde det väll vara något att utgå ifrån :P

Jag har ju gjort så att ipt sparas när man registrerar sig.

Jag har ju gjort så att ipt sparas när man registrerar sig.

Ändra:
Set ObjRS = ObjConn.Execute("SELECT * FROM members where username='"& (Request.Form("username")) &"'")

Till:

Set ObjRS = ObjConn.Execute("SELECT * FROM members where lcase(username) = '"& lcase(Request.Form("username")) &"' OR ip = '"& Request.ServerVariables("REMOTE_ADDR")) &"'")

Ändra: Set ObjRS = ObjConn.Execute("SELECT * FROM members where username='"& (Request.Form("username")) &"'") Till: Set ObjRS = ObjConn.Execute("SELECT * FROM members where lcase(username) = '"& lcase(Request.Form("username")) &"' OR ip = '"& Request.ServerVariables("REMOTE_ADDR")) &"'")