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