Valid email tjek i en include.fil

Anbefales:

http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=8&id=233&tech_id=1

Wups, det var et svar.

Bruger den selv og er temmelig enkelt at sætte op.

Har lige siddet og kodet lidt du kan smide den her function i en fil og include den på den side hvor der skal tjekkes.

så skal du bare skrive
validemail(strVar)
omkring den variable der skal tjekkes og den vil returnere TRUE eller FALSE

<script language="VBScript" runat="Server">
Function validemail(strTekst)
strReturn = "FALSE"
  if InStr(1, strTekst, "@") <> 0 then
  strLen = Len(strTekst)
  strTemp = Instr(1,strTekst, "@")
  if Left(strTekst,1) <> "@" and Right(strTekst,1) <> "@" then
    strTemp = strTemp - 1
    strNavn = Left(strTekst, strTemp)
    strTemp = strTemp + 1
    strTemp = strLen - strTemp
    strDomain = Right(strTekst, strTemp)
    strLen = Len(strNavn)
    if strLen > 1 then
    strLen = Len(strDomain)
    if strLen > 3 then
      strTest = InStr(1,strDomain, ".")
      if strTest > 0 then
      strTest = strTest - 1
      strTest = Left(strDomain, strTest)
      strLen = Len(strTest)
      if strLen <> 0 then
        strLen = strTemp - strLen
        if strLen >= 0 then
        strReturn = "TRUE"
        end if
      end if
      end if
    end if
    end if
  end if
  end if
validemail = strReturn
End Function
</script>

det skulle nu nok kunne lade sig goere at lave noget med reg.exp som vil goere det en del nemmer. skal lige hente min laptop saa finder jeg lige et script

Med Reg.exp kan man gøre sådan:

<%
Function valEmail(ByVal sInput)
    'returns true if string is a valid email

    Dim oRegexp, sPattern, fIgnoreCase

    fIgnoreCase = False
    sPattern = "^[\w-\.]{1,}\@([\w-]{1,}\.){1,}[\w]{2,3}$"

    Set oRegExp = New RegExp
    oRegExp.Pattern = sPattern
    oRegExp.IgnoreCase = fIgnoreCase
    valEmail = oRegExp.Test(Trim(sInput))

    Set oRegExp = Nothing
End Function
%>

Men reg.exp er ikke en del af de ændre versioner af ASP (kun fra ASP3)

Så tjekker du det ved at skrive følgende et sted i din asp-kode:

If valEmail("emailen") = True then
Response.Write "Det er en email!"
Else
Response.Write "Det er ikke en email!"
End if

niceday > Dit script vil lave en lille fejl. Hvis du har et domaene med et surfix der hedder .info eller .name saa vil det give problemer

eh, hvilket af dem ?

dit reg exp, der bliver heller ikke taget hoejde for at det er muligt at have ae oe og aa i sit domaene navn. jeg ved godt at det er meget nyt, men hvis du kan skrive det ind i saa er det jo taet paa at vaere perfekt :o)

Skal jeg bare include den i den side hvor jeg har formularen?

Tak for svar