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

								  Src="FeaturedProduct1.ascx" %>
								  Src="FeaturedProduct2.ascx" %>
				
				
				
				Sub Page_Load
				  Dim strFeatured As String
				  Dim RanNum As New Random
				  Dim ctlControl As Control
				
				  Select RanNum.Next( 1, 3 )
				  Case 1
				    ctlControl = LoadControl( "FeaturedProduct1.ascx" )
				    CType( ctlControl, FeaturedProduct1 ).BackColor = "Yellow"
				  Case 2
				    ctlControl = LoadControl( "FeaturedProduct2.ascx" )
				    CType( ctlControl, FeaturedProduct2 ).BackColor = "Yellow"
				  End Select
				  plhFeatured.Controls.Add( ctlControl )
				End Sub
				
				  
				
				
				DisplayFeaturedProductType.aspx
				
				
								  id="plhFeatured"
				  Runat="Server" />