Bloqueio

[maktub]

Poderiam ajudar? Encontrei esta solução para bloquear uma determinada faixa de IP no meu site:

<%
Dim i, sIP
Dim vFaixa(2), vIP(5)

vFaixa(0) = "200"
vFaixa(1) = "201"
vIP(0) = "200.162.198.1"
vIP(1) = "200.162.199.1"
vIP(2) = "200.162.58.1"
vIP(3) = "200.162.98.1"
vIP(4) = "200.132.198.1"

sIP = Trim(Request.ServerVariables("REMOTE_ADDR"))

'-- Faixas --
For i = LBound(vFaixa) To UBound(vFaixa)
If Left(sIP, InStr(1, sIP, ".")-1) = vFaixa(i) Then
Response.Redirect ("bloqueio.asp")
End If
Next

'-- IPs --
For i = LBound(vIP) To UBound(vIP)
If sIP = vIP(i) Then
Response.Redirect ("bloqueio.asp")
End If
Next

%>

Mas esta gerando o erro:

Erro de compilação do Microsoft VBScript erro '800a0411'

Redefinição do nome

D:\WEB\LOCALUSER\MEUSITE\WWW\HOME\../includes/inc_header.asp, line 10

Dim i, sIP
----^

a linha 10 é essa:

Dim i, sIP

[Rafael Spilki]

Esse é o codigo todo? Ele está completo ou tem mais alguma coisa acima ou abaixo?

Nenhum include? nada nada?

[bareta]

você está declarando uma das duas variaveis duas vezes

Dim i, sIP

verifique a existencia de Dim i, sIP mais de uma vez.

[maktub]

O erro continua, porém fiz um pesquisando na WEB assim:

<%
Dim EndUser, BlockIP
EndUser = Request.ServerVariables("REMOTE_ADDR")
BlockIP = "189.79.105.5"
If EndUser = BlockIP Then
%>
<%
Response.Redirect ("negado.asp")
%>
<% Else %>
Olá, seja bem vindo!
<% End If %>

O problema é que preciso colocar uma faixa de IP, esse limita-se a colocar IP por IP, funciona mas precisava bloquear uma faixa de IP

[Rafael Spilki]

maktub bom dia.

você não respondeu as duvidas anteriores... E continuo precisando daquelas respostas pra te ajudar... Dependendo do caso você pode usar splits e bloquear atraves de condicionais de maior e menor...

Abraçao...

[bareta]

vamos lá....

um ip sempre vai ser:

000.000.000.000

então..... usei uma tabela no banco com 4 colunas... ip0|ip1|ip2|ip3

function ipblock(ip)

ipblock=true

ipb=split(ip,".")
sql="select * from ipblock order by id"
set rs=conn.execute(sql)
if rs.eof then
ipblock=false
else
Do While Not rs.EOF

for i=lbound(ipb) to ubound(ipb)
if ipb(i)=rs("ip"&(i)) then
ipblock=true
else
ipblock=false
end if

if ipblock=true then exit for
loop

if ipblock=true then exit Do

rs.movenext
wend

end if
rs.close
set rs=nothing

end function

usando

if ipblock("189.96.146.42")=true then
response.write "sorry ^^"
else
response.write "lets gooo kid"
end if

basicamente isso...