页面导航： 首页 → 网络编程 → ASP编程 → ASP基础 → 正文内容

发布：dxy 字体：[增加 减小] 类型：转载

作用:把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
%>

文章评论

共有 位脚本之家网友发表了评论我来说两句