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字符串


...全文
109 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hsboy 2006-02-20
  • 打赏
  • 举报
回复
不明白你的EcodeIP里面为什么最后还要减去1??如果不减1的话用下面的函数即可将int32的IP地址转换为xxx.xxx.xxx.xxx的格式。如果你非要减去1,那么在使用下面的函数的时候先将intIP加上1即可。

Function DecodeIP(intIP)
Dim sect1, sect2, sect3, sect4
sect1 = Int(intIP / 16777216)
intIP = intIP - sect1 * 16777216
sect2 = Int(intIP / 65536)
intIP = intIP - sect2 * 65536
sect3 = Int(intIP / 256)
intIP = intIP - sect3 * 256
sect4 = intIP
DecodeIP = sect1 & "." & sect2 & "." & sect3 & "." & sect4
End Function

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧