Controllo Mail sia ASP che JS

[minnie71]

Ciao,
ho trovato un modo per controllare l'indirizzo mail sia in ASP che in JS; volevo condividerlo con voi visto che mi aiutate sempre ed io non ricambio quasi mai perchè sono ancora una principiante.

<%
Dim sNuovo,sMail,flag
sNuovo=Request.QueryString ("nuovo")
sMail=Request.Form ("mail")
flag=0
'Response.Write(sNuovo)
if sNuovo = 2 then
if sMail <> "" then
'Controllo inizialmente la presenza della @
if instr(1,cstr(sMail),"@")>0 then
'Estraggo la parte a sinistra e quella a destra della @
dim parteSinistra, parteDestra
parteSinistra=""
parteSinistra=Left(Cstr(sMail),instr(1,cstr(sMail) ,"@")-1)
parteDestra=""
parteDestra=Right(Cstr(sMail),Len(Cstr(sMail))-instr(1,cstr(sMail),"@"))
'Effettuo i controlli su queste due parti
if (cstr(parteSinistra)<>"") and (cstr(parteDestra)<>"") then
'Controllo la presenza del . nella parte destra
if instr(1,cstr(parteDestra),".")<>0 then
'Controllo la poszione del .
if cint(instr(1,cstr(Request("mail")),"."))<>cint(ins tr(1,cstr(Request("mail")),"@"))+1 then
'Estraggo il testo alla destra del .
dim parteDestraPunto
parteDestraPunto=""
parteDestraPunto=Right(Cstr(parteDestra),Len(Cstr( parteDestra))-instr(1,cstr(parteDestra),"."))
'Controllo cosa mi rappresenta questo testo
if (parteDestraPunto<>"co.uk") and (parteDestraPunto<>"us") and (parteDestraPunto<>"net") and (parteDestraPunto<>"it") and (parteDestraPunto<>"com") and (parteDestraPunto<>"org") and (parteDestraPunto<>"eu") and (parteDestraPunto<>"biz") and (parteDestraPunto<>"info") Then
flag=7
end if
else
flag=6
end if
else
flag=5
end if
else
flag=4
end if
else
flag=3
end if
'Dico se è ok o meno
if flag=0 then
Response.Write ("OK")
else
Response.Write ("KO")
end if
end if
else%>
<form action="AAA_BannerORIG.asp?nuovo=2" method="post" id="form_mail" name="form_mail">
<input type=text name="mail">
<input ONCLICK="Javascript: VerificaCampi(form_mail)" type=submit name=vai value="prova mail">
</form>
<%end if%>
<script LANGUAGE="Javascript">
function VerificaCampi(form) {
var vMail
var doSubmit = true;
vMail = form.mail.value;
if (vMail==""){
doSubmit = false;
form.mail.style.background = "#FFE790";
form.mail.style.color = "#000000";
}
else {
var filter = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$/;
if (filter.test(vMail)) {
alert('YES! Correct email address');
}
else {
doSubmit = false;
alert('NO! Incorrect email address');
}
}
if (doSubmit) {
form.submit();
}
else {
window.alert("Campi Obbligatori.");
}
}
</script>

Ciao

[gensole]

La parte asp che hai scritto mi sembra un pò incasinata...non perchè non funzioni, ma solo un pò macchinosa.....puoi sostituirla con questa....io la uso da tempo e mi son sempre trovato bene......cmq grazie per il contributo fa sempre comodo per tutti gli utenti....

Function RegExpTest(patrn, strng)
  Dim regEx 
  Set regEx = New RegExp 
  regEx.Pattern = patrn  
  regEx.IgnoreCase = True 
  RegExpTest = regEx.Test(strng) 'Ritorna TRUE o FALSE
End Function

'CHIAMA ALLA FUNZIONE
Valida = RegExpTest("^[\w\-\.]*[\w\.]\@[\w\.]*[\w\-\.]+[\w\-]+[\w]\.+[\w]+[\w 
$]", "pippo@tin.it")
'FINE CHIAMATA

response.write valida