ASP基本函数之CLngIP()的使用

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

Function CLngIP(ByVal asNewIP)
    Dim lnResults
    Dim lnIndex
    Dim lnIpAry
    lnIpAry = Split(asNewIP, ".", 4)
    For lnIndex = 0 To 3
        If Not lnIndex = 3 Then
            lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
        End If
        lnResults = lnResults + lnIpAry(lnIndex)
    Next
    CLngIP = lnResults
End Function
%>

有关于“ASP基本函数之CLngIP()的使用”内容，想必大家都看明白了吧！在我们爱站技术频道网站有很多精彩的技术文章内容，如果你感兴趣的话可以随时来关注收藏下。