asp中对ip进行过滤限制函数

函数

看了一些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.write checkip(ip,allowip1,allowip2)function checkip(ip,allowip1,allowip2)dim check(4)checkip=falseipstr=split(ip,".")allow1=split(allowip1,".")allow2=split(allowip2,".")if cint(allow1(0))>cint(allow2(0)) then '判断IP地址段是否合法response.write "IP地址段出错！"exit functionend iffor i=0 to ubound(ipstr)if cint(allow1(i))<cint(allow2(i)) thenif cint(allow1(i))=cint(ipstr(i)) thencheck(i)=truecheckip=trueexit forelseif cint(ipstr(i))<cint(allow2(i)) thencheck(i)=truecheckip=trueexit forelseif cint(ipstr(i))>cint(allow2(i)) thencheck(i)=falsecheckip=falseexit forelsecheck(i)=truecheckip=trueend ifend ifend ifelseif cint(allow1(i))>cint(ipstr(i)) or cint(allow1(i))<cint(ipstr(i)) thencheck(i)=falsecheckip=falseif i<>ubound(ipstr) thenexit forend ifelsecheck(i)=trueend ifend ifnextif (check(0)=true and check(1)=true and check(2)=true and check(3)=false) and (cint(allow2(2))>cint(ipstr(2))) thencheckip=trueend ifend function%>

时间： 2025-01-27 08:10:47

asp中对ip进行过滤限制函数的相关文章

ASP 中对 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.write checkip(ip,allowip1,allowip2) function checkip(ip,allowip1,allowip2)dim check(

ASP中的ArrayList类[数组常用函数]

ASP中的ArrayList类[数组常用函数] 使用方法如下:  程序代码 <% dim arr : set arr=new ArrayList arr.add "a" : arr.add "b" : arr.add "c" Response.Write arr.count & "<br>" for i=0 to arr.count-1     Response.Write arr.item(i) &

ASP中加密与解密对应的函数

函数|加密|解密 在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp<%rem 在ASP中实现加密与解密,加密方法:根据RSArem 联系:hnsoso@sina.comClass clsRSA Public PrivateKeyPublic PublicKeyPublic Modulus Public Function Crypt(pLngMessage, pLngKey)On Error Resume NextDim lLngModDi

一段在asp中加密与解密对应的函数

函数|加密|解密 在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp <% rem 在ASP中实现加密与解密,加密方法:根据RSA rem 联系:hnsoso@sina.com Class clsRSA Public PrivateKey Public PublicKey Public Modulus Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim l

在asp中加密与解密对应的函数

函数|加密|解密 在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp<%rem 在ASP中实现加密与解密,加密方法:根据RSArem 联系:hnsoso@sina.comClass clsRSA Public PrivateKey Public PublicKey Public Modulus Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim lLngM

一段在asp中加密与解密对应的函数_应用技巧

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp <% rem 在ASP中实现加密与解密,加密方法:根据RSA rem 联系:hnsoso@sina.com Class clsRSA Public PrivateKey Public PublicKey Public Modulus   Public Function Crypt(pLngMessage, pLngKey) On Error Resume Next Dim lLngMod

ASP中限制IP函数详解

函数|详解 '******************************'Function CheckIp(cInput_Ip,cBound_Ip)'Created by qqdao, qqdao@263.net 2001/11/28'说明:首先需要根据;号循环,然后判断是否含有"-",如果有则进行拆分处理,最后判断是否在范围内'参数: cInput_Ip,代检查的ip'cBound_Ip,给定的范围格式为,单个ip,和范围ip,范围ip最后使用"-"分割,如果是

asp中常用的字符串安全处理函数集合(过滤特殊字符等)_应用技巧

复制代码 代码如下: '===================================== '转换内容,防止意外 '===================================== Function Content_Encode(ByVal t0) IF IsNull(t0) Or Len(t0)=0 Then Content_Encode="" Else Content_Encode=Replace(t0,"<","<&qu

ASP进阶学习必经之认识数学函数11种

函数|函数     在这篇asp之数学函数里,我们将会以表格的形式,让大家了解到关于ASP中能用到的数学函数,里面包括一个数的绝对值.一个数的平方根,角度的正弦.余弦值等. 函数语法功能AbsAbs(num)返回一个数的绝对值SqrSqu(num)返回一个数的平方根SinSin(num)返回角度的正弦值CosCos(num)返回角度的余弦值TanTan(num)返回角度的正切值AtnAtn(num)返回角度的反正切值LogLog(num)返回一个数的对数值IntInt(num)取整函数,返回小于