asp.net技术内幕的书配源码

				
				
				
				
				Sub Button_Click( s As Object, e As EventArgs )
				  Dim objIPHostEntry As IPHostEntry
				
				  objIPHostEntry = Dns.GetHostByAddress( txtIP.Text )
				  lblHostName.Text = objIPHostEntry.HostName  
				End Sub
				
				
				
				
				Dns.aspx
				
				
				
				Enter an IP Address:
				
								  id="txtIP"
				  Runat="Server" />
				
								  Text="Submit!"
				  OnClick="Button_Click"
				  Runat="Server" />
				
				
								  id="lblHostName"
				  EnableViewState="False"
				  Runat="Server" />