📄 thelistbox.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>使用下拉列表框</title>
<script runat="server">
Sub on_Submit(Src As Object, E As EventArgs)
Dim strItems as String
Dim intLoop as Integer = 0
For intLoop = 0 to 5
If lbListBox.Items(intLoop).Selected = true then
strItems += lbListBox.Items(intLoop).Text & "，"
End If
Next intLoop
Response.Write("您选择的日期是：")
Response.Write(strItems)
End Sub
</script>
</head>
<body>
<form runat ="server">
<asp:ListBox ID="lbListBox" Rows="6" runat="server" SelectionMode="multiple">
<asp:listitem value = 1>星期日</asp:listitem>
<asp:listitem value = 2>星期一</asp:listitem>
<asp:listitem value = 3>星期二</asp:listitem>
<asp:listitem value = 4>星期三</asp:listitem>
<asp:listitem value = 5>星期四</asp:listitem>
<asp:listitem value = 6>星期五</asp:listitem>
<asp:listitem value = 7>星期六</asp:listitem>
</asp:ListBox>
<asp:Button ID="btnSubmit" runat="server" Text="提交" OnClick="on_Submit" />
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -