📄 calender.aspx
字号:
<Script Language="VB" Runat="Server">
Sub SeleCl(Sender As Object,e As EventArgs)
Dim Y,M As String
Y = DRPYear.SelectedItem.Text
M = DRPMonth.SelectedItem.Text
Cal.TodaysDate = "00:00:00 AM," & M & "/01/" & Y
End Sub
</Script>
<Html><Body background="image/13.jpg"><Br>
<Center><Font Size=6 Face="隶书" Color="black">请选择要显示的月份</Font></Center><Br>
<Form Runat="Server"><Center>
<Asp:DropDownList Runat="Server" Id="DRPYear">
<Asp:ListItem Text="2000" Value="2000" />
<Asp:ListItem Text="2001" Value="2001" />
<Asp:ListItem Text="2002" Value="2002" />
<Asp:ListItem Text="2003" Value="2003" />
<Asp:ListItem Text="2004" Value="2004" />
<Asp:ListItem Text="2005" Value="2005" />
<Asp:ListItem Text="2006" Value="2006" />
<Asp:ListItem Text="2007" Value="2007" />
<Asp:ListItem Text="2008" Value="2008" />
<Asp:ListItem Text="2009" Value="2009" />
</Asp:DropDownList> 年
<Asp:DropDownList Runat="Server" Id="DRPMonth">
<Asp:ListItem Text="01" Value="01" />
<Asp:ListItem Text="02" Value="02" />
<Asp:ListItem Text="03" Value="03" />
<Asp:ListItem Text="04" Value="04" />
<Asp:ListItem Text="05" Value="05" />
<Asp:ListItem Text="06" Value="06" />
<Asp:ListItem Text="07" Value="07" />
<Asp:ListItem Text="08" Value="08" />
<Asp:ListItem Text="09" Value="09" />
<Asp:ListItem Text="10" Value="10" />
<Asp:ListItem Text="11" Value="11" />
<Asp:ListItem Text="12" Value="12" />
</Asp:DropDownList> 月
<ASP:Button Text="显示" Runat="server" OnClick="SeleCl"/><Br><Br>
<Asp:Calendar Runat="Server" Id="Cal" Width="500" NextPrevFormat="ShortMonth" BorderColor="Blue"
ShowGridLines="True" Visible="true">
<DayHeaderStyle Font-Bold="True" BackColor="#ccccaa" />
<TitleStyle Font-Bold="True" ForeColor="#0000ff" BackColor="#88ccee" />
</Asp:Calendar>
<Br>
</Form>
</Center>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -