Validering af variabel eller input

Et eksempel som bruger regular expressen:


Function isIPadr(ByVal str)
  if isNull(str) then Exit Function
  dim ReqEx
  Set RegEx = New RegExp
  d = "([0-9]?[0-9]|[0-1][0-9][0-9]|[2]([0-4][0-9]|[5][0-5]))"
  regEx.Pattern = "^" & d & "\." & d & "\." & d & "\." & d & "$"
  isIPadr = RegEx.Test(str)
End Function




Funktionen bruge på denne måde:


str = "0.10.100.255"
if isIPadr(str) then
  Response.Write "IP adr - OK"
else
  Response.Write "IP adr - IKKE OK"
end if

fantastisk! tak