Para usar la propiedad ServerVariables del objeto de solicitud, úsela para obtener el valor de la variable de entorno. La sintaxis utilizada es: request.servervariables (variable), "variable" representa el nombre de la variable de entorno, como el nombre del host del servidor, el nombre del software del servidor web, etc. Si "variable" es "remota_addr", representa la dirección IP del visitante, y a través de él, se puede lograr el filtrado de la dirección IP.
El programa fuente es el siguiente: (Nombre del archivo: Demo.asp)
<html>
<Evista>
<metahttp-equiv = "content-type" content = "text/html; charset = gb_2312-80">
<metaname = "generador" content = "MicrosoftFrontPageExpress2.0">
<estilo>
<! ---
.as {Line-Height: 15px; Font-Size: 9pt}
A: Hover {Color: RGB (0,51,240); Decoración de texto: Subline}
.p9 {Font-Family: "宋体"; Font-Size: 9PT; Line-Height: 15pt}
.p12 {Font-Family: "宋体"; Font-Size: 12Pt; Line-Hevight: 18pt}
A: enlace {TEXT-Decoration: None;}
A: Visited {Text-Decoration: None;}
A: Hover {Text-Decoration: subraye; Font-Size: 125%; color: azul}
－>
</style>
<title> ASP Page Firewall Función Demostración </title>
</ablo>
<BodyBackground = "Back.jpg">
<%
′ Use request.serverVariAnbles ("remotos_addr") para obtener la dirección IP y guardarla en la variable RIP
rip = request.ServerVariAbles ("Remote_addr")
Strip = CSTR (RIP)
'Obtenga el valor del tercer segmento de la dirección IP y guárdelo para despejarlo
fori = 1to2
Strip = Right (Strip, Len (Strip) -Instr (1, Strip, "."))
próximo
Strip = izquierda (Str, Instr (1, Str, ".")-1)
'Verificación de validez de la dirección IP y verificación de contraseña, incluidos dos aspectos:
'Si la dirección IP es consistente, pase la verificación; Si la dirección IP no coincide, verifique si la contraseña ingresada es correcta (la contraseña aquí es "ASP")
if (izquierda (rip, 5) <> "127.1" oStrip <"1" oStrip> "50") Andrequest ("passwd") <> "ASP" entonces
%>
<p> <fontcolor = "#ff0000"> Lo siento, su IP es <%= rip%>, y las IP a las que se puede acceder en esta página están entre 127.1.1.* y 127.1.50.*. Si es un usuario de la red interna de esta unidad, asegúrese de que su navegador no use un proxy! <br> </font> </p>