📄 5-3.aspx

📁 程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的

💻 ASPX

字号:

<html>
<TITLE>[例5-3]服务器控件事件</TITLE>
<SCRIPT Language="VB" RUNAT="SERVER" >     
Sub Page_Load(sender As Object, e As EventArgs)
	If not Page.IsPostBack Then
		'web.Value = "网络"
		'news.Value = "报纸"
		'tv.Value = "电视"
		web.checked = true
	'lTitle.Text="请选择您获取信息的途径："
	End If
End Sub
Sub Submit_Onclick(sender As Object, e As EventArgs)
	Dim message As String = "您获取信息的途径是："
	if web.checked then message =  message & "网络"
	if news.checked then message =  message & "报纸"
	if tv.checked then message =  message & "电视"
	lDisplay.Text =  message
	
End Sub	
</Script >

 <body>
<form runat="server">
 请选择您获取信息的途径：<BR>  
 <Input type="radio" id="web" name="path" runat=server>网络<BR>
 <Input type="radio" id="news" name="path" runat=server>报纸<BR>
 <Input type="radio" id="tv" name="path" runat=server>电视<BR>
 <Input type="button" id="Submit" Value="确认" onserverclick="Submit_Onclick" runat=server/><p> 
 <asp:label id="lDisplay" forecolor="Blue" font-size="20pt" runat=server/>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -