Amigos que precisarem podem consultar o código para proibir IPs especificados e permitir que apenas IPs especificados acessem o site através de ASP. 1. Proibir sites designados de defesa de IP e realizar operações correspondentes:
Copie o código do código da seguinte forma:
<%
Dim IP, IPString, VisitIP
'Defina o endereço IP, separado por |
IPString=|192.168.0.42|192.168.0.43|
'Obter endereço IP
IP = Solicitação.ServerVariables(HTTP_X_FORWARDED_FOR)
Se IP = Então
IP = Solicitação.ServerVariables(REMOTE_ADDR)
Terminar se
VisitIP=|&IP&|
Se instr(1,IPString,VisitIP)>0 Então
'Realizar operações correspondentes para IPs banidos
Response.write Seu IP está proibido de acessar
resposta.fim
Terminar se
%>
2. Modifique o código para permitir apenas sites designados de defesa de IP e execute as operações correspondentes:
Copie o código do código da seguinte forma:
<%
Dim IP, IPString, VisitIP
'Defina o endereço IP, separado por |
IPString=|192.168.0.42|192.168.0.42|
'Obter endereço IP
IP = Solicitação.ServerVariables(HTTP_X_FORWARDED_FOR)
Se IP = Então
IP = Solicitação.ServerVariables(REMOTE_ADDR)
Terminar se
VisitIP=|&IP&|
Se instr(1,IPString,VisitIP)>0 Então
'O IP correspondente executa a operação correspondente
Response.write Seu IP pode acessar
outro
'Executar operações correspondentes para IPs não conformes
Response.write Seu IP está proibido de acessar
resposta.fim
Terminar se
%>
3. Utilização em aplicações práticas:
Em seguida, salve o código acima como um arquivo IP.asp e use o método a seguir para adicionar o código a seguir à página do programa asp.
<!-- #include arquivo=IP.asp -->