晕倒,两天啦,真的没有人会判断了吗?
希望能写出这段代码的高手快出来呀?
我真的想请教高手!!
让我们风风火火的过一生,别平平淡淡过一年。
在一些 网站统计系统 或者ip查询系统里 经常看到 用一长串数字表示 ip地址 下面就给出 它的算法,可以用于限制IP访问的情况 或者限制网段访问的情况。 比起用IP地址直接处理 这样转换成数字 显然方便了许多。
'IP转数字
enaddr(sip)
esip=cstr(sip)
str1=Left(sip,CInt(InStr(sip,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=Left(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
end
'数字转IP
deaddr(sip)
sip=sip+1
s1=int(sip/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
end
网上找的
在一些 网站统计系统 或者ip查询系统里 经常看到 用一长串数字表示 ip地址 下面就给出 它的算法,可以用于限制IP访问的情况 或者限制网段访问的情况。 比起用IP地址直接处理 这样转换成数字 显然方便了许多。
'IP转数字
enaddr(sip)
esip=cstr(sip)
str1=Left(sip,CInt(InStr(sip,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=Left(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=left(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
end
'数字转IP
deaddr(sip)
sip=sip+1
s1=int(sip/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
end
网上找的
不明白,为什么要把IP转成数字,转成数字之后,是不是要和谁比较??又为什么要转成Ip地址?
我知道这是两个,可是不知道怎么用?谢谢楼上的,你辛苦了,能告诉我怎么用好吗?谢谢!