当前位置:主页 > 软件编程 > ASP代码 >

ASP常用函数:CStrIP()

时间:2022-07-14 08:18:40 | 栏目:ASP代码 | 点击:

作用:把长整型数字转为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
%>

您可能感兴趣的文章:

相关文章