 Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
Introduzione
Un piccolo e semplice esempio di una funzione per il controllo della validità sintattica di un indirizzo di e-mail:
Codice per lo script
<%
Option Explicit
Response.ExpiresAbsolute=Now()
Dim bChkSintaxEmail
Function chkSintaxEmail(sEmail)
Dim lPosAt
Dim lLenName
Dim sDomain
Dim lLenDomain
Dim lPosDotInDomain
Dim i
'Reperisco la posizione della "@"
lPosAt = InStr(sEmail, "@")
'Reperisco la lunghezza del testo che precede la "@"
lLenName = lPosAt - 1
'Reperisco lunghezza del testo dopo la "@"
lLenDomain = Len(sEmail) - lPosAt
'Reperisco il testo dopo la "@"
sDomain = Right(sEmail, lLenDomain)
'Reperisco se e' presente almeno un "." nel testo dopo la "@"
lPosDotInDomain = InStrRev(sDomain, ".")
'Controlli sull'email specificata:
' 1) Esiste il carattere "@".
' 2) Il nome utente e' almeno di 3 caratteri.
' 3) Il nome del dominio e' almeno di 3 caratteri.
' 4) C'e' almeno un "." nel nome di dominio.
If lPosAt <> 0 And _
lLenName >= 3 And _
lLenDomain >= 3 And _
lPosDotInDomain <> 0 Then
bChkSintaxEmail = True
else
bChkSintaxEmail = False
End If
End Function
%>
<HTML>
<BODY>
<%
chkSintaxEmail("stracca@stracca.net")
If bChkSintaxEmail = True Then
Response.Write("E-Mail valida!")
Else
Response.Write("E-Mail NON valida!")
End If
%>
</BODY>
</HTML>
Conclusioni
Per vedere in azione lo script qui sopra riportato, puoi anche scaricare l'esempio qui
|
Shopping
