Scopri lo spazio residuo del tuo server

23 luglio 2009 - Fonte: http://www.programmando.net
Vi piacerebbe scoprire quanto spazio rimane sul HD del vostro server? Utilizzando l’oggetto File System è possibile. Ecco il codice di esempio:   @LANGUAGE = VBScript%   ' Dichiaro le variabili che mi servono nello script Dim partizione, fso   partizione = "C" ' Ricavo la partizione che mi interessa   ' Creo l'oggetto File System Set fso = Server.CreateObject("Scripting.FileSystemObject")   ' Mostro un messaggio che [...]...

Leggi il seguito »

Nessun commento »

Inserito in , , ,

Nome mittente mail attraverso Asp

23 luglio 2009 - Fonte: http://www.programmando.net


<% Dim nominativo, mittente, destinatario, oggetto, messaggio nominativo = "Nome Mittente" mittente = "indirizzo@mittente.ext" destinatario = "indirizzo@destinatario.ext" oggetto = "Oggetto della mail..." messaggio = "Corpo della mail..." Dim objemail Set objemail [...]...

Leggi il seguito »

Nessun commento »

Inserito in , , ,

ASP: Funzione per ottenere il nome del giorno

17 luglio 2009 - Fonte: http://www.programmando.net
    Dim VarDate VarDate = Date()   'Nome del giorno odierno (con numero/mese/anno) Response.Write("Oggi è WeekDayName(WeekDay(VarDate))VarDate)   'Forma abbreviata del nome del giorno Response.Write("Oggi è WeekDayName(WeekDay(VarDate), true) VarDate) % ...

Leggi il seguito »

Nessun commento »

Inserito in , , , ,

Asp: Ricostruzione frameset

8 luglio 2009 - Fonte: http://www.programmando.net


% ' Creo una variabile dove inserisco la URL esatta ' della pagina HTML che continene il frameset Dim MainFrm MainFrm = "http://www.sito.com/main_frm.htm"   ' Verifico la pagina chiamante (referrer) ' se questà è vuota oppure è diversa da MainFrm ' effettuo un redirect al frameset If (Request.ServerVariables("HTTP_REFERER") = "") Or _ (Left(Request.ServerVariables("HTTP_REFERER"),42)...

Leggi il seguito »

Nessun commento »

Inserito in , , ,

ASP: eliminare problema apici

8 luglio 2009 - Fonte: http://www.programmando.net
L’inserimento dell’apice nel db può causare infatti diversi problemi tra cui ad esempio il tipico errore 500 (errore interno del server). Per evitare questo piccolo (ma fastidioso e talvolta pericoloso) inconveniente basta utilizzare una piccola funzione come questa: % function pulisci(stringa) pulisci = replace(stringa, "'", "''") end function % ...

Leggi il seguito »

Nessun commento »

Inserito in , , ,

Asp: Creazione grafico a barre

8 luglio 2009 - Fonte: http://www.programmando.net
  % ' Specifichiamo 4 variabili numeriche Dim Val_A, Val_B, Val_C, Val_D Val_A = 10 Val_B = 30 Val_C = 5 Val_D = 15   ' Troviamo il numero più grande grazie ad una serie di confronti... Dim MaxNum MaxNum = 0 if Val_A > MaxNum then MaxNum = Val_A if Val_B > MaxNum then MaxNum = Val_B if Val_C > MaxNum then MaxNum = Val_C if Val_D > MaxNum [...]...

Leggi il seguito »

Nessun commento »

Inserito in , , ,

ASP: Conteggio occorrenze di pattern

6 luglio 2009 - Fonte: http://www.programmando.net


Breve tutorial che vi permette di sfruttare la funzione regular expressions, con questo script sarete in grado di conoscere quante occorrenze sono presenti all’interno di una stringa:   Function conta(a,b) ' Creo un nuovo oggetto Espressione Regolare Dim objRegExpr Set objRegExpr = New RegExp   ' Definisco il pattern da usare (valore "b" passato [...]...

Leggi il seguito »

Nessun commento »

Inserito in , , , ,

Asp: Inserimento saluto agli utenti

6 luglio 2009 - Fonte: http://www.programmando.net


Oggi vi mostro una semplice applicazione che permette di inserire un saluto diverso in base all’orario in cui ci si collega al sito. Il codice è il seguente, copiatelo in una pagina con estensione .asp per ottenere il risultato. % ora = Hour(Now) If ora = 5 AND ora 12 Then Response.Write "Buon giorno" ElseIf ora = 12 [...]...

Leggi il seguito »

Nessun commento »

Inserito in , , , ,

ASP: Verificare Indirizzo mail

6 luglio 2009 - Fonte: http://www.programmando.net


Vi serve una funzione che permette di verificare se un indirizzo email inserito all’interno di un form sia corretto? Esistono diversi metodi, lo script seguente recupera la mail e analizza tutti i parametri: % Function IsMail(sEmail) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[a-z._-]+\@[a-z._-]+\.[a-z]{2,4}$" objRegExp.IgnoreCase = True IsMail = objRegExp.Test(sEmail) End...

Leggi il seguito »

Nessun commento »

Inserito in , , , ,