欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP常用函数:CLngIP()

程序员文章站 2023-12-04 18:11:22
作用:把ip地址转为长整型 <% function clngip(byval asnewip)     d...
作用:把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
%>