Les amis qui en ont besoin peuvent se référer au code pour interdire les adresses IP spécifiées et autoriser uniquement les adresses IP spécifiées à accéder au site Web via ASP. 1. Interdire les sites Web désignés pour la défense de la propriété intellectuelle et effectuer les opérations correspondantes :
Copiez le code comme suit :
<%
Faible IP, IPString, VisitIP
'Définissez l'adresse IP, séparée par |
IPString=|192.168.0.42|192.168.0.43|
'Obtenir l'adresse IP
IP = Requête.ServerVariables(HTTP_X_FORWARDED_FOR)
Si IP = Alors
IP = Requête.ServerVariables (REMOTE_ADDR)
Fin si
VisiteIP=|&IP&|
Si instr(1,IPString,VisitIP)>0 Alors
'Effectuer les opérations correspondantes pour les adresses IP interdites
Response.write Il est interdit d'accéder à votre adresse IP
réponse.end
Fin si
%>
2. Modifiez le code pour autoriser uniquement les sites Web de défense IP désignés et effectuez les opérations correspondantes :
Copiez le code comme suit :
<%
Faible IP, IPString, VisitIP
'Définissez l'adresse IP, séparée par |
IPString=|192.168.0.42|192.168.0.42|
'Obtenir l'adresse IP
IP = Requête.ServerVariables(HTTP_X_FORWARDED_FOR)
Si IP = Alors
IP = Requête.ServerVariables (REMOTE_ADDR)
Fin si
VisiteIP=|&IP&|
Si instr(1,IPString,VisitIP)>0 Alors
'L'IP correspondante effectue l'opération correspondante
Response.write Votre adresse IP peut accéder
autre
'Effectuer les opérations correspondantes pour les IP non conformes
Response.write Il est interdit d'accéder à votre adresse IP
réponse.end
Fin si
%>
3. Utilisation dans des applications pratiques :
Enregistrez ensuite le code ci-dessus en tant que fichier IP.asp, puis utilisez la méthode suivante pour ajouter le code suivant à la page du programme asp.
<!-- #include file=IP.asp -->