欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

!关于使用vb脚本计算ip号码段的有关问题

更新时间: 2014-01-05 01:52:41 责任编辑: Author_N1

 

求助!关于使用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。计算无误。
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:41
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2407/
本文WWW.DOC100.NET DOC100.NET版权所有。