|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天函数看了一些IP限定的函数,以为太庞大。以是,试着写了一个,对照复杂。请网友参考指教。感谢!~
代码拷贝框
<%猎取会见者的地点ip=Request.ServerVariables("REMOTE_ADDR")同意的IP地点段为10.0.0.0~10.68.63.255allowip1="10.0.0.0"allowip2="10.68.10.71"response.writecheckip(ip,allowip1,allowip2)functioncheckip(ip,allowip1,allowip2)dimcheck(4)checkip=falseipstr=split(ip,".")allow1=split(allowip1,".")allow2=split(allowip2,".")ifcint(allow1(0))>cint(allow2(0))then判别IP地点段是不是正当response.write"IP地点段堕落!"exitfunctionendiffori=0toubound(ipstr)ifcint(allow1(i))<cint(allow2(i))thenifcint(allow1(i))=cint(ipstr(i))thencheck(i)=truecheckip=trueexitforelseifcint(ipstr(i))<cint(allow2(i))thencheck(i)=truecheckip=trueexitforelseifcint(ipstr(i))>cint(allow2(i))thencheck(i)=falsecheckip=falseexitforelsecheck(i)=truecheckip=trueendifendifendifelseifcint(allow1(i))>cint(ipstr(i))orcint(allow1(i))<cint(ipstr(i))thencheck(i)=falsecheckip=falseifiubound(ipstr)thenexitforendifelsecheck(i)=trueendifendifnextif(check(0)=trueandcheck(1)=trueandcheck(2)=trueandcheck(3)=false)and(cint(allow2(2))>cint(ipstr(2)))thencheckip=trueendifendfunction%>
</p>ASP脚本是采用明文(plaintext)方式来编写的。 |
|