Madness.nl | Scripts - E-mail controle functie

Hoofdmenu

•  Home
•  ASP Tips
•  Artikelen
•  ASP Lessen
•  Scripts
•  Opleidingen
•  Resources
•  Madness Forum
•  Nieuws
•  Adverteren?

Members

Inloggen
Registreer je nu!
Wachtwoord vergeten?

Laatste reacties

26-11 ASP en formulieren
09-06 ASP en databases
14-03 SQL de basis
28-02 Formulier > E-mail
07-08 Nieuwe versie Madne...

Madness.nl Forum

08:47 application
08:46 Domein Hosting
08:45 USB webserver
08:45 Eigen Scripts
08:44 Database paging
10:21 Even voorstellen?
10:18 Re: It agree, it is..
10:16 ASp.NET MVC
20:42 GPS-applicatie VB v..
10:10 webservice

E-mail controle functie

Terug naar scripts

Auteur: Ramon
Geplaatst op: 19-8-2003 18:04:39
Laatste update: 19-8-2003 21:55:27
Aantal keer bekeken: 29033
Download script (zip file)

E-mail controle functie

Omschrijving: Met deze functie kan een e-mailadres gecontroleerd worden. De functie geeft aan met True of False of het e-mailadres echt is. Het is ook mogelijk om een foutmelding te laten zien ipv alleen goed of fout.

Extra informatie:
Voorbeeld:

If isEmail("piet@mailserver.com") = True then
response.write "Geldig e-mailadres!"
End if

Script:

Pagina: emailcontrole.asp

<%
function IsEmail(strEmail)
    Dim strTemp
    strEmail = CStr(strEmail)
    if Not InStr(strEmail, "@") > 0 Then
    IsEmail = False
    Exit function
    End if
    if Not InStr(strEmail, ".") > 0 Then
    IsEmail = False
    Exit function
    End if
    if Not Len(Left(strEmail, Instr(strEmail, "@") - 1)) => 3 Then
    IsEmail = False
    Exit function
    End if
    strTemp = Mid(strEmail, InStr(strEmail, "@") + 1, Len(strEmail))
    if Not Len(Left(strTemp, InStr(strTemp, ".") - 1)) => 3 Then
    IsEmail = False
    Exit function
    End if
    if Not Len(Right(strTemp, Len(strTemp) - Instr(strTemp, "."))) => 2 Then
    IsEmail = False
    Exit function
    End if
    IsEmail = True
End function
%>

Reacties

Reacties: E-mail controle functie (Aantal reacties: 5 )
» Nieuwe reactie	View Mode : \| \|

Door: __madmax__

Feb 3, 12:28

misschien een aardige variant...
[code]
Function chkEmail(sEmail)
' usage -> RegExpTest(request("emailadresveld") = true or false
chkEmail = false
Dim regEx, retVal
Set regEx = New RegExp
' Create regular expression:
regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"
' Set pattern:
regEx.IgnoreCase = true
' Set case sensitivity.
retVal = regEx.Test(sEmail)
' Execute the search test.
If not retVal Then
exit function
End If
chkEmail = true
End Function
[/code]

(Reply...)

Door: BlackBurn

Jan 31, 17:36

Thanks Ramon, kwam ik toevallig tegen, hoeveel ik zelf niet zo'n functie te schrijven.

Net als bij isAlpha eerst zelf scrhijven en daarna bij 4guys tegenkomen

(Reply...)

Door: Ramon (Admin)

Jan 31, 19:02

Vervelend is dat he

(Reply...)

Door: aspnoob

Sep 3, 08:25

heuj weer zo'n wrede n00b vraag :)

Wat zijn de variabelen in dit script nou?
heb je strEmail uit het (bv) invoerscript gehaald of zijn het standaard variabelen??

groetuh uut zeeland

(Reply...)

Door: Ramon (Admin)

Sep 4, 21:06

strEmail is de variabele die gebruikt wordt in de functie. Deze geef je dus mee als je de functie aanroept.

dus met IsEmail("test@test.com") komt test@test.com in de variable strEmail te staan.

(Reply...)

Scripts

Overzicht
Script insturen

Zoeken

Zoekterm(en):