TechTown.iT - SourceCode

Ottenere i nomi degli utenti del computer

MItaly - TechTown.iT - info@techtown.it — Sat, 3 Feb 2007 00:00:00 GMT

Per ottenere la lista degli account utente registrati sul computer è sufficiente inserire in un modulo il codice seguente

'GetUserNames.bas - code and remarks by Matteo Italia - last edit 03/02/2006Option ExplicitPrivate Declare Function NetUserEnum Lib "netapi32" (ByVal ...

Verificare se un numero � un intero

Acid - TechTown.iT - info@techtown.it — Tue, 30 May 2006 00:00:00 GMT

Questa funzione mostra come sia possibile effettuare un controllo su un dato per vedere se c'è un numero intero positivo o negativo valido.

<%Function CheckInt(intNumber)'dichiaro le variabiliDim objRegExp , blnValid'creo un'instanza di regexpSet objRegExp = New RegExp'questa è ...

Come usare l'Oggetto Dictionary - Esempio

Acid - TechTown.iT - info@techtown.it — Thu, 2 Mar 2006 00:00:00 GMT

Questo esempio mostra come utilizzare l'oggetto Dictionary. Nell'esempio viene mostrato come potete trovare le informazioni fornendo la parola chiave necessaria. In questo esempio abbiamo inserito tre siti e visualizzeremo le informazioni relative a secondo sito.

<%Dim objDict , ...

Un contatore di accessi con file di testo

Acid - TechTown.iT - info@techtown.it — Sat, 18 Feb 2006 00:00:00 GMT

Realizziamo una delle utility Web più diffuse in assoluto, un contatore di accessi testuale in Asp con l'utilizzo di un file di testo in cui salvare il numero di accessi.Creiamo per prima cosa il file counter.txt e scriviamo al suo interno il numero da cui vogliamo che inizi il conteggio, ad ...

Server.Transfer Vs Response.Redirect

Acid - TechTown.iT - info@techtown.it — Sat, 21 Jan 2006 00:00:00 GMT

Nonostante la maggior parte delle persone usi Response.Redirect per mandare l’utente ad un’altra pagina, alcuni sembrano preferire Server.Transfer. Così, qual è la differenza?Response.Redirect manda semplicemente un messaggio al browser dicendogli di spostarsi ad ...

Ottenere la lunghezza di una stringa

Acid - TechTown.iT - info@techtown.it — Thu, 19 Jan 2006 00:00:00 GMT

Molto spesso è utile conoscere la lunghezza di una stringa , ecco un semplice esempio su come usare usare la funzione LEN per ottenere la lunghezza di una stringa espressa come numero caratteri o il numero di byte necessari alla memorizzazione della variabile.

<%Dim strLengthstrLength ...

JavaScript/Java abilitati ??

Acid - TechTown.iT - info@techtown.it — Fri, 6 Jan 2006 00:00:00 GMT

Questo piccolo script è molto utile per verificare se il browser in uso supporta i javascript o se cmq sono stati disabilitati.Questo è il codice...

<%'dichiaro le variabiliDim objBrowser , blnJavaScript'creo un'instanza ... Browser Capabilities objectSet objBrowser = ...

Mostrare la data e l'orario sul tuo sito

Acid - TechTown.iT - info@techtown.it — Wed, 4 Jan 2006 00:00:00 GMT

Sfruttando la funzione Date() possiamo mostrare sul nostro sito la data e l'orario in modo molto semplice....ecco un semplice esempio ..

'mostro la data Response.Write Date()'mando a capoResponse.Write "

"'mostro la data e l'orarioResponse.Write Now()

Note:Puoi ...

Mostra le informazioni del browser

Acid - TechTown.iT - info@techtown.it — Wed, 4 Jan 2006 00:00:00 GMT

Con questo semplice script potete mostrare le caratteristiche del browser in uso...

<%Set browser=Server.CreateObject("MSWC.BrowserType")%>Client OS <%=browser.platform%>
Web Browser <%=browser.browser%>
Browser version ...

Mailto anti-spam

Acid - TechTown.iT - info@techtown.it — Fri, 16 Dec 2005 00:00:00 GMT

Questo piccolo esempio mostra una possibile soluzione per evitare di pubblicare direttamente il proprio indirizzo email sulle pagine web e proteggersi dai programmi (una sorta di spider) che analizzano le pagine web pubblicate in rete alla ricerca di indirizzi e-mail. Questo articolo non vuole ...

Convertire la prima lettera di una stringa in maiuscolo

Acid - TechTown.iT - info@techtown.it — Wed, 17 Aug 2005 00:00:00 GMT

Con questa semplice funzione tutte le prime lettere di una stringa saranno convertire in maiuscolo.

Function UCfirst(myString)   sArray = Split(myString, " ")   For Each sWord in sArray      UCfirst = UCfirst & UCase(Left(sWord, 1)) & LCase(Mid(sWord, 2)) & " "   ...

ASP and RFC-822 Date / Time

Acid - TechTown.iT - info@techtown.it — Fri, 12 Aug 2005 00:00:00 GMT

Have you ever wanted to format a date in your ASP pages (using VBScript) to conform with RFC-822? These are required for various things but in particular they are required format for dates in RSS feeds. While I was producing some RSS feeds I couldn't find any functions that converted ASP dates to ...