DynuDNS
De Wiki Locaweb
|
O componente DynuDNS permite que você faça a tradução de endereços web(www.locaweb.com.br) em endereço ip(200.234.203.5) e ou ao contrário.
Resolvendo nome em ip<html> <head> <title>DynuDNS</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <form action="" method="post" name="form1"> <p>Domínio: <input type="text" name="txt_DNS"> <input type="submit" name="Enviar" value="Enviar"> <br> </p> </form> <% '##Declara as variáveis a serem utilizadas no script Dim DynuDNS, entrada, resultado '##Armazena os dados enviados no formulário em uma variável entrada = trim(request("txt_DNS")) '## Se o valor informado na variável 'entrada' for diferente de vazio If entrada <> "" Then '##Instancia o componente SET DynuDNS = Server.Createobject("Dynu.DNS") '##Traduz o nome informado em endereço ip e armazena na variável 'resultado' resultado = "Resultado: " & DynuDNS.Lookup(entrada) '##Exibe o endereço ip do domínio informado response.write "<p>" & resultado & "</p>" '##Remove a referência do objeto da memória Set DynuDNS = nothing End If %> </body> </html>
Resolvendo ip em nome<html> <head> <title>DynuDNS</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <form name="form1" method="post" action=""> <p>Endereço IP: <input type="text" name="txt_DNS"> <input type="submit" name="Enviar" value="Enviar"> <br> </p> </form> <% '##Declara as variáveis a serem utilizadas no script Dim DynuDNS, entrada, resultado '##Armazena os dados enviados no formulário em uma variável entrada = trim(request("txt_DNS")) '## Se o valor informado na variável for diferente de vazio If entrada <> "" Then '##Instancia o componente SET DynuDNS = Server.Createobject("Dynu.DNS") '##Traduz o nome informado em endereço ip e armazena na variável 'resultado' resultado = "Resultado: " & DynuDNS.ReverseLookup(entrada) '##Exibe o host do ip informado response.write "<p>" & resultado & "</p>" '##Remove a referência do objeto da memória SET DynuDNS = nothing End If %> </body> </html>
Veja tambémLinks |
|||
