kolla e-mail

[johan_gr]

Hur kollar man om det är en vettig e-mail man matat in i ett formulär..

/JOhan

 

[Jimmie Pettersson]

Detta använder jag på min sida(tror att jag fick det från http://www.pellesoft.nu)

 

<% 
Function IsValidEmail(Email) 
ValidFlag = False 
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then 
atCount = 0 
SpecialFlag = False 
For atLoop = 1 To Len(Email) 
  atChr = Mid(Email, atLoop, 1) 
  If atChr = "@" Then atCount = atCount + 1 
  If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True 
  If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True 
  If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True 
  If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True 
Next 

If (atCount = 1) And (SpecialFlag = False) Then 
  BadFlag = False 
  tAry1 = Split(Email, "@") 
  UserName = tAry1(0) 
  DomainName = tAry1(1) 
  If (UserName = "") Or (DomainName = "") Then BadFlag = True 
  If Mid(DomainName, 1, 1) = "." then BadFlag = True 
  If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True 
  ValidFlag = True 
  End If 
End If 

If BadFlag = True Then ValidFlag = False 
IsValidEmail = ValidFlag 
End Function 
%> 

 

MVH Jimmie Pettersson

 

[johan_gr]

hmm..ser ju bra ut..men hur fungerar funktionen..?

hur kollar jag om det var en "valid" email..? typ vart jag ska köra en

 

session("error")="Ej Valid email"

response.redirect ("skapa.asp")

 

/JOhan

 

[johan_gr]

Kör denna istället...funkar hyffsat!

 

<%If (Email = "" Or InStr(1, Email, "@") = 0 Or InStr(1, Email, ".") = 0) Then

session("error")="Ogiltig email-adress. Försök igen."

/Johan

 

[HeavyMental]

jag kör ungefär som johan_gr bara att jag kollar antal tecken också..

 

a@a.a funkar alltså inte..

tror jag satte minst 6 tecken, mindre tror jag inte det finns i en epost

 

 

 

 

[Jimmie Pettersson]

Du anropar funktionen såhär:

isvalidemail(emailadressen) sedan returnerar den true eller false...

 

/Jimmie

 

[Magnus Gladh]

Det finns ett utmärkt verktyg för stänghantering i ASP och det är RegExp.

 

Det är ASSVÅRT att få till sina mönster (pattern) rätt, men när de väl stämmer så har du ett kraftfullt verktyg för att manipulera och kolla strängar.

 

Här är en funktion som jag använder för att kolla emailadresser, den är dock inte 100% eftersom den inte tillåter att man skriver in ett ip-nummer istället för en domän. Men hur många gör det egentligen.

 

set oReg = new RegExp
oReg.pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$"
bResult = oReg.Test(sEmail)
if not bResult then
	set oReg = nothing
	response.write "Nope ingen gilltig emailadress"
end if
set oReg = nothing

 

- Magnus

-----------------------------------------------------

ju mer jag lär mig ju mer inser jag så lite jag kan

 

[MD]

Nja, gör den verkligen det? Det ser ut som om du kräver att de tecken som kommer efter sista punkten måste vara bokstäver, så ett ip-nummer skulle inte godkännas. Eller är det jag som tänker fel?

 

[Magnus Gladh]

eftersom den inte tillåter att man skriver in ett ip-nummer

 

Nope precis som jag skrev, så tillåter den INTE att man skriver in ett ip-nummer, så du har rätt men ändå fel

 

- Magnus

-----------------------------------------------------

ju mer jag lär mig ju mer inser jag så lite jag kan