FAQ |
Kalender |
![]() |
#1 | ||
|
|||
Bara ett inlägg till!
|
Hej
Skulle verkligen vilja ha hjälp med ett script som raderar inaktiva medlemmar efter 7 månader, alltså medlemmar som inte loggat in under 7 månader.. Koden för att avsluta sitt konto ser ut såhär: Kod:
Case "del" SQL = "SELECT memb_id,memb_photo FROM _memb WHERE memb_pass = '"& strPass1 &"' AND memb_id = "&intUserId&"" Set rs = objCon2.Execute(SQL) If rs.EOF Then strMessageD = "Du måste ange rätt lösenord." Else objCon2.Execute("DELETE FROM board WHERE board_fromid="& intUserId) objCon2.Execute("DELETE FROM memb_blog WHERE blog_user="& intUserId) objCon2.Execute("DELETE FROM memb_blog_read WHERE visit_user="& intUserId) objCon2.Execute("DELETE FROM memb_board WHERE board_fromid="& intUserId &" OR board_forid="& intUserId) objCon2.Execute("DELETE FROM memb_fav WHERE fav_user="& intUserId &" OR fav_fav="& intUserId) objCon2.Execute("DELETE FROM memb_mess WHERE mess_fromid="& intUserId &" OR mess_forid="& intUserId) objCon2.Execute("DELETE FROM memb_risros WHERE rr_userid="& intUserId) objCon2.Execute("DELETE FROM memb_recept WHERE recept_user="& intUserId) objCon2.Execute("DELETE FROM memb_dikter WHERE dikt_user="& intUserId) objCon2.Execute("DELETE FROM fanclub_user WHERE user_userid="& intUserId) objCon2.Execute("DELETE FROM magasin WHERE m_userid="& intUserId) objCon2.Execute("DELETE FROM memb_bs WHERE bs_userid="& intUserId) objCon2.Execute("DELETE FROM fanclub WHERE fc_owner="& intUserId) objCon2.Execute("DELETE FROM memb_skratt WHERE skratt_user="& intUserId) objCon2.Execute("DELETE FROM memb_visits WHERE visit_user="& intUserId &" OR visit_visitor="& intUserId) If rs("memb_photo") <> "" Then Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile "D:\dbd\_photo\" & rs("memb_photo") Set FSO = Nothing End If SQL = "SELECT album_file FROM dbd_memb_album WHERE album_userid = "&intUserId &"" Set rsAlbum = objCon2.Execute(SQL) Do until rsAlbum.EOF Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile "D:\dbd\_album\" & rsAlbum(0) Set FSO = Nothing objCon2.Execute("DELETE FROM dbd_memb_album WHERE album_file = '"& rsAlbum(0) &"' AND album_userid="& intUserId &"") rsAlbum.MoveNext Loop rsAlbum.Close: Set rsAlbum = Nothing objCon2.Execute("DELETE FROM dbd_memb WHERE memb_id="& intUserId) response.redirect("logout.asp") Vi har även ett stort problem med medlemmar som raderar sitt konto och aktiverar ett nytt .. Finns det något sätt att stoppa detta så de max kan avsluta sitt konto 3 ggr eller att de inte kan skapa ett nytt förrens efter 7 dagar? Alla tips och kodsnuttar är av intresse.. Tacksam för hjälp! /Micke |
||
![]() |
![]() |
![]() |
#2 | ||
|
|||
Klarade millennium-buggen
|
Ta inte bort kontona, sätt bara en flagga som raderade. Om du inte har en väldigt stor omsättning så gör det inget att gamla konton ligger kvar.
|
||
![]() |
![]() |
![]() |
#3 | |||
|
||||
Medlem
|
Om ni sparar ner info om när användaren senast loggade in så kan ni ju bara kolla om den är över 7månader, och isåfall så tar ni bort all användardata med ett antal sql-kommandon (typ det som finns i den kod du har klistrat in).
Sen är du ju alltid svårt att stoppa att användaren skapar nya konton. Att kolla om email-adressen använts fler än 3ggr är ju lätt att kringgå (man kan regga sig med en annan email-adress). Ett annat alternativ är att kombinera detta med att även kolla från vilken IP-adress registreringar har gjorts. Detta går ju också att kringå, men kanske ngt svårare. Ett tredje är att en bekräftelsekod skickas till t.ex. mobilen, men det gör ju registreringen onödigt jobbigt för de som ska regga sig (vilket kanske gör att de struntar i det hela). Vad är anledningen till att de inte får radera sitt konto och skapa ett nytt? Tjänar användarna ngt på att göra det? |
|||
![]() |
![]() |
![]() |
#4 | ||
|
|||
Bara ett inlägg till!
|
Citat:
|
||
![]() |
![]() |
![]() |
#5 | ||
|
|||
Bara ett inlägg till!
|
Citat:
Vi har ett "ban" system där vi blockerar användarens mejl och IP adress, detta används dock endast vid grova överträdelser.. Det är mycket svartsjuke intriger och likande som händer på sidan, de avreggar sig och skapar nya konton för att spionera m.m... En annan anledning är att vi erbjuder en veckas "guldmedlemskap", detta är dock nersatt till 2 dagar för att medlemmarna ska få testa alla funktioner på sidan.. Vi kör ju sidan och radion helt ideellt och pengarna som kommer in går till licenser m.m.. |
||
![]() |
![]() |
![]() |
#6 | |||
|
||||
Flitig postare
|
du bör nog snarast se över din kod mot sql-injections, annars kan någon "vänlig" hacker se till att all din data raderas.
|
|||
![]() |
![]() |
![]() |
#7 | ||
|
|||
Supermoderator
|
Citat:
__________________
Full-stack developer, free for smaller assignments |
||
![]() |
![]() |
Svara |
|
|