Converter código

[WHR 0]

Bom dia pessoal, não domino nada de asp e preciso converter uma função php para asp, alguém pode me ajudar?

 

sendo a função:

 

<?php
$ip = gethostbyname('nome.dns.org');
header("Location: http://$ip:9090");
?>

Este escript pega o ip vendo do endereço nome.dns.org e depois faz abrir uma pagina com o endereço IP

 

Desde já agradeço a ajuda

 

Abraço

[Ted k' 126]

com o endereço IP desse site nome.dns.org?

[WHR 0]

com o endereço IP desse site nome.dns.org?

Isso amigo

[Ted k' 126]

hum.. conheço isso aqui:

http://www.codigofonte.com.br/codigo/asp/s...mponente-netdll

[xanburzum 169]

você pode usar componente para isto, ou tb

usar o

Request.ServerVariables("REMOTE_ADDR")

e depois redirecioná-lo, você pode detectar o endereço de IP do visitante e verificar se deve fazer , por exemplo,um bloqueio, um redirecionamento , etc, desses endereços IP, se o endereço corresponde a qualquer da matriz, o visitante será redirecionado para uma determinada página.

 

exemplo

<% 
'declara variaveis
Dim sIP 
Dim sIParray(2) 
'endereços IP k seraun bloqueados no array
sIParray(0) = "61.254.40.22" 
sIParray(1) = "62.454.40.25" 
sIParray(2) = "62.254.40.17" 
'Recupera o endereço IP dos visitantes 
sIP = Request.ServerVariables("REMOTE_ADDR") 

' Loop através dos IPs banidos usando a função UBound
For i = 0 to UBound(sIParray) 
'Verifica se o endereço IP corresponde a qualquer dos IPs bloqueados
If sIP = sIParray(i) Then 
Response.Redirect "no_access.asp" 
End If 
Next 
%>

[WHR 0]

Bom dia pessoal, obrigado pela ajuda.

Estudando os código consegui pegar o ip remoto do usuario.

Porem nao estou conseguindo fazer com que ele redirecione para o browser o endereço Ip

Por exemplo http://151.101.150.104:9090/

 

Como faço isso?

 

segue o código:

 

<%
Dim IP As String = String.Empty
Dim logado

IP = System.Net.Dns.GetHostEntry(“nome.dyndns.org”).AddressList(0).ToString

if logado = "sim" then
Response.Redirect (“Location: http://IP“)
else
Response.Write("A senha esta aceita")
end if
%>

Desde já agradeço a ajuda

 

Abraço

[hargon 64]

Agora complicou. :huh:

 

Você conseguiu usando .NET, não?

[WHR 0]

Agora complicou. :huh:

 

Você conseguiu usando .NET, não?

Sim amigo, você sabe como consigo inserir este valor no browser?

[hargon 64]

Via .Net não.

 

Vou mover o tópico para o Fórum de .NET.

 

 

Movido de ASP http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET » Web Applications

[Oenning 0]

Veja se isso te ajuda.

 

<%@ Page Language="VB" Debug="true" %> 

<%
Dim IP As String = String.Empty
Dim logado = "sim"

IP = System.Net.Dns.GetHostEntry("nome.dns.org").AddressList(0).ToString

if logado = "sim" then
Response.Redirect("http://" & IP)
else
Response.Write("A senha esta aceita")
end if
%>