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
%>

ASP基本函数之CStrIP()的使用内容想必朋友们都看明白了吧！在我们爱站技术频道网站有很多关于ASP方面的知识点，有需要的小伙伴记得来关注收藏。