validering af e-mailadresser

Det kan laves i evt. java script:
http://www.ljweb.dk/usefulscripts/  (nederst verifyemail.js)

Hvis du vil lave det i ASP kunne det være sådan her:


Function isEmail(str)
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Pattern = "^\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
  isEmail = RegEx.Test(str)
End Function


Og den bruges på denne måde:

<% 
str = "xxx@xxx.dk" 
if isEmail(str) then 
  'Ok strengen str indeholder kun en email adr
else 
  'Ikke en email adresse
end if 
%>

function emailcheck(chkMail)

'vi regner med at den er god nok
emailcheck=true

'check om abe-halen er der
if instr(chkMail,"@")=0 then
  'fejl
  emailcheck=false
end if

'en email adresse må antages at have en hvis længde
'fx. a@b.dk så minimum 6 tegn
if len(chkMail) < 6 then
  'så er det nok ikke en email
  emailcheck=false
end if

'der skal være mindst et punktum
if instr(chkMail,".")=0 then
  'mangler domæne
  emailcheck=false
end if

end function

Du kan også kigge på svaret i dette spørgsmål (jeg syntes det er overkill):
http://www.eksperten.dk/spm/404458

vbcoder -> Hvad siger du til:

function emailcheck(chkMail)
  if instr(chkMail,"@") and len(chkMail) > 5 and instr(chkMail,".") then emailcheck = true
end function

?

Jeg vil dog til enhver tid bruge RegExp til den slags. Evt. kan du udvide eagleeyes eksempel til også at kontrollere endelsen (.dk, .com osv.).

den spiller - mit bud var ikke meget gennemtænkt men kun min umiddelbare kontrol

man kunne måske indsætte

function emailcheck(chkMail)
  chkMail=false
  if instr(chkMail,"@") and len(chkMail) > 5 and instr(chkMail,".") then emailcheck = true
end function

Det er ikke nødvendigt :)

næ det ved jeg godt men det gør koden mere gennemsigtig

jeg ved godt unassigned chkMail er lig med false men hvis en anden skulle se koden og vide det ? og det koster ikke ekstra ressourcer.