21 luglio 2003 alle 16:34:25 Modificato il 21 luglio 2003 alle 16:35:05Volete evitare che gli utenti scrivano parolacce nei commenti ? Ecco quello che fà per voi:
Aprite il file FUNCTIONS-INC.ASP nella cartella /include e prima della fine del file aggiungete questa funzione:
'Controlla l'inserimento di parolacce Function badWords(sText) Dim words, stringa, k words = Array("cretino","stupido","imbecille") stringa = sText
For k = LBound(words) To UBound(words) stringa = Replace(stringa, words(k), String(Len(words(k)),"*")) Next
badWords = stringa End Function
naturalmente nella definizione delle words potete aggiungere quello che volete !!!
Poi aprite il file COMMENTS-INC.ASP sempre nella cartella /include cercate la Sub DoComments() e la modificate in modo da ottenere questo:
Sub DoComments() Dim testo If Request("do") = "add" and Request.Form("cText") <> "" Then testo = badwords(Request.Form("cText")) AddComment Request.Form("cItem"), Request.Form("cType"), Request.Form("cAuthor"), Request.Form("cRate"), testo End If End Sub
In questo modo tutte le parolacce inserite verranno trsformate in asterischi !!!
ENJOY !!!
littlehawk Eliminato
0 Discussione
22 luglio 2003 alle 15:36:06 UHEE ! 30 visite e nessuno che dà nemmeno un'opinione ?
barabba Principiante
15 Discussioni
07 dicembre 2003 alle 18:53:52 Modificato il 07 dicembre 2003 alle 18:56:17grandiosamente megagalattico!!!!!!!! Meglio censurare prima, se no gli amministratori devono andare a confessarsi anche per chi mette le parolacce.
******* **** Ciao (r)
INVY Avanzato
149 Discussioni
07 dicembre 2003 alle 19:02:13 Notevole... ma ho preso in mano il libro dei sinomini: ci sono mille e mille parolacce!!! e poi, le varianti locali, dialettali, le allusioni... E poi... se uno le scrive così; I m B E c i L l e... magari la fa franca lo stesso Coraggio, almeno una dozzina di parolacce con il tuo lavoro le hai levate dalla circolazione, e dopo tutto chi le scrive non credo sia così colto da saperene 1000 diverse (r) Bye e complimenti --------------- INVY http://www.cyberspazio.org http://www.cyberspazio.eu http://www.informaticalibri.it http://www.fotolibri.it http://www.invy.net ------------------ Un lungo cammino inizia sempre con il primo passo.
Log in
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 : 114 Membri : 0
Anna
Iscritti
Utenti: 18940
Ultimo iscritto : glauco Lista iscritti Messaggi privati: 3373Commenti: 2210Immagini: 39Downloads: 144Articoli: 49Pagine: 101Siti web: 558Notizie: 180Sondaggi: 11Preferiti: 5684666Post sui forum: 51195Libro degli ospiti: 4Eventi: 7
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,1953125 secondi.
NOVITA' SU ASPNUKE
MOD BAD WORDS
21 luglio 2003 alle 16:34:25 
![[feu]](/smileys/feu.gif)
22 luglio 2003 alle 15:36:06 
07 dicembre 2003 alle 19:02:13 
![[lo]](/smileys/coucou.gif)
e complimenti