Modifca del file /includes/admin/accounts-inc.asp
Questa modifica serve agli amministratori di portali che hanno scelto di attendere la mail di verifica dagli utenti, dove, l'iscritto deve rispondere ad una e-mail automatica inviata dal server, per l'autenticazione nel portale, alcuni iscritti, non rispondono alla mail, e quindi, risultano un campo del DB inutile, con queste poche righe di codice è possibile eliminare gli utenti inattivi con un solo click del mouse.
Questa modifica è stata scritta da BENACUS.
Questa modifica funziona esclusivamente su portali dove è stata modificata, nel file configuration-inc.asp, la costante Const bAutoSignup = False
Editare il file in oggetto, all'inizio del file appena dopo il secondo tag <%, inserire quanto segue:
'-----------------------------INIZIO--------------------------
Sub DisplayNoValidAccounts
Dim oCn, oRs, rSQL, iLine, uId
Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT uLogin, uEmail, uDate, uRole FROM users WHERE uValid=0"
Set oRs = DBRecordSet(oCn, rSQL)
CreateTopTable "NoValidAccounts", GetTranslation("LANG_ACCOUNTS_NO_VALID")
If Not oRs.EOF Then
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td width=""80"">"
Response.Write GetTranslation("LANG_LOGIN")
Response.Write "</td>" & vbCRLF
Response.Write " <td width=""180"">"
Response.Write GetTranslation("LANG_EMAIL")
Response.Write "</td>" & vbCRLF
Response.Write " <td width=""140"">"
Response.Write GetTranslation("LANG_DATE")
Response.Write "</td>" & vbCRLF
Response.Write "</td>" & vbCRLF
Response.Write "<td width=""100"" align=""center"">" & GetTranslation("LANG_ACTIONS") & "</td>" & vbCRLF
Response.Write "</tr>" & vbCRLF
iLine = 1
While Not oRs.EOF
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td>" & Server.HTMLEncode(oRs("uLogin")) & "</td>" & vbCRLF
Response.Write " <td><a href=""" & GLOBAL_SITE_MAIL_PAGE & "?to=" & Server.HTMLEncode(oRs("uEmail")) & """>" & Server.HTMLEncode(oRs("uEmail")) & "</a></td>" & vbCRLF
Response.Write " <td align=""center"">" & StringToDate(oRs("uDate")) & "</td>" & vbCRLF
Response.Write " <td align=""center"">" & vbCRLF
MenuAdmin(Server.HTMLEncode(oRs("uLogin")))
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = 1 + ((iLine-1) XOR 1)
oRs.MoveNext
WEnd
Response.Write "</table>" & vbCRLF
Else
Response.Write GetTranslation("LANG_ACCOUNTS_VALID")
End If
CreateBottomTable ""
Set oCn = DBConnexion(DB_FORUM)
rSQL = "DELETE FROM Users WHERE UserLogin='" & SQLEncrypt(uID) & "'"
DBExecute oCn, rSQL
oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End Sub
'--------------------------------------- FINE --------------------
Alla fine del file, prima dell'ultimo END SUB, inserire questa riga:
If NOT bAutoSignUp then DisplayNoValidAccounts
Questo è tutto.
Scritto da BENACUS e testato da DJ