📄 ip限制函数.htm
字号:
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753></TD>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#297dff colSpan=2 height=20><FONT color=#ceffff> →
<A href="http://www.aspsky.net/article/index.asp?classid=2"><FONT
color=#ceffff>ASP技术</FONT></A> >> <A
href="http://www.aspsky.net/article/index.asp?classid=2&Nclassid=2"><FONT
color=#ceffff>ASP应用</FONT></A> >> 《ip限制函数》</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD align=middle class=p4
colSpan=2><B>ip限制函数</B></FONT><BR>2001-12-12 动网先锋 </TD></TR>
<TR>
<TD class=p4 colSpan=2>
<BLOCKQUOTE><BR>大家如果还有好的建议算法，就联系我！！：）
<P></P>
<P>'******************************<BR>'Function
CheckIp(cInput_Ip,cBound_Ip)<BR>'Created by qqdao, qqdao@263.net
2001/11/28<BR>'说明：首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内<BR>'参数：
cInput_Ip,代检查的ip<BR>'
cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到最后一位<BR>'
每个范围后添加":ALLOW"表示允许登陆，添加":REFUSE"表示拒绝登陆。多个范围用”;“隔开<BR>'
例如192.168.1*.*:ALLOW;192.168.1.1:ALLOW;192.168.1.1-10:REFUSE"<BR>'返回值:
true/false<BR>'更新：2001/12/05
支持ALLOW,REFUSE支持’*‘,不想对？支持，因为和*差不多<BR>'******************************<BR>function
CheckIp(cInput_Ip,cBound_Ip)<BR>dim
cSingle_Ip,cTemp_IP,cStart_IP,cEnd_Ip<BR>CheckIp =
false<BR>cSingle_Ip=split(cBound_Ip,";")</P>
<P>for i=0 to ubound(cSingle_Ip)<BR>if
Instr(cSingle_Ip(i),"REFUSE") <> 0 then '就是拒绝了<BR>cTemp_IP =
left(cSingle_Ip(i),instr(cSingle_Ip(i),":")-1)</P>
<P>if Instr(cTemp_IP,"*") <> 0 then '是宽范围<BR>cStart_IP =
left(cTemp_IP,instr(cTemp_IP,"*")-1)<BR>if
left(cInput_Ip,len(cStart_IP))=cStart_IP then<BR>CheckIp =
false<BR>exit function<BR>end if<BR>end if</P>
<P>if Instr(cTemp_IP,"-") = 0 then<BR>cStart_IP =
cTemp_IP<BR>cEnd_Ip = cTemp_IP<BR>else<BR>cStart_IP =
left(cTemp_IP,instr(cTemp_IP,"-")-1)<BR>cEnd_Ip =
left(cStart_IP,InStrRev(cStart_IP,".")-1)+"."+mid(cTemp_IP,instr(cTemp_IP,"-")+1)<BR>end
if</P>
<P>if Ip2Str(cInput_Ip)>=Ip2Str(cStart_IP) and
Ip2Str(cInput_Ip)<=Ip2Str(cEnd_Ip) then<BR>CheckIp =
false<BR>exit function<BR>end if</P>
<P>elseif Instr(cSingle_Ip(i),"ALLOW") <> 0 then '允许</P>
<P>cTemp_IP = left(cSingle_Ip(i),instr(cSingle_Ip(i),":")-1)</P>
<P>if Instr(cTemp_IP,"*") <> 0 then '是宽范围<BR>cStart_IP =
left(cTemp_IP,instr(cTemp_IP,"*")-1)<BR>if
left(cInput_Ip,len(cStart_IP))=cStart_IP then<BR>CheckIp =
true<BR>end if<BR>end if</P>
<P>if Instr(cTemp_IP,"-") = 0 then<BR>cStart_IP =
cTemp_IP<BR>cEnd_Ip = cTemp_IP<BR>else<BR>cStart_IP =
left(cTemp_IP,instr(cTemp_IP,"-")-1)<BR>cEnd_Ip =
left(cStart_IP,InStrRev(cStart_IP,".")-1)+"."+mid(cTemp_IP,instr(cTemp_IP,"-")+1)<BR>end
if</P>
<P>if Ip2Str(cInput_Ip)>=Ip2Str(cStart_IP) and
Ip2Str(cInput_Ip)<=Ip2Str(cEnd_Ip) then<BR>CheckIp
=true<BR>else<BR>CheckIp =false<BR>end if<BR>end if<BR>next</P>
<P>end function</P>
<P><BR>'******************************<BR>'Function
Ip2Str(cIp)<BR>'Created by qqdao, qqdao@263.net
2001/11/28<BR>'参考动网ip算法<BR>'参数：cIp ip地址<BR>'返回值:
转换后数值<BR>'******************************<BR>function
Ip2Str(cIp)<BR>Dim str1,str2,str3,str4<BR>Dim cIp_Temp<BR>if
cIp="127.0.0.1" then
cIp="192.168.0.1"<BR>str1=left(cIp,instr(cIp,".")-1)<BR>cIp_Temp=mid(cIp,instr(cIp,".")+1)<BR>str2=left(cIp_Temp,instr(cIp_Temp,".")-1)<BR>cIp_Temp=mid(cIp_Temp,instr(cIp_Temp,".")+1)<BR>str3=left(cIp_Temp,instr(cIp_Temp,".")-1)<BR>str4=mid(cIp_Temp,instr(cIp_Temp,".")+1)</P>
<P>if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0
or isNumeric(str4)=0 then</P>
<P>else<BR>Ip2Str=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1<BR>end
if</P>
<P>end function<BR><BR><BR></P></BLOCKQUOTE></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<BLOCKQUOTE>原作者：machinecat<BR>来 源：动网论坛<BR>共有4990位读者阅读过此文<BR>【<A
href="http://bbs.aspsky.net/list.asp?boardid=1">发表评论</A>】
</BLOCKQUOTE></TD>
<TD class=p4 vAlign=top width="50%">
<P>
<LI><FONT color=#0772b1>上篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2522">从beta2转移到rtm的差别列表</A>
<BR>
<LI><FONT color=#0772b1>下篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2524">一个简单的SQL语句执行器</A>
</LI></TD></TR>
<TR>
<TD bgColor=#297dff class=p4 height=20 width="50%"><FONT
color=#ceffff> → 本周热门</FONT></TD>
<TD bgColor=#297dff class=p4 width="50%"><FONT color=#ceffff> →
相关文章</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<LI><A href="http://www.aspsky.net/article/list.asp?id=1510"
target=_top title="SQL Server 7.0 入门（一）">SQL Server 7.0
入门（...</A>[<FONT color=red>7239</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1540"
target=_top title=PHP4实际应用经验篇(1)>PHP4实际应用经验篇(1)</A>[<FONT
color=red>7135</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1536"
target=_top
title=无组件文件上传代码实例（支持多文件上传及文件和input域混合上传）>无组件文件上传代码实例（支持多文件上...</A>[<FONT
color=red>6029</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2557"
target=_top title=树型结构在ASP中的简单解决>树型结构在ASP中的简单解决</A>[<FONT
color=red>5757</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1545"
target=_top title=PHP4实际应用经验篇(6)>PHP4实际应用经验篇(6)</A>[<FONT
color=red>5599</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2563"
target=_top title=一个老个写的无组件上传>一个老个写的无组件上传</A>[<FONT
color=red>5013</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1542"
target=_top title=PHP4实际应用经验篇(3)>PHP4实际应用经验篇(3)</A>[<FONT
color=red>4731</FONT>]<BR></LI></TD>
<TD class=p4 vAlign=top width="50%">
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2523">ip限制函数</A><BR></LI></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR></TBODY></TABLE>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD bgColor=#297dff height=1><SPACER type="block"
width="1"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle height=30></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<P align=center><A
href="http://www.aspsky.net/produce/index.asp">客户服务</A> -- <A
href="http://www.aspsky.net/aspads.asp">广告合作</A> -- <A
href="http://www.aspsky.net/about.asp">关于本站</A> -- <A
href="http://www.aspsky.net/tell.asp">联系方法</A><BR><BR>动网先锋版权所有 <FONT
face=Verdana, size=1 Arial, Helvetica, sans-serif>Copyright ©
2000-2001 <B>AspSky<FONT color=#cc0000>.Net</FONT></B>, All Rights
Reserved .</FONT>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -