<HTML>
<HEAD>
<title>Vb4</title>
<script language="vbscript" runat="server">
Sub BtnOk_Click(sender As Object, e As EventArgs)
Message.Text = "嗨！你在"& MyCalendar.SelectedDate.ToShortDateString()&"选择了："&bookcategory.SelectedItem.Text
end sub
</script>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content=" [url]http://schemas.microsoft.com/intellisense/ie5[/url] ">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server" action="vb4.aspx">
姓名：
<asp:TextBox id="Name" runat="server" />
<asp:Calendar id="MyCalendar" runat="server" />分类：
<asp:dropdownlist id="bookcategory" Runat="server">
<asp:ListItem Value="SQL Server 2000 Transact－SQL程序设计">SQL Server 2000 Transact－SQL程序设计</asp:ListItem>
<asp:ListItem Value="用ADO.Net开发Asp.Net数据库程序">用ADO.Net开发Asp.Net数据库程序</asp:ListItem>
</asp:dropdownlist>
<asp:button text="确认" id="BtnOk" runat="server" OnClick="BtnOk_Click" style="Z-INDEX: 101; LEFT: 88px; POSITION: absolute; TOP: 272px" />
<asp:Label id="Message" runat="server" style="Z-INDEX: 102; LEFT: 240px; POSITION: absolute; TOP: 272px" />
</form>
</body>
<HEAD>
<title>Vb4</title>
<script language="vbscript" runat="server">
Sub BtnOk_Click(sender As Object, e As EventArgs)
Message.Text = "嗨！你在"& MyCalendar.SelectedDate.ToShortDateString()&"选择了："&bookcategory.SelectedItem.Text
end sub
</script>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content=" [url]http://schemas.microsoft.com/intellisense/ie5[/url] ">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server" action="vb4.aspx">
姓名：
<asp:TextBox id="Name" runat="server" />
<asp:Calendar id="MyCalendar" runat="server" />分类：
<asp:dropdownlist id="bookcategory" Runat="server">
<asp:ListItem Value="SQL Server 2000 Transact－SQL程序设计">SQL Server 2000 Transact－SQL程序设计</asp:ListItem>
<asp:ListItem Value="用ADO.Net开发Asp.Net数据库程序">用ADO.Net开发Asp.Net数据库程序</asp:ListItem>
</asp:dropdownlist>
<asp:button text="确认" id="BtnOk" runat="server" OnClick="BtnOk_Click" style="Z-INDEX: 101; LEFT: 88px; POSITION: absolute; TOP: 272px" />
<asp:Label id="Message" runat="server" style="Z-INDEX: 102; LEFT: 240px; POSITION: absolute; TOP: 272px" />
</form>
</body>
</HTML>
本文转自 simeon2005 51CTO博客，原文链接:http://blog.51cto.com/simeon/17539
