Utilice principalmente la propiedad ServerVariables del objeto de solicitud, a través de la cual se obtiene 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 la dirección de la dirección IP se puede lograr.
El programa fuente es el siguiente: (Nombre del archivo: Demo.asp)
<html>
<Evista>
<metahttp-oquiv = content-typeContent = text/html; charset = gb_2312-80>
<metaname = generatorContent = 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-Height: 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.serverVariAbles (remota_addr) para obtener la dirección IP y guardarla en la variable RIP
rip = request.serverVariAbles (remota_addr)
Strip = CSTR (RIP)
'Obtenga el valor del tercer segmento de la dirección IP y guárdelo para desnudarse
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 cumple con el valor, pase la verificación;
if (izquierda (rip, 5) <> 127.1orstrip <1orStrip> 50) Andrequest (passwd) <> AspThen
%>
<p> <fontcolor =#ff0000> Lo siento, su IP es <%= rip%>, y las IP a las que se puede acceder en esta página se encuentran entre 127.1.1.* Y 127.1.50.*
<formaction = demo.aspmethod = postid = form1Name = form1>
<p> Ingrese la contraseña de acceso: <inputType = contraseña = Passwd> <inputType = SubtitValue = Confirm name = b1>;
</p>
</form>
<%else%>
'La página a la que los usuarios legales pueden acceder, se puede agregar cualquier información aquí
¡Felicitaciones, ha aprobado con éxito la certificación de seguridad de la página y puede usar directamente los recursos de este sitio!
<%endif%>
</body>
</html>
De hecho, solo modifique ligeramente el programa anterior (como la dirección IP y otra información).