IP编码问题.求解
qfljm 2006-02-20 08:07:03 Function EcodeIP(strIP)
Dim aIP
If strIP="127.0.0.1" Then strIP="192.168.0.1"
aIP = Split(strIP, ".")
EcodeIP =CLng(aIP(0)) * 16777216 + CLng(aIP(1)) * 65536 + CLng(aIP(2)) * 256 + CLng(aIP(3)) - 1
End Function
Response.Write EcodeIP("202.98.160.68")
上面的函数对IP进行了编码.
问题:
如何写一个函数来把编码后的数字串还原成原来IP字符串