|
|
Controllo validita' di un'email |
|
Un piccolo e semplice esempio di una funzione per il controllo della validità sintattica di un indirizzo di e-mail:
<%
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("nome@provider.it")
If bChkSintaxEmail = True Then
Response.Write("E-Mail valida!")
Else
Response.Write("E-Mail NON valida!")
End If
%>
</BODY></HTML>
|
A cura di Stefano
Stracuzzi
|
|
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti