Validità indirizzo email
Semplice script per fare il controllo della validità di un indirizzo email.
Questo script ovviamente non impedisce all'utente di inserire un indirizzo email fasullo, ma almeno si obbliga l'utente a inserire un indirizzo contenente una "@" e un ".".
<%
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>scripts, asp, script, visual basic, freeware, lamborghini, immagini, cap, macchine sportive, meteo, cerca lavoro, incidenti, calcio, radio, van basten, formula1, shumacher, php, bugatti, natura
