campo = replace ( request ( ” nome_campo ” ) , ” ‘ “,” ‘ ‘ “)

L’implementazione del seguente codice in ASP previene da possibili attacchi di sql injection:

if not isArray(BlackList)  then

redim BlackList(32)

BlackList = Array("/*", "*/", "@@", _
"declare", "delete", "drop", "exec",_
"execute", "fetch", "insert", "kill", "open",_
"select", "sys", "sysobjects", "syscolumns",_
"table", "update", "script", "xp_", "555044415445",_
"757064617465", "736372697074", "534352495054",_
"65786563", "45584543", "696E73657274", "494E53455254",_
"64656C657465", "44454C455445", "varchar")

end if

if (request.QueryString <> "")then
ferma = false
for i = 0 to ubound(BlackList)
if instr(1,Ucase(request.QueryString),Ucase(BlackList(i))) <> 0 then
response.end
end if
next
end if

Questa procedura è consigliata posizionarla all’interno di un file presente su tutte le pagine, e controllerà tutti i valori passati in querystring

Articoli correlati

• Programmare in ASP: Funzione per pulire stringa per l’SQL
• Programmare in ASP: Bloccare indirizzi IP e generare errore 403
• Virus e Linux: cresce l’insicurezza degli utenti!
• Videoplay: il finto player, in realtà un malware
• Vi sentite sicuri del vostro antivirus?

function replace_string(strOriginalString, strPattern,strReplace,varIgnoreCase) 
    ' Function matches pattern, returns true or false 
    ' varIgnoreCase must be TRUE (match is case insensitive) or FALSE (match is case sensitive) 
    dim objRegExp : set objRegExp = new RegExp 
        with objRegExp 
        .Pattern = strPattern   
        .IgnoreCase = varIgnoreCase   
        .Global = True 
        end with 
        replace_string = objRegExp.replace(strOriginalString,strReplace)
    set objRegExp = nothing
end function

Ed ecco un esempio di chiamata per pulire una stringa da codice HTML:

descrizione=replace_string(rs("descrizione"), "<[/!]*?[^<>]*?>","", True)

Articoli correlati

• Programmare in ASP: Funzione per pulire stringa per l’SQL
• Programmare in ASP: Funzione per pulire testo da Word
• Tanti font gratuiti da scaricare
• Servizio per caricare immagini su Internet
• Scaricare un intero sito in formato pdf

il confronto viene fatto sull’array vettoreRegioni

i=UBound(vettoreRegioni)
while  i>0
    j=0
    while j<(i-1)
        appoggio=0
        appoggioTesto=""
        if vettoreRegioni(j)<vettoreRegioni(j+1) then
            appoggio=vettoreRegioni(j)
            appoggioTesto=vettoreRegioniTesto(j)
            vettoreRegioni(j) = vettoreRegioni(j+1)
            vettoreRegioniTesto(j) = vettoreRegioniTesto(j+1)
            vettoreRegioni(j+1) = appoggio
            vettoreRegioniTesto(j+1) = appoggioTesto
        end if
        j=j+1
    wend
    i=i-1
wend

Articoli correlati

• Programmare in ASP: Vedere se un utente è ancora connesso
• Programmare in ASP: Trovare e visualizzare indirizzo IP visitatori
• Programmare in ASP: Scrivere file XML
• Programmare in ASP: Pulire stringhe con espressioni regolari
• Programmare in ASP: Paginazione

Ecco un semplice script che permette di contare quanti caratteri mancano per arrivare a un limite da noi prefissato e impedire la scrittura superata tale soglia.

<style>   
    textarea{
        font-family:verdana, arial;
        font-size:10px;
        width:300px;
        height: 100px;
    }   
    #preview{
        font-family:verdana, arial;
        font-size:10px;
        width:30px;
        height: 20px;
        border:1px solid #000000;
        background-color:#cccccc;
        color:#8F3E3E;
        overflow:auto;
    }
</style>
<script>
     function showpreview(limite){   
        contenuto_testo=limite-document.getElementById("testo").value.length;   
        if (contenuto_testo<0){
            document.getElementById("testo").innerHTML=document.getElementById("testo").value.substring(0,limite-1);
            document.getElementById("preview").innerHTML=limite-document.getElementById("testo").value.length;
        } else {
            document.getElementById("preview").innerHTML=contenuto_testo;
        }   
    }
</script>
<textarea id="testo" onkeyup="showpreview(255)"></textarea>
<br/>Caratteri rimanenti:<br/><div id="preview"></div>

Articoli correlati

• Tanti font gratuiti da scaricare
• Programmare in Javascript: Verificare validatà indirizzo email form
• Programmare in Javascript: Orologio dinamico sulla barra del browser
• Programmare in Javascript: Generatore di password forti
• Programmare in ASP: Pulire stringhe con espressioni regolari

function CleanWord(stringa,bIgnoreFont,bRemoveStyles )

    stringa = replace_string(stringa,"/<o:p>\s*<\/o:p>/g","",True)
    stringa = replace_string(stringa,"/<o:p>.*?<\/o:p>/g","&nbsp;",True) 

    'Remove mso-xxx styles.
    stringa = replace_string(stringa,"/\s*mso-[^:]+:[^;""]+;?/gi","",True) 

    ' Remove margin styles.
    stringa = replace_string(stringa,"/\s*MARGIN: 0cm 0cm 0pt\s*;/gi","",True)
    stringa = replace_string(stringa,"/\s*MARGIN: 0cm 0cm 0pt\s*""/gi","",True)
    stringa = replace_string(stringa,"/\s*TEXT-INDENT: 0cm\s*;/gi","",True)
    stringa = replace_string(stringa,"/\s*TEXT-INDENT: 0cm\s*""/gi","",True)
    stringa = replace_string(stringa,"/\s*TEXT-ALIGN: [^\s;]+;?""/gi","",True)
    stringa = replace_string(stringa,"/\s*PAGE-BREAK-BEFORE: [^\s;]+;?""/gi","",True)
    stringa = replace_string(stringa,"/\s*FONT-VARIANT: [^\s;]+;?""/gi","",True)
    stringa = replace_string(stringa,"/\s*tab-stops:[^;""]*;?/gi","",True)
    stringa = replace_string(stringa,"/\s*tab-stops:[^""]*/gi","",True)

    ' Remove FONT face attributes.
    if ( bIgnoreFont ) then
        stringa = replace_string(stringa,"/\s*face=""[^""]*""/gi","",True)
        stringa = replace_string(stringa,"/\s*face=[^ >]*/gi","",True)
        stringa = replace_string(stringa,"/\s*FONT-FAMILY:[^;""]*;?/gi","",True)
    end if

    ' Remove Class attributes
    stringa = replace_string(stringa,"/<(\w[^>]*) class=([^ |>]*)([^>]*)/gi","<$1$3",True)

    ' Remove styles.
    if ( bRemoveStyles ) then
        stringa = replace_string(stringa,"<(\w[^>]*) style=""([^\""]*)""([^>]*)/gi","<$1$3",True)
        ' Remove empty styles.
        stringa = replace_string(stringa,"/\s*style=""\s*""/gi","<$1$3",True)
        stringa = replace_string(stringa,"/<SPAN\s*[^>]*>\s*&nbsp;\s*<\/SPAN>/gi","&nbsp;",True)
        stringa = replace_string(stringa,"/<SPAN\s*[^>]*><\/SPAN>/gi","",True)
        stringa = replace_string(stringa,"/<SPAN\s*[^>]*>\s*&nbsp;\s*<\/SPAN>/gi","<$1$3",True)

        ' Remove Lang attributes
        stringa = replace_string(stringa,"/<(\w[^>]*) lang=([^ |>]*)([^>]*)/gi","<$1$3",True)
        stringa = replace_string(stringa,"/<SPAN\s*>(.*?)<\/SPAN>/gi","$1",True)
        stringa = replace_string(stringa,"/<FONT\s*>(.*?)<\/FONT>/gi","$1",True)

        ' Remove XML elements and declarations     
        stringa = replace_string(stringa,"/<\\?\?xml[^>]*>/gi","",True)
        ' Remove Tags with XML namespace declarations: <o:p><\/o:p>
        stringa = replace_string(stringa,"/<\/?\w+:[^>]*>/gi","",True)
        ' Remove comments [SF BUG-1481861].
        stringa = replace_string(stringa,"/<\!--.*?-->/g","",True)
        stringa = replace_string(stringa,"/<(U|I|STRIKE)>&nbsp;<\/\1>/g","&nbsp;",True)
        stringa = replace_string(stringa,"/<H\d>\s*<\/H\d>/gi","",True)

        ' Remove "display:none" tags.
        stringa = replace_string(stringa,"/<(\w+)[^>]*\sstyle=""[^""]*DISPLAY\s?:\s?none(.*?)<\/\1>/ig","",True)
        ' Remove language tags
        stringa = replace_string(stringa,"/<(\w[^>]*) language=([^ |>]*)([^>]*)/gi","<$1$3",True)
        ' Remove onmouseover and onmouseout events (from MS Word comments effect)
        stringa = replace_string(stringa,"/<(\w[^>]*) onmouseover=""([^\""]*)""([^>]*)/gi","<$1$3",True)
        stringa = replace_string(stringa,"/<(\w[^>]*) onmouseout=""([^\""]*)""([^>]*)/gi","<$1$3",True)
    end if
    stringa = replace_string(stringa,"/<(\w[^>]*) onmouseout=""([^\""]*)""([^>]*)/gi","<$1$3",True)

    ' Remove empty tags (three times, just to be sure).
    ' This also removes any empty anchor

    stringa = replace_string(stringa,"/<([^\s>]+)(\s[^>]*)?>\s*<\/\1>/g","",True)
    stringa = replace_string(stringa,"/<([^\s>]+)(\s[^>]*)?>\s*<\/\1>/g","",True)
    stringa = replace_string(stringa,"/<([^\s>]+)(\s[^>]*)?>\s*<\/\1>/g","",True)
    CleanWord = stringa
end function

Articoli correlati

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

Per effettuare un redirect basta inserire nella pagina tra i due tag di apertura e chiusura head il seguente meta:

<head>
<META HTTP-EQUIV=Refresh CONTENT="5;URL=http://www.propriosito.it/">
</head>

Questo effettuerà un redirect dopo 5 secondi dall’apertura della pagina. Per farlo immediato basta usare invece il seguente meta:

<META HTTP-EQUIV=Refresh CONTENT="0;URL=http://www.propriosito.it/">

Invece ecco il codice di una semplice pagina 404 da implementare nel vostro dominio:

<html>
<head>
<title>- Nome sito - Page not found!</title>
<style type="text/css">
<!--
body_home {
 margin-left: 0px;
 margin-top: 0px;
 margin-right: 0px;
 margin-bottom: 0px;
 background-attachment:fixed
 background-color: #FFFFFF;
}
body {
 margin-left: 0px;
 margin-top: 0px;
 margin-right: 0px;
 margin-bottom: 0px;
}
.footerMenu {
 font-family: Verdana, Arial, Helvetica, sans-serif;
 font-size: 12px;
 font-weight: bold;
 color: #000000;
}
.mini {
 font-size: 6px;
 width: 695px;
}
-->
</style>
<META HTTP-EQUIV=Refresh CONTENT="5;URL=http://www.propriosito.it/">

</head>

<body><center>
Questa pagina verrà reindirizzata sulla Home Page entro 5 secondi.
<br />
Per accedere ora clicca <a href="http://www.propriosito.it/">qui</a>
</center>
</body>
</html>

Articoli correlati

• Servizio per caricare immagini su Internet
• Siti amici
• Scaricare un intero sito in formato pdf
• Scaricare ogni file multimediale da Myspace e non solo
• Programmare in ASP: Pulire stringhe con espressioni regolari

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

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

<%
function indirizzo()
indirizzo = "Il tuo indirizzo IP è : " &_
Request.ServerVariables("REMOTE_ADDR")
end function

response.write indirizzo()
%>

Articoli correlati

• Programmare in ASP: Bloccare indirizzi IP e generare errore 403
• Programmare in Php: Rintracciare e mostrare informazioni visitatori
• Programmare in Javascript: Verificare validatà indirizzo email form
• Programmare in ASP: Vedere se un utente è ancora connesso
• Programmare in ASP: Scrivere file XML

La funzione ASP per verificare se un utente è ancora connesso è:

Response.IsClientConnected

e restituisce true se l’utente è ancora connesso, false in caso contrario.

Ecco un esempio di implementazione in una query al proprio database con interruzione delle operazioni in caso di disconnessione da parte dell’utente:

<%
set connDB=server.createobject("adodb.connection")
conn.Open "mio_database", "", ""
mySQL="select * from mia_tabella"
Set ricerca = Server.CreateObject("ADODB.Recordset")
ricerca.Open mySQL, conn, adOpenStatic, adLockPessimistic
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Do until (ricerca.eof or Response.IsClientConnected=false)
Response.Write ricerca.Fields("campo_database") %> <br>
<% rscerca.MoveNext
Loop
ricerca.Close
conn.Close
%>
</body>
</html>

Articoli correlati

• Programmare in ASP: Trovare e visualizzare indirizzo IP visitatori
• Programmare in ASP: Scrivere file XML
• Programmare in ASP: Paginazione
• Programmare in ASP: Evitare memorizzazione cache di una pagina
• Programmare in ASP: Bloccare indirizzi IP e generare errore 403

<%
response.expires = -1500
response.AddHeader "PRAGMA", "NO-CACHE"
response.CacheControl = "PRIVATE" 

'Codice della pagina ASP o HTML
%>

Articoli correlati

• Programmare in ASP: Vedere se un utente è ancora connesso
• Programmare in ASP: Trovare e visualizzare indirizzo IP visitatori
• Programmare in ASP: Scrivere file XML
• Programmare in ASP: Paginazione
• Programmare in ASP: Bloccare indirizzi IP e generare errore 403