tjek for om indholdet af en streng er gyldig..

glemte at skrive at tjeknavn skal enten blive false eller true

Du kan lave det med regexpression:


Function CheckInput(inputstr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^[a-zA-Z0-9\*\.\-]+$"
regEx.IgnoreCase = True
CheckInput = regEx.Test(inputstr)
End Function


navn = "en6stegn4med.7ka*rak-ter"
if CheckInput(navn) = true then
  Response.write "OK"
else
  Response.write "Fejl i streng"
end if

Microsoft VBScript compilation error '800a03ea'

Syntax error

/dns.asp, line 6

Set regEx = New RegExp
------------^

ChilliASP

så understykker serveren ikke RegExp. Så må du lave en function som denne hvor alle de gyldige tegn er med og så løber man input strengen igennem om det er ygyldige tegn, den tjekker både på store og små bogstaver.



Function CheckInput(inputstr)
validChar = "*.-abcdefghijklmnopqrstuvwxyz0123456789"
for i = 1 to len(inputstr)
  if inStr(1, validChar, Mid(inputstr,i,1),1) = 0 then
    CheckInput = false
    exit function
  end if
next
CheckInput = true
end function


navn = "eE6stegn4med.7ka*rak-ter"
if CheckInput(navn) = true then
  Response.write "OK"
else
  Response.write "Fejl i streng"
end if

takker...