Articoli 

Utenti iscritti inattivi

Inserito il 29 marzo 2004 alle 15:22:29 da djveleno.

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

Commenti

19 Commenti - 4/5 - Voti : 7
Inserito il 29 marzo 2004 alle 17:48:14 da Anonimo.  0/5
 
Non ho capito a che serve questo articolo...
Inserito il 29 marzo 2004 alle 22:48:55 da pierin.  5/5
 
Occorre rettificare bene la spiegazione, cmq sono contento che sia venuto fuori questo problema dai miei post..complimenti x il lavoro.
Inserito il 30 marzo 2004 alle 10:41:13 da benacus.  0/5
 
in pratica questa modifica rende pi&#249; snella la richiesta di cancellazione dell'account da parte dell'utente. Viene aggiunto un tasto nella pagina di modifica del proprio account.
Inserito il 30 marzo 2004 alle 10:45:52 da benacus.  0/5
 
ma cosa dico... sono ubricaco la mattina?
scusate questa modifica serve per avere sott'occhio e per cancellare con agilit&#224; (senza doverseli andare a cercare) gli utenti che hanno richiesto la registrazione ma che non hanno confermato tramite e-mail.
Nella pagina di amministrazione iscritti aggiunge una tabella con l'elendo degli utenti inattivi.
Inserito il 31 marzo 2004 alle 12:31:31 da beppetrj.  5/5
 
Ho istallato il modulo
Funziona perfettamente.
In pratica nella sezione &quot;amministrazione&quot; - &quot;Iscritti&quot; viene creata una tabella con gli utenti che non hanno confermato la propria iscrizione via mail.
Quando per&#242; li cancello dal sito sulla tabella mi appare la scritta
LANG_ACCOUNTS_NO_VALID
Errore di run-time di Microsoft VB_Script error '800a01c2'

Numero errato di argomenti o assegnazione di propriet&#224; non valida: 'Response.Write'

/clubtenere/includes/admin/accounts-inc.asp, line 58

e manca completamente la colonna dx (solo in quella pagina...)
E' normale o manca qualcosa?
Inserito il 31 marzo 2004 alle 12:39:19 da beppetrj.  0/5
 
praticamente nell'ultimo passaggio
iLine = 1 + ((iLine-1) XOR 1)
oRs.MoveNext
WEnd
Response.Write &quot;&lt;/table&gt;&quot; &amp; vbCRLF
Else
Response.Write
GetTranslation(&quot;LANG_ACCOUNTS_VALID&quot;)
End If
CreateBottomTable &quot;&quot;
manca la parte dell'ultimo response write.....
cosa ci va????
Inserito il 31 marzo 2004 alle 14:09:14 da benacus.  0/5
 
allora...
Response.Write
GetTranslation(&quot;LANG_ACCOUNTS_VALID&quot;)

vanno sulla stessa riga, cos&#236;:

Response.Write GetTranslation(&quot;LANG_ACCOUNTS_VALID&quot;)
Inserito il 31 marzo 2004 alle 15:02:45 da beppetrj.  2/5
 
per la traduzione nel file IT.xml ho aggiunto:
&lt;translation name=&quot;LANG_ACCOUNTS_NO_VALID&quot;&gt;Iscrizioni non convalidate&lt;/translation&gt;
&lt;translation name=&quot;LANG_ACCOUNTS_VALID &quot;&gt;Tutte le iscrizioni sono valide&lt;/translation&gt;

Vi piace?
Inserito il 04 aprile 2004 alle 22:04:46 da excess.  3/5
 
ragazzi ma scusate non era + semplice scrivere select ulogin, uemail from users where uvalid=0 nella pagina database della sezione amministrazione?
Inserito il 07 aprile 2004 alle 10:51:59 da benacus.  0/5
 
certo che era pi&#249; semplice, ma dopo che hai ottenuto l'elenco a video devi segnarti i nominativi su un foglietto e andarteli a cercare per cancellarli, oppure cancellarli manualmente con altre query sql...
Inserito il 11 aprile 2004 alle 12:03:39 da PeP.  5/5
 
provato modulo ma mi da questo errore: Microsoft VB_Script runtime error '800a01f4'
Variable is undefined: 'uID'
sapete xch&#232;?
Grazie
Inserito il 16 aprile 2004 alle 13:52:09 da pmattera.  0/5
 
Anche a me da adesso l'errore:
Errore di run-time di Microsoft VB_Script error '800a01f4'
Variabile non definita: 'uID'
Inserito il 19 aprile 2004 alle 00:54:22 da redbaron76.  0/5
 
A parte la variabile non definita (forse tu l'hai gi&#224; definita in variables-inc.asp per atri scopi?) lo script &#232; incompleto... In effetti manca la query che va a cancellare lo stesso utente anche nel database Forum, altrimenti, non facendolo, inizi a tenerti delle righe ghost che non sarai pi&#249; in grado di recuperare e cancellare in futuro.

Se poi si vuole fare i pignoli... l'utente non validato non dovrebbe nemmeno essere visto come utente dal sistema....

saluti
Inserito il 20 aprile 2004 alle 09:46:49 da Anonimo.  0/5
 
e meno male che era stato testato ...ragazzi facciamo i seri senn&#242; uno fa le modifiche e poi si trova nei casini...senza polemiche
Inserito il 20 aprile 2004 alle 19:10:58 da benacus.  5/5
 
ciao red, fa piacere vederti...
io ho testato la modifica su una versione 1.2 non modificata, altro non so.
La sola cosa che posso dire &#232; che in effetti manca un pezzettino nel tutorial, cio&#232; che le righe di codice
Set oCn = DBConnexion(DB_FORUM)
rSQL = &quot;DELETE FROM Users WHERE UserLogin='&quot; &amp; SQLEncrypt(uID) &amp; &quot;'&quot;
DBExecute oCn, rSQL

vanno inserite nella funzione DeleteAccount(uID)
prima della riga
Set oCn = Nothing

Sul fatto che l'utente non dovrebbe essere neanche visto sono d'accordo con te, appena avr&#242; tempo lo modificher&#242;...
saluti e complimenti per il tuo sito

p.s. ragazzi &quot;facciamo i seri&quot; ... firmiamoci. senza polemiche
Inserito il 21 aprile 2004 alle 03:27:18 da benacus.  0/5
 
ho fatto la modifica per evitare di visualizzare gli utenti inattivi, la trovate qui:
http://www.aspnuke.it/forum/Forum.asp?forum=8&amp;section=24&amp;post=14967
Inserito il 26 aprile 2004 alle 23:48:10 da Anonimo.  0/5
 
ho scaricato dei file IT musicali come devo fare per ascoltarli? un saluto
Inserito il 09 giugno 2004 alle 20:01:20 da Carlet.  0/5
 
FORTISSIMO STO MOD!!!!! NELLA PROSSIMA VERSIONE CI DEVE ESSERE!!!!!
Inserito il 29 agosto 2009 alle 17:49:45 da Anonimo.  3/5
 
Dear web-master ! I looked your site and I want to say that yor very well
made it .All information on this site is represented for users. A site is
made professionally. So to hold
http://web.zone.ee/aceba/hospiceh43/index.html
<a href=http://web.zone.ee/aceba/hospiceh43/index.html> hospice home care </a>

Aggiungi - Commenti

Login Anonimo
Messaggio
[b] [i] [u] [s] [url] [img] [cit]
Codice di sicurezza
Vota! / 5

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 : 68
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: 425 Notizie: 180 Sondaggi: 11 Preferiti: 24740 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi