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

				
				
				
				
				  Sub Button_Click( s As Object, e As EventArgs )
				    Dim myAdder As New Adder
				
				    myAdder.FirstValue = txtVal1.Text
				    myAdder.SecondValue = txtVal2.Text
				    lblOutput.Text = myAdder.AddValues()
				  End Sub
				
				
				
				
				AddValues.aspx
				
				
				
				
				Value 1:
								  ID="txtVal1"
				  Runat="Server" />
				
				
				
				Value 2:
								  ID="txtVal2"
				  Runat="Server" />
				
				
								  Text="Add!"
				  OnClick="Button_Click"
				  Runat="Server" />
				
				
				Output:
								  ID="lblOutput"
				  Runat="Server" />