IP制限機能
良い提案とアルゴリズムがある場合は、私に連絡してください！ ！ :)
「*************************************************
"functioncheckip（cinput_ip、cbound_ip）
「createdbyqqdao、[email protected]/11/28
「注：最初に、数に応じてサイクリングする必要があります。次に、「 - 」が含まれているかどうかを判断します。
「パラメーター：CINPUT_IP、GERENERによる検査のためのIP
「cbound_ip、指定された範囲形式は単一のIP、および範囲IPです。範囲IPが最後に使用されます」 - "セグメント「*」の場合、最後の数字に配置する必要があります
「追加」：各範囲の後に許可することは、ログインが許可され、追加されることを意味し、「拒否」とはログインが拒否されることを意味します。複数の範囲が使用されます。
「たとえば、192.168.1*。*。
「戻り値：true/false
「更新：2001/12/05サポート許可、サポートを拒否する *'、正しくなりたくない？サポートは *に似ているからです *
「*************************************************
functioncheckip（cinput_ip、cbound_ip）
dimcsingle_ip、ctemp_ip、cstart_ip、cend_ip
checkip = false
csingle_ip = split（cbound_ip、 ";"）
fori = 0toubound（csingle_ip）
ifinstr（csingle_ip（i）、 "reduse"）<> 0then "は拒否します
ctemp_ip = left（csingle_ip（i）、strunt（csingle_ip（i）、 "："）-1）
ifinstr（ctemp_ip、 "*"）<> 0then "は幅広い範囲です
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 "*"）-1）
ifleft（cinput_ip、len（cstart_ip））= cstart_ipthen
checkip = false
exitFunction
endif
endif
ifinstr（ctemp_ip、 " - "）= 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
それ以外
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 " - "） - 1）
cend_ip = left（cstart_ip、instrrev（cstart_ip、 "。"） - 1）+"
endif
ifip2str（cinput_ip）> = ip2str（cstart_ip）andip2str（cinput_ip）<= ip2str（cend_ip）then
checkip = false
exitFunction
endif
elseifinstr（csingle_ip（i）、 "lock"）<> 0then "aop
ctemp_ip = left（csingle_ip（i）、strunt（csingle_ip（i）、 "："）-1）
ifinstr（ctemp_ip、 "*"）<> 0then "は幅広い範囲です
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 "*"）-1）
ifleft（cinput_ip、len（cstart_ip））= cstart_ipthen
checkip = true
endif
endif
ifinstr（ctemp_ip、 " - "）= 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
それ以外
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 " - "） - 1）
cend_ip = left（cstart_ip、instrrev（cstart_ip、 "。"） - 1）+"
endif
ifip2str（cinput_ip）> = ip2str（cstart_ip）andip2str（cinput_ip）<= ip2str（cend_ip）then
checkip = true