5-3.aspx
来自「程序源代码分成两个部分:  一部分是用记事本或EditPlus」· ASPX 代码 · 共 33 行
ASPX
33 行
<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 + =
减小字号Ctrl + -
显示快捷键?