日本語
いくつかの IP 制限機能を調べましたが、複雑すぎることがわかりました。そこで、比較的簡単なものを書いてみました。ネチズンはこのガイドを参照してください。ありがとう！ ~
コードコピーボックス<% '訪問者のアドレスを取得します ip=Request.ServerVariables("REMOTE_ADDR") '許可される IP アドレスの範囲は 10.0.0.0 ～ 10.68.63.255 ですallowip1="10.0.0.0" allowedip2="10.68.10.71" response.write checkip ( ip,allowip1,allowip2) function checkip(ip,allowip1,allowip2) dim check(4) checkip=false ipstr=split(ip,".")allow1=split(allowip1,".")allow2=split(allowip2, " .") if cint(allow1(0))>cint(allow2(0)) then 'IPアドレスセグメントが正しいかどうかを判定します。 write "IPアドレスセグメントが間違っています!" exit function end if for i=0 to ubound(ipstr ) if cint(allow1(i))<cint(allow2(i)) then if cint(allow1(i))=cint(ipstr(i)) then check(i)=true checkip=true else の場合終了if cint( ipstr(i))<cint(allow2(i)) then check(i)=true checkip=true else 終了 if cint(ipstr(i))>cint(allow2(i)) then check(i) =false checkip =false exit for else check(i)=true checkip=true end if end if end if else if cint(allow1(i))>cint(ipstr(i)) または cint(allow1(i))<cint (ipstr( i)) then check(i)=false checkip=false if i<>ubound(ipstr) then exit for end if else check(i)=true end if end if next if (check(0)=true and check(1 )=true および check(2)=true および check(3)=false) および (cint(allow2(2))>cint(ipstr(2))) then checkip=true end if end function %>
