我很欢乐，因为我没有一点的工作，我做了很多麻烦。
功能ip2int（ipstr）
昏暗的iptemp，马克斯
iptemp =分裂（ipstr 。
马克斯= UBound（iptemp）
如果马克斯4
退出功能
最后如果
昏暗的A，B，我
ah
对于我= 0比3
B =进制（iptemp（我））
如果莱恩（b）＝1
b0b
最后如果
= AB
下一个
ip2int = CLNG（一）
端功能
功能int2ip（IP）
昏暗的iptemp，一，ipstr，我长
iptemp =进制（IP）
长度= 8 -莱恩（iptemp）
对于i = 1到长度
iptemp =0iptemp
下一个
=左（iptemp，2）
aha
我= Cint（一）
a CSTR（一）
ipstr = 。
a中（iptemp，3,2）
aha
我= Cint（一）
a CSTR（一）
ipstr = ipstr 。
a中（iptemp，5,2）
aha
我= Cint（一）
a CSTR（一）
ipstr = ipstr 。
a右（iptemp，2）
aha
我= Cint（一）
a CSTR（一）
ipstr = ipstr一
int2ip = ipstr
端功能
昏暗的testip，testint
testip =202.102.29.6
testint = ip2int（testip）
response.write testip将编码为testint
response.write testip 将被编码为int2ip（testint）
%>
