dns1.aspx

来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 12 行

<%@Import NameSpace="System.Net"%>
<script language="VB" runat=server>
 protected Sub do1Click(Src As Object, E As EventArgs)
 Dim hostInfo As IPHostEntry=Dns.GetHostByName(txtDomain.Text)
 showmsg.Text=hostInfo.AddressList(0).ToString()
 End Sub
</script>
<asp:Label runat=server id=showmsg/>
 <form id=testForm runat=server>
 要查找的网络域名：<asp:TextBox runat=server id=txtDomain/>
 <asp:Button runat=server id=do1 Text="查找" onClick=do1Click/>
</form>