作用:把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
%>
如对本文有疑问,
点击进行留言回复!!
网友评论