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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!