Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      CONFIGURAZIONE
         Bug nel file Account-inc

Bug nel file Account-inc

Autore Messaggio
Kael

Amatore
Amatore
25 Discussioni


Profilo - Kael 		20 febbraio 2004 alle 05:47:20 Profilo - KaelInvia un messaggio privato fedeprt@hotmail.com Rispondi quotando
Credo di aver trovato un piccolo bug.
Ho impostato bAutoSignup = False nel file di configurazione in modo da costringere gli utenti a attivare l'account con l'e-mail di convalida e ho riscontrato un problema: gli utenti si convalidavano ma non erano "utenti validi per il forum"

nel file /include/account-inc.asp ho notato la mancanza di una riga..

prima era così:

Function ConfirmAccount(iUserID, sUserLogin, sUserPassword)
Dim oCn, oCn2, oRs, rSQL, bDone

bDone = False

If iUserID <> "" Then
Set oCn = DBConnexion(DB_MAIN)

rSQL = "SELECT uID FROM Users WHERE uID=" & iUserID & " AND uLogin='" & SQLEncrypt(sUserLogin) & "' AND uPassword='" & SQLEncrypt(sUserPassword) & "' AND uValid=0"
Set oRs = DBRecordSet(oCn, rSQL)

If Not oRs.EOF Then
rSQL = "UPDATE Users SET uValid=1 WHERE uID=" & iUserID
DBExecute oCn, rSQL

Set oCn2 = DBConnexion(DB_FORUM)
rSQL = "UPDATE Users SET UserValid=1 WHERE UserLogin='" & SQLEncrypt(sUserLogin) & "'"

bDone = True

oCn2.Close
Set oCn2 = Nothing
End If

oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End If

ConfirmAccount = bDone
End Function





Io ho aggiunto quella mancante




Function ConfirmAccount(iUserID, sUserLogin, sUserPassword)
Dim oCn, oCn2, oRs, rSQL, bDone

bDone = False

If iUserID <> "" Then
Set oCn = DBConnexion(DB_MAIN)

rSQL = "SELECT uID FROM Users WHERE uID=" & iUserID & " AND uLogin='" & SQLEncrypt(sUserLogin) & "' AND uPassword='" & SQLEncrypt(sUserPassword) & "' AND uValid=0"
Set oRs = DBRecordSet(oCn, rSQL)

If Not oRs.EOF Then
rSQL = "UPDATE Users SET uValid=1 WHERE uID=" & iUserID
DBExecute oCn, rSQL

Set oCn2 = DBConnexion(DB_FORUM)
rSQL = "UPDATE Users SET UserValid=1 WHERE UserLogin='" & SQLEncrypt(sUserLogin) & "'"
DBEXecute oCn2, rSQL

bDone = True

oCn2.Close
Set oCn2 = Nothing
End If

oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End If

ConfirmAccount = bDone
End Function


Che serve ad eseguire l'Update nel Database del Forum.
Spero sia tutto giusto... a me funziona :D

E spero soprattutto di essere stato di aiuto per qualcuno... visto che sono solo pochi giorni che mastico questo genere di cose :D

---------------
http://www.costadellaspada.it
Shard di Neverwinter Nights

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 140
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5684685 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi