ip範圍限制函式

2021-06-21 23:45:30 字數 1558 閱讀 5642

ip範圍限制函式

'******************************

'function checkip(cinput_ip,cbound_ip)

'created by qqdao, [email protected] 2001/11/28

'說明:首先需要根據;號迴圈,然後判斷是否含有"-",如果有則進行拆分處理,最後判斷是否在範圍內

'引數: cinput_ip,代檢查的ip

' cbound_ip,給定的範圍格式為,單個ip,和範圍ip,範圍ip最後使用」-「分割,如果是「*」則必須放到最後一位

' 每個範圍後新增":allow"表示允許登陸,新增":refuse"表示拒絕登陸。多個範圍用」;「隔開

' 例如192.168.1*.*:allow;192.168.1.1:allow;192.168.1.1-10:refuse"

'返回值: true/false

'更新:2001/12/05 支援allow,refuse支援』*『,不想對?支援,因為和*差不多

'******************************

function checkip(cinput_ip,cbound_ip)

dim csingle_ip,ctemp_ip,cstart_ip,cend_ip

checkip = false

csingle_ip=split(cbound_ip,";")

for i=0 to ubound(csingle_ip)

if instr(csingle_ip(i),"refuse") <> 0 then '就是拒絕了

ctemp_ip = left(csingle_ip(i),instr(csingle_ip(i),":")-1)

if instr(ctemp_ip,"*") <> 0 then '是寬範圍

cstart_ip = left(ctemp_ip,instr(ctemp_ip,"*")-1)

if left(cinput_ip,len(cstart_ip))=cstart_ip then

checkip = false

exit function

end if

end if

if instr(ctemp_ip,"-") = 0 then

cstart_ip = ctemp_ip

cend_ip = ctemp_ip

else

cstart_ip = left(ctemp_ip,instr(ctemp_ip,"-")-1)

cend_ip = left(cstart_ip,instrrev(cstart_ip,".")-1)+"."+mid(ctemp_ip,instr(ctemp_ip,"-")+1)

end if

if ip2str(cinput_ip)>=ip2str(cstart_ip) and ip2str(cinput_ip)<=ip2str(cend_ip) then

checkip = false

exit function

end if

elseif

end function

簡單IP限制

limitip file iplist.txt 單個ip限制 cip server remote addr 分解客戶端ip cips explode cip ip area1 cips 0 cips 1 cips 2 ip area2 cips 0 cips 1 ip area3 cips 0 rs...

限制ip操作

二 多個ip段限制 region 檢測客戶端ip是否在某一ip段內 客戶端ip 1,通過 0 不通過 public int ipexamination string clientip intksip iptoint ksip intjsip iptoint jsip intclientip ipto...

限制IP訪問

本文以python為基礎 問題描述 後台伺服器如何限制某些特定ip的訪問?問題分析 如果對ip進行限制,那麼第一步就必須得到使用者的ip,才能進行限制,第二部才是限制 問題解決 得到使用者ip 首先,python提供了獲取ip的 語句 ip request.remote addr但是通過這行 我們卻...