あるIPセグメントのウェブページへのアクセスを制限する(ASP)


ASPスクリプトはあるIPセグメントのウェブページへのアクセスを制限する


昨日テストをするために、あるIPに対して制限をして私のホームページにアクセスして、そこでインターネットを利用していくつかのコードを探して、私は調整をして、みんなに分かち合います.コードをつける2つの方法を見つけました.

方法1:

<html> 
<head> 
<title>  IP   </title> 
</head><body> 
<%
function IP2Num(sip)
	dim str1,str2,str3,str4
	dim num
	IP2Num=0
	if isnumeric(left(sip,2)) then
		str1=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str2=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str3=left(sip,instr(sip,".")-1)
		str4=mid(sip,instr(sip,".")+1)
		num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)
		IP2Num = num
	end if
end function

function Num2IP(nip)
	iip1 = int(nip/256/256/256)
	iip2 = int((nip-iip1*256*256*256)/256/256)
	iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256)
	iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256)
	iip0 = iip1 &"."& iip2 & "." &iip3 &"."& iip4
	Num2IP = iip0
end function

userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))

if userIPnum > IP2Num("192.168.150.0") and userIPnum < IP2Num("192.168.150.138") then
	response.write ("<center>  IP   </center>")
	response.end
	else response.write ("<center>  IP     !</center>")
end if
%>
</body></html>

方法2:

<html> 
<head> 
<title>  IP   ——2</title> 
</head><body> 
<%
'  192.168.150.130(3232274049) 192.168.150.140(3232274059)

ip=request.servervariables("remote_addr")
sip=split(ip,".")
num=cint(sip(0))*256*256*256+cint(sip(1))*256*256+cint(sip(2))*256+cint(sip(3))-1
response.write(ip)
response.write("<br>")
if (num >= 3232274049 and num <= 3232274059) then
    response.write("  ip   !")
    response.End()
  else
    response.write("  ip    ")
end if
%> 
</body></html>

まとめ:


以上の2つの方法はいずれもASPスクリプトに対して行われており,他のスクリプトの制限方法は類似している.