Web 2 MC

Ecco una semplice funzione per pulire una stringa da tutti i caratteri particolari non riconosciuti dalla sintassi SQL.

function CleanXsql (Byval x)
    x = replace(x,"'","`")
    x = replace(x,"""","`")
    x = replace(x,"|",":")
    x = replace(x,"<","&lt;")
    x = replace(x,">","&gt;")
    x = replace(x,"%","&#37;")
    x = replace(x,"/","&#37;")
    x = replace(x,"\","&#37;")
    x = replace(x,":","&#37;")
    x = replace(x,"*","x")
    x = replace(x,"?","&#37;")
    x = replace(x,"!","&#37;")
    x = replace(x,"|","&brvbar;")
    x = replace(x,chr(34), "&quot;")
    x = replace(x,chr(34),"&#34;")
    x = replace(x,"'","`")
    x = replace(x,"|",":")
    CleanXsql = x
end function

Segnala presso:

Articoli correlati

• Programmare in ASP: Pulire stringhe con espressioni regolari
• Programmare in ASP: Funzione per pulire testo da Word
• Programmare in ASP: Vedere se un utente è ancora connesso
• Programmare in ASP: Trovare e visualizzare indirizzo IP visitatori
• Programmare in ASP: Scrivere file XML