controlevents.ascx

来自「asp.net技术内幕的书配源码」· ASCX 代码 · 共 20 行

<Script Runat="Server">

Sub Page_Load
  Dim RanNum As New Random
  
  Select Case RanNum.Next( 3 )
  Case 0
    lblQuote.Text = "A penny saved is a penny earned"
  Case 1
    lblQuote.Text = "Look before you leap"
  Case 2
    lblQuote.Text = "He who hesitates is lost"
  End Select
End Sub

</Script>

<asp:Label
  id="lblQuote"
  Runat="Server" />