Risolvere un nome di dominio
<%@ Import Namespace="System.Net" %>
<%@ Page Language="vb" %>
<HTML>
<script language="vb" runat="server">
Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim HostInfo As IPHostEntry = Dns.GetHostByAddress(tbIP.Text)
tbDomain.Text = HostInfo.HostName
Catch
tbDomain.Text = "Host sconosciuto!"
End Try
End Sub
</script>
<body>
<form name="Form1" runat="server" ID="Form1">
<TABLE id="Table1" cellSpacing="0" cellPadding="4" width="300" border="0">
<TR>
<TD>IP</TD>
<TD>
<asp:textbox runat="server" id="tbIP" /></TD>
</TR>
<TR>
<TD></TD>
<TD>
<asp:button runat="server" text="Risolvi" ID="btnSubmit" OnClick="btnSubmit_Click" /></TD>
</TR>
</TABLE>
<BR>
<asp:label runat="server" id="tbDomain" />
</form>
</body>
</HTML>
Scarica il Codice...
Stampa la pagina