asp验证ip

asp验证ip函数,以前老是用javascript验证ip,这次写一下asp验证ip函数
function IsValidIP(StrIP)
 IsValidIP = True
 dim StrTemp,i
 StrTemp = split(StrIP,".")
 if ubound(StrTemp) <> 3 then
  IsValidIP = Flase
  exit function
 end if
 for i = 0 to 3
  if not isnumeric(StrTemp(i)) then
   IsValidIP = Flase
   exit function
  else
   if StrTemp(i) < 0 or StrTemp(i) > 255 then
    IsValidIP = Flase
    exit function
   end if
  end if
 next
end function
试试看看能用么？