Form check i asp

function isAlfanumeric(val_string)
validchars = \"AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZzÆæØøÅå1234567890\"
for i = 1 to len(val_string)
  if instr(1, validchars, val_string(i)) = 0 then
    isAlfanumeric = False
    exit function
  end if
next
isAlfanumeric = True
end function


taget fra http://www.eksperten.dk/spm/51830

Der må være en mere enkelt måde at gøre dette på

har har et formfelt der skal tjekkes for ugyldtige tegn og for manglende @

Et andet forfelt der skal tjekkes for at ikke indeholde bogtaver

Et 3. felt der skal tjekkes for at ikke indeholde tal

FX. denne skal tjekkes for ugyldige og tegn og manglende email.
Det må kunne laves så jeg sætter nogle parametre i deet script

if request.form(\"s2_Email\") = \"\" then
        fail=fail & \"Du skal indtaste gyldig email<br>\"
    end if

If not InStr(\"\" & request.form(\"s2_Email\") & \"\", \"@\") > 0 Then
sådan kan du f.eks. tjekke om der er et @ i strengen :)

bjarke-b har nu lidt ret i det han skriver, og hans funktion kan sagtens bruges.


For at checke felter for om det er en integer, skal du bruge IsNumeric() - hvis det er en integer, så vil den give værdien true, og ellers false. F.eks. du har skrevet et postnummer i et felt kaldet \"postnr\", så kan du bruge følgende script:

if IsNumeric(Request.Form(\"postnr\")) = false then
  blabla
end if

Der er flere ting, som en email skal overholde, f.eks. den skal indeholde 6 tegn, hvor af et skal være @. Til dette kan du bruge følgende script:

function CheckEmail(email)
  error = false

  if len(email) < 6 then
    error = true
  end if

  if InStr(1, email, \"@\") > 0 then
    error = true
  end if

  validchars = Split(\",a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,1,2,3,4,5,6,7,8,9,0,@,\", \",\")

  for i = 1 to UBound(validchars)-1
    if InStr(1, email, validchars(i), 1) > 0 then
      error = true
      Exit For
    end if
  next

  CheckMail = error
end function

hvis den returnere true, så er email\'en ugyldig, og false, så er den gyldig.

så kan du selv lave lidt om på denne funktion, for at lave en til at checke om der ikke er tal i en streng.

hov der skulle lige en not ind i en af linjerne...

if not InStr(1, email, \"@\") > 0 then

eller du kan også skrive:

if InStr(1, email, \"@\") = 0 then

håber det hjælper dig :)