51 messaggi dal 02 novembre 2006
salve a tutti, devo inserire alcune parti di testo, provenienti da un form in un database access. Vorrei però "trattare" il contenuto in modo da rimpiazzare i caratteri accentati e quelli speciali con le loro corripondenze HTML, in modo che richiamandoli non presentino anomalie es. la è sostuituita da un quadratino ecc.
Volevo utilizzare la funzione replace per ogni elemento del modulo
con questo codice:

titolo= replace(titolo, è, è) e tutti gli altri caratteri che mi servono.

esiste il modo di creare una funzione che richiamata, "processi" tutti gli elementi del modulo così da non riscrivere tutto il blocco di codice? sono alle prime armi e non molto pratico,

grazie
710 messaggi dal 13 novembre 2008
Contributi
qualcosa del tipo

For each FormElement in Request.Form

Var = Request.Form(FormElement)

....qui fai il replace

Next
51 messaggi dal 02 novembre 2006
Ho dimenticato di dire che il form che invia i dati al database Access ha due campi modulo tradizionali con nome "SubCat" e "titolo", che sono quelli dove voglio intervenire, trasformando i caratteri accentati nei corrispondenti in HTML, ilo terzo campo modulo avente nome "editor1" è già processato e formattato da "ckeditor". Nella mia poca conoscenza di asp mi sembra che il codice suggerito "lavori" su ogni campo del form, invece dovrei poter escludere l'ultimo segnalato. Non nsi può creare la funzione e definire solo i campi dove deve intervenire? grazie Angelo
51 messaggi dal 02 novembre 2006
altro problema: non mi trasforma le lettere accentate nella forma corrispondente

uso questo codice:

<%
If Request.Form("aggiungi") <> "" Then
Dim SubCat
SubCat = Request.Form("SubCat")

' Sostituzione dei caratteri speciali con quelli HTML
SubCat=Replace(SubCat,"&", "&amp;")
SubCat=Replace(SubCat,"<", "&lt;")
SubCat=Replace(SubCat,">", "&gt;")
SubCat=Replace(SubCat,"©", "&copy;")
SubCat=Replace(SubCat,"°", "&deg;")
SubCat=Replace(SubCat,"¢", "&cent;")
SubCat=Replace(SubCat,"÷", "&divide;")
SubCat=Replace(SubCat,"×", "&times;")
SubCat=Replace(SubCat,"¿", "&iquest;")
SubCat=Replace(SubCat,"à", "&agrave;")
SubCat=Replace(SubCat,"è", "&egrave;")
SubCat=Replace(SubCat,"é", "&eacute;")
SubCat=Replace(SubCat,"ì", "&igrave;")
SubCat=Replace(SubCat,"ò", "&ograve;")
SubCat=Replace(SubCat,"ù", "&ugrave;")
SubCat=Replace(SubCat,"À", "&Agrave;")
SubCat=Replace(SubCat,"È", "&Egrave;")
SubCat=Replace(SubCat,"É", "&Eacute;")
SubCat=Replace(SubCat,"Ì", "&Igrave;")
SubCat=Replace(SubCat,"Ò", "&Ograve;")
SubCat=Replace(SubCat,"Ù", "&Ugrave;")

%>
la parola verità diventa verit&copy; città citt&copy;

nn riesco a capire dove sta l'inghippo
547 messaggi dal 24 maggio 2002
Contributi
Perchè non usi Server.HTMLEncode?

Marco.
Modificato da makbox il 15 dicembre 2010 22.42 -
51 messaggi dal 02 novembre 2006
ci ho già provato, ma non funziona (non chiedermi il perchè), ho quindi pensato a questa soluzione

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.