I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
fedeteq
fedeteq
il 19 marzo 2003 alle 16:52
55 messaggi dal 14 febbraio 2001
buon pomeriggio a tutti

utilizzo queste due funzioni per sosituire dei caratteri speciali prima di inserirli in un db e per visualizzarli poi in una textarea.

Non capisco però perchè nel primo caso funziona e nel secondo no.
qualche idea?:-(

grazie
federica

prima di inserire o aggiornare il db
utilizzo
descrizione=request.form("descrizione")
descrizione=replaceCaratteriSpeciali(descrizione)

viceversa per mostrare poi i dati nel form eventualmente da modificare:
descrizione=rs("descrizione")
descrizione=CaratteriSpeciali(descrizione)

<textarea name="descrione"><%=descrizione%></textarea>

Function ReplaceCaratteriSpeciali( Testo )
'***********************************************************************
On Error Resume Next
If not Len(Testo) > 0 Then ReplaceCaratteriSpeciali = "": Exit Function
Testo = replace(Testo,"&","&amp;")
Testo = replace(Testo,"<","&lt;")
Testo = replace(Testo,">","&gt;")
Testo = replace(Testo,"""","&quote;")
Testo = replace(Testo,"'","&apos;")
Testo = replace(Testo,"?","&apos;")
Testo = replace(Testo,"è","e&apos;")
Testo = replace(Testo,"é","e&apos;")
Testo = replace(Testo,"à","a&apos;")
Testo = replace(Testo,"ò","o&apos;")
Testo = replace(Testo,"ù","u&apos;")
Testo = replace(Testo,"ì","i&apos;")
Testo = replace(Testo,"?","&#8364;")
ReplaceCaratteriSpeciali = Testo
end function

Function CaratteriSpeciali(Testo)
'***********************************************************************
On Error Resume Next
If not Len(Testo) > 0 Then CaratteriSpeciali = "": Exit Function
Testo = replace(Testo,"&amp;","&")
Testo = replace(Testo,"&lt;","<")
Testo = replace(Testo,"&gt;",">")
Testo = replace(Testo,"&quote;","""")
Testo = replace(Testo,"&apos;","'")
Testo = replace(Testo,"&apos;","?")
Testo = replace(Testo,"e&apos;","è")
Testo = replace(Testo,"e&apos;","é")
Testo = replace(Testo,"a&apos;","à")
Testo = replace(Testo,"o&apos;","ò")
Testo = replace(Testo,"u&apos;","ù")
Testo = replace(Testo,"i&apos;","ì")
Testo = replace(Testo,"&#8364;","?")
CaratteriSpeciali = Testo
end function
RispondiQuoting
andytimes
andytimes
il 19 marzo 2003 alle 17:50
379 messaggi dal 06 settembre 2002
www.andytimes.com
Non funziona nel senso che non è efficace e ti "butta fuori" tutto il contenuto estratto dal DB?? Non ti sostituisce "&amp;" con "&"?? togliendo on resume next che errore ti da?? scusa le domande ma a prima vista la funzione mi sembra corretta...
..:: and this is my web ::..
RispondiQuoting
fedeteq
fedeteq
il 19 marzo 2003 alle 18:42
55 messaggi dal 14 febbraio 2001
non funziona nel senso che non effettua il replace.
ho provato a togliere il resume ma così non stampa proprio più nulla :-((
RispondiQuoting
andytimes
andytimes
il 19 marzo 2003 alle 19:08
379 messaggi dal 06 settembre 2002
www.andytimes.com
hai per caso anche dei rimandi a capo (quelli che generalmente vengono replicati con il <br>)?? ... potrebbe essere li il problema... prova anche con delle stringhe semplici con una sola occorrenza di & tipo "ciao & ciao"....
..:: and this is my web ::..
RispondiQuoting
fedeteq
fedeteq
il 20 marzo 2003 alle 12:48
55 messaggi dal 14 febbraio 2001
lo fa anche con una solo parola :-(
altro che ultima spiaggia
....
fe
RispondiQuoting
fedeteq
fedeteq
il 20 marzo 2003 alle 17:33
55 messaggi dal 14 febbraio 2001
Ho quasi risolto il problema modifica il codice dei caratteri html,
mi rimane "solo una imperfezione " da sistemare sugli apici .

per l'inserimento o modifica del record nel db faccio il replace dell'apice con il doppio apice,
Testo = replace(Testo,"'","''")

ma poi per visualizzarli nella textarea faccio il contrario

Testo = replace(Testo,"''","'")

ma me li stampa sempre doppi :-((((((((

any idea ?
grazie
federica
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.