ASP//e-posta adresi teftişi

[free!]

<%

Private Function EPK ( posta )

DIM bolum, krktr, basari, r

bolum = split(posta,"@")

krktr = array("ğ","ü","ş","ö","ç","ı","Ğ","Ş","İ","Ç","Ü","Ö" &_
",","/","*","\","(",")","%","+","^","#","!","'","[","]" & _
"{","}","?","=","&","$",":","<",">","|","`","@",";","~","‘" &_
"’","¡","¢","£","¤","¥","¦","§","¨","©","ª","«","»","¬" &_
"®","¯","°","±","²","³","´","µ","¶","·","¸","¹","º","¼","½" &_
"¾","¿","À","Á","Â","Ã","Ä","Å","Æ","È","É","Ê","Ë","Ì","Í" &_
"Î","Ï","Ñ","Ò","Ó","Ô","Õ","×","Ø","Ù","Ú","Û","İ" &_
"ß","à","á","â","ã","ä","å","æ","è","é","ê","ë","ì","í" &_
"î","ï","ñ","ò","ó","ô","õ","÷","ø","ù","ú","û","ı","ÿ")

for r = 0 to ubound(krktr)

if instr(posta,"@") = 0 then
basari = false

elseif len(bolum(0)) < 3 then
basari = false

elseif len(bolum(1)) < 5 then
basari = false

elseif instr(bolum(1),".") = 0 then
basari = false

elseif instr(bolum(0),trim(cstr(krktr(r)))) <> 0 then
basari = false

exit for

elseif instr(bolum(1),trim(cstr(krktr(r)))) <> 0 then
basari = false
exit for

else
basari = true
end if

next

EPK = basari

End Function

%>

<%=EPK("[email protected]")%>