Validare un indirizzo email con VBScript

Siti dinamici con ASP Impara a creare siti dinamici professionali con ASP

L'utilizzo delle espressioni regolari è una pratica consigliata in tutti i linguaggi di programmazione. L'esempio del loro utilizzo che prima salta alla mente nell'ambito di un sito Web è il controllo di un indirizzo email nella sua forma corretta.

VBScript utilizza l'oggetto RegExp a cui associare un Pattern che rappresenta il codice dell'espressione, ed il metodo Test che restituisce un valore booleano che specifica che l'operazione è andata o meno a buon fine.

Il codice che segue valuta il valore contenuto nella variabile email, in questo caso corretta, quindi restituirà un messaggio di successo:

Dim email
email = "test@server.ext"

Dim re
Set re = New RegExp
re.Pattern = "^[w-.]*[w.]@[w.]*[w-.]+[w-]+[w].+[w]+[w $]"

If re.Test(email) = False Then
    MsgBox "Inserisci un indirizzo email", vbCritical, "ERRORE"
Else
    MsgBox "Indirizzo email corretto", vbOkOnly, "ERRORE"
End If