欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

ASP常用函數(shù):CLngIP()

 更新時(shí)間:2007年02月07日 00:00:00   作者:  
作用:把IP地址轉(zhuǎn)為長整型

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

相關(guān)文章

最新評論