<%@ Language=VBScript %> <% ''' FUNZIONE PER AGGIUNGERE GLI SMILE ''' www.contidavide.it ''' admin@contidavide.it Function AddSmilies(varValue) dim arrReplaceThis, arrWithThis arrReplaceThis = Array(":\)",";\)",":\(",":D",":P",":@",":O",":\$") arrWithThis = Array(" "," "," "," "," "," "," "," ") strText = varValue Set regEx = New RegExp For i = 0 to Ubound(arrReplaceThis) regEx.Pattern = arrReplaceThis(i) regEx.IgnoreCase = True strText = regEx.Replace(strText, arrWithThis(i)) Next Set regEx = Nothing AddSmilies = strText End Function %>

Questo è un esempio di come visualizzare gli smile inseriti tramite la combinazione di tasti all'interno di textarea
e visualizzarli come formato immagine gif all'output della textarea

by www.contidavide.it

LISTA SMILE

:)   - CONTENTO
;)   - OK
:D   - RISATA
:o   - IMBARAZZATO
:(   - TRISTE

Testo INPUT
Testo OUTPUT
<% Dim testo testo = Request.Form("txt_testo") ''' RICHIAMIAMO LA FUNZIONE PER AGGIUNGERE GLI SMILE AL TESTO GENERATO Response.Write AddSmilies(testo) %>