Just nu i M3-nätverket
Jump to content

kolla e-mail


johan_gr

Recommended Posts

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

 

 

 

Link to comment
Share on other sites

Jimmie Pettersson

Du anropar funktionen såhär:

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

 

/Jimmie

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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?

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...