ASP 스크립트가 웹 페이지에 대한 IP 세그먼트 액세스를 제한합니다.

어제 테스트를 하기 위해 어떤 IP에 대한 접근을 제한해야 하기 때문에 인터넷에 접속하여 코드를 찾았습니다. 저는 조정을 해서 여러분께 공유했습니다.코드를 입력하는 두 가지 방법을 찾았습니다.
방법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>

요약:
위의 두 가지 방법은 모두 ASP 스크립트에 대한 것이며 다른 스크립트의 제한 방법은 이와 유사합니다.

좋은 웹페이지 즐겨찾기