魔音糯米 总监:谁有类似动易2006的限制IP代码？

限制IP段的，类似动易2006版里那个的样子
添加时是用文本框，IP段中每个IP用四个 - 分隔，每个IP段用回车分隔，如：
127.0.0.1----127.0.0.25 回车
127.0.0.30----127.0.0.55
如果IP段不完整也就是说是单个IP的就自动删除这个部分，如：
127.0.0.1----127.0.0.25 回车
127.0.0.30----127.0.0.55 回车
127.0.0.66
格式如上的时候自动删除127.0.0.55后面的回车和127.0.0.66，保留其他数据
如果最后一个IP段不完整，也就是包含----而不是以IP结束的时候，提示错误
添加进数据库的IP要用一个函数弄成一串数字，函数如下
Function EncodeIP(Sip)
Dim strIP
strIP = Split(Sip, ".")
If UBound(strIP) < 3 Then
EncodeIP = 0
Exit Function
End If
If IsNumeric(strIP(0)) = 0 Or IsNumeric(strIP(1)) = 0 Or IsNumeric(strIP(2)) = 0 Or IsNumeric(strIP(3)) = 0 Then
Sip = 0
Else
Sip = Int(strIP(0)) * 256 * 256 * 256 + Int(strIP(1)) * 256 * 256 + Int(strIP(2)) * 256 + Int(strIP(3)) - 1
End If
EncodeIP = Sip
End Function

保存进数据库的样子类似下面的，每个IP段保存数据库用$$$分隔
123456表示用上面函数转换成数字后的IP
123456----123456$$$123456----123456

大概就是这样子，具体的麻烦看下动易后台那里，由于它写组件里了，所以不知道他们是怎么做的，我只是模仿做出了从数据库读出并将数字转换成IP，而将IP换成数字并保存进数据库搞不好，拜托哪个高手帮帮忙，谢谢了