asp驗證ip

    asp驗證ip函數(shù),以前老是用javascript驗證ip,這次寫一下asp驗證ip函數(shù)
    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
    試試看看能用么？