求助!关于使用VB脚本计算ip号码段的问题。
我不会VB脚本。工作中有位客户以前在我们这做的网站。网站上有一个栏目，只有公司内部才能看到，现在客户公司的ip变了，需要重新修改一下ip段。由于当时给客户做网站的同事离职了，而现在在职的同事也不太懂。所以请高手解决一下。现在需要把IP段变成211.100.224.110到211.100.224.125 ，因为其中把IP地址做了编码。请高手帮忙把新的IP的起始编码，跟结束编码回复一下，万分感谢。
IP编码代码-------------------------------
Function EncodeAddr(sIp)
Dim str1, str2, str3, str4
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)
If isNumeric(str1) = 0 Or isNumeric(str2) = 0 Or isNumeric
(str3) = 0 Or isNumeric(str4) = 0 Then
sIp = 0
Else
sIp = CInt(str1)*256*256*256 + CInt(str2)*256*256 +
CInt(str3)*256 + CInt(str4) - 1
End If
EncodeAddr = sIp
End Function
IP限制内容编码-----------------------------------
Function limitedSoftXML(xslFile,xmlCondition,mode)
Dim IpStart, IpEnd
IpStart = 3549631040 ' 起始地址
IpEnd = 3549631068 ' 结束地址
' 获取用户IP地址
UserIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '测
试客户端是否用代理
If UserIp = "" Then UserIp = Request.ServerVariables
("REMOTE_ADDR")
UserIp = EncodeAddr(UserIp)
If (UserIp >= IpStart) And (UserIp =< IpEnd) Then
limitedSoftXML = TransSoftXML
(xslFile,xmlCondition,mode)
Else
limitedSoftXML = "<br/><br/><div align=""center""
style=""font-weight:bold;color:#FF0000"">对不起，此处内容仅内部用户可
以浏览！</div>"
End If
End Function
[解决办法]
IpStart = 3546603630 ' 起始地址
IpEnd = 3546603645 ' 结束地址
[解决办法]
顶hookee。计算无误。
