요청 오브젝트의 ServerVariables 속성을 사용하려면 환경 변수의 값을 얻으려면이를 사용하십시오. 사용 된 구문은 다음과 같습니다. request.servariables (변수), "변수"는 서버 호스트 이름, 웹 서버 소프트웨어 이름 등과 같은 환경 변수의 이름을 나타냅니다. "variable"이 "remote_addr"인 경우 방문자의 IP 주소를 나타내고,이를 통해 IP 주소의 필터링을 수행 할 수 있습니다.
소스 프로그램은 다음과 같습니다. (파일 이름 : demo.asp)
<html>
<헤드>
<metahttp-equiv = "content-type"content = "text/html; charset = gb_2312-80">
<metaname = "Generator"Content = "MicrosoftFrontPageExpress2.0">
<스타일>
<! ---
. as {line-height : 15px; font-size : 9pt}
A : 호버 {색상 : rgb (0,51,240); 텍스트 결정 : 밑줄}
.p9 {font-family : "宋体 宋体"; font-size : 9pt; line-height : 15pt}}
.p12 {font-family : "宋体 宋体"; font-size : 12pt; line-height : 18pt}
A : Link {Text-Decoration : None;}
A : 방문 {Text-Decoration : None;}
A : 호버 {Text-Decoration : Underline; Font-Size : 125%; 색상 : Blue}
－>
</스타일>
<title> ASP 페이지 방화벽 기능 데모 </title>
</head>
<bodybackground = "back.jpg">
<%
‘request.servervariables ( "remote_addr")를 사용하여 IP 주소를 가져 와서 변수 RIP에 저장하십시오.
rip = request.servervariables ( "remote_addr")
Strip = cstr (RIP)
‘IP 주소의 세 번째 세그먼트의 값을 얻고 스트립에 저장하십시오.
fori = 1 ~ 2
Strip = right (Strip, Len (Strip) -instr (1, Strip, ".")))
다음
strip = 왼쪽 (str, instr (1, str, ".") -1)
두 가지 측면을 포함한 IP 주소 유효성 검증 및 비밀번호 확인 :
'IP 주소가 일관된 경우 패스 확인; IP 주소가 일치하지 않으면 입력 된 암호가 올바른지 확인하십시오 (여기서 암호는 "ASP").
if (left (rip, 5) <> "127.1"orstrip < "1"orstrip> "50") Andrequest ( "passwd") <> "ASP"
%>
<p> <fontcolor = "#ff0000"> 죄송합니다. IP는 <%= rip%> 이며이 페이지에서 액세스 할 수있는 ip는 127.1.1.* 사이입니다.*. 이 장치의 내부 네트워크 사용자 인 경우 브라우저가 프록시를 사용하지 않도록하십시오! <br> <br> <br> <br>