ASP常用函数-CStrIP()

作用:把长整型数字转为IP地址

<%

Function CStrIP(ByVal anNewIP)

    Dim lsResults

    Dim lnTemp

    Dim lnIndex

    For lnIndex = 3 To 0 Step -1

        lnTemp = Int(anNewIP / (256 ^ lnIndex))

        lsResults = lsResults & lnTemp & "."

        anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))

    Next

    lsResults = Left(lsResults, Len(lsResults) - 1)

    CStrIP = lsResults

End Function

%>