处理控件的事件

    ASP.NET服务器控件也可以暴露和引发服务器事件，以供页面开发者处理。页面开发者可以通过宣告式地给每个控件编写事件来实现这项功能（在这种情况下，事件的属性名称表明事件的名称，属性的值表明被调用的方法的名称）。例如，下面的代码示例演示了如何给按钮控件编写OnClick事件。

＜html＞
＜script language="VB" runat="server"＞
Sub EnterBtn_Click(Sender As Object, E As EventArgs)
Message.Text = "Hi " & Name.Text & ", welcome to ASP.NET!"
End Sub
＜/script＞

＜body＞
＜h3＞＜font face="Verdana"＞Handling Control Action Events＜/font＞＜/h3＞
＜p＞
This sample demonstrates how to access a <asp:textbox> server control within the "Click" event of a <asp:button>, and use its content to modify the text of a <asp:label>.
＜p＞
＜hr＞

＜form action="controls3.aspx" runat=server＞
＜font face="Verdana"＞ Please enter your name:
＜asp:textbox id="Name" runat=server/＞
＜asp:button text="Enter" Onclick="EnterBtn_Click" runat=server/＞
＜p＞
＜asp:label id="Message" runat=server/＞
＜/font＞
＜/form＞
＜/body＞
＜/html＞ 

    处理多个服务器事件

    事件处理程序为页面开发者在ASP.NET页面中构造逻辑提供了一条清晰的途径。例如，下面的例子演示了如何在一个页面上处理四个按钮事件。

＜html＞
＜script language="VB" runat="server"＞
Sub AddBtn_Click(Sender As Object, E As EventArgs)
If Not (AvailableFonts.SelectedIndex = -1)
InstalledFonts.Items.Add(New ListItem(AvailableFonts.SelectedItem.Value))
AvailableFonts.Items.Remove(AvailableFonts.SelectedItem.Value)
End If
End Sub

Sub AddAllBtn_Click(Sender As Object, E As EventArgs)
Do While Not (AvailableFonts.Items.Count = 0)
InstalledFonts.Items.Add(New ListItem(AvailableFonts.Items(0).Value))
AvailableFonts.Items.Remove(AvailableFonts.Items(0).Value)
Loop
End Sub

Sub RemoveBtn_Click(Sender As Object, E As EventArgs)
If Not (InstalledFonts.SelectedIndex = -1)
AvailableFonts.Items.Add(New ListItem(InstalledFonts.SelectedItem.Value))
InstalledFonts.Items.Remove(InstalledFonts.SelectedItem.Value)
End If
End Sub

Sub RemoveAllBtn_Click(Sender As Object, E As EventArgs)
Do While Not (InstalledFonts.Items.Count = 0)
AvailableFonts.Items.Add(New ListItem(InstalledFonts.Items(0).Value))
InstalledFonts.Items.Remove(InstalledFonts.Items(0).Value)
Loop
End Sub
＜/script＞
＜body＞
＜h3＞＜font face="Verdana"＞Handling Multiple Control Action Events＜/font＞＜/h3＞
＜p＞
This sample demonstrates how to handle multiple control action events raised from
different <asp:button> controls.
＜p＞
＜hr＞

＜form action="controls4.aspx" runat=server＞
＜table＞
＜tr＞
＜td＞
Available Fonts
＜/td＞
＜td＞
＜!-- Filler --＞
＜/td＞
＜td＞
Installed Fonts
＜/td＞
＜/tr＞
＜tr＞
＜td＞
＜asp:listbox id="AvailableFonts" width="100px" runat=server＞
＜asp:listitem＞Roman＜/asp:listitem＞
＜asp:listitem＞Arial Black＜/asp:listitem＞
＜asp:listitem＞Garamond＜/asp:listitem＞
＜asp:listitem＞Somona＜/asp:listitem＞
＜asp:listitem＞Symbol＜/asp:listitem＞
＜/asp:listbox＞
＜/td＞
＜td＞
＜!-- Filler --＞
＜/td＞
＜td＞
＜asp:listbox id="InstalledFonts" width="100px" runat=server＞
＜asp:listitem＞Times＜/asp:listitem＞
＜asp:listitem＞Helvetica＜/asp:listitem＞
＜asp:listitem＞Arial＜/asp:listitem＞
＜/asp:listbox＞
＜/td＞
＜/tr＞
＜tr＞
＜td＞
＜!-- Filler --＞
＜/td＞
＜td＞
＜asp:button text="＜＜" OnClick="RemoveAllBtn_Click" runat=server/＞
＜asp:button text="＜" OnClick="RemoveBtn_Click" runat=server/＞
＜asp:button text="＞" OnClick="AddBtn_Click" runat=server/＞
＜asp:button text="＞＞" OnClick="AddAllBtn_Click" runat=server/＞
＜/td＞
＜td＞
＜!-- Filler --＞
＜/td＞
＜/tr＞
＜/table＞
＜/form＞
＜/body＞
＜/html＞ 

    执行页面导航（第一种情况）

    在实际的Web应用程序中，多个页面之间的导航是常见的。下面的例子演示了如何使用＜asp:hyperlink runat=server＞控件导航到另外一个页面（同时传递了自定义的查询字符串参数）。接着这个例子演示了如何轻易地在目标页面上得到这些查询字符串参数。

＜html＞
＜script language="VB" runat="server"＞
Sub Page_Load(Sender As Object, E As EventArgs)
Dim RandomGenerator As Random
RandomGenerator = New Random(DateTime.Now.Millisecond)
Dim RandomNum As Integer
RandomNum = RandomGenerator.Next(0, 3)
Select RandomNum
Case 0:
Name.Text = "Scott"
Case 1:
Name.Text = "Fred"
Case 2:
Name.Text = "Adam"
End Select
AnchorLink.NavigateUrl = "controls_navigationtarget_vb.aspx?name=" & System.Web.HttpUtility.UrlEncode(Name.Text)
End Sub
＜/script＞
＜body＞
＜h3＞＜font face="Verdana"＞Performing Page Navigation (Scenario 1)＜/font＞＜/h3＞
＜p＞
This sample demonstrates how to generate a HTML Anchor tag that will cause the client to
navigate to a new page when he/she clicks it within the browser.
＜p＞
＜hr＞
＜p＞
＜asp:hyperlink id="AnchorLink" font-size=24 runat=server＞
Hi ＜asp:label id="Name" runat=server/＞ please click this link!
＜/asp:hyperlink＞
＜/body＞
＜/html＞ 

    执行页面导航（第二种情况）

   并非所有的页面导航都由客户端的超级链接发起。ASP.NET页面开发者调用Response.Redirect(url)方法也可以发起客户端页面的重定向或导航。这种情况典型发生在真正进行导航之前，服务器端需要验证客户端的输入信息的时候。

    下面的例子演示了如何使用Response.Redirect方法把参数传递到另外一个目标页面。它还演示了如何在目标页面上简单地获取这些参数。

＜html＞
＜script language="VB" runat="server"＞
Sub EnterBtn_Click(Sender As Object, E As EventArgs)
　If Not (Name.Text = "")
　　Response.Redirect("Controls_NavigationTarget_vb.aspx?name=" & System.Web.HttpUtility.UrlEncode(Name.Text))
　Else
　　Message.Text = "Hey! Please enter your name in the textbox!"
　End If
End Sub
＜/script＞
＜body＞
＜h3＞＜font face="Verdana"＞Performing Page Navigation (Scenario 2)＜/font＞＜/h3＞
＜p＞
This sample demonstrates how to navigate to a new page from within a <asp:button> click event, passing a <asp:textbox> value as a querystring argument (validating first that the a legal textbox value has been specified).
＜p＞
＜hr＞
＜form action="controls6.aspx" runat=server＞
　＜font face="Verdana"＞Please enter your name:
　　＜asp:textbox id="Name" runat=server/＞
　　＜asp:button text="Enter" Onclick="EnterBtn_Click" runat=server/＞
　　＜p＞
　　＜asp:label id="Message" forecolor="red" font-bold="true" runat=server/＞
　＜/font＞
＜/form＞
＜/body＞
＜/html＞