planner.ascx

asp入门到精通的源代码

<script language="VB" runat="server">
   Public sub Page_Load(obj as object, e as eventargs)
      if not Page.IsPostBack then
         Session.Clear
         Calendar1.SelectedDate = DateTime.Now
         DataBind
      end if
   End Sub
   
   Public sub SelectionChanged(obj as object, e as eventargs)
      if not (Session(Calendar1.SelectedDate.ToString) is nothing)
         dim l as Label = new label
         l.Text = Session(Calendar1.SelectedDate.ToString)
         DayPanel.Controls.Add(l)
      end if
      DataBind
   End Sub
   
   Public sub NoteChanged(obj as object, e as eventargs)
      if obj.text <> "" then
         dim l as Label = New Label
         l.text = "<li>" & obj.Text & "</li>"
      
         DayPanel.Controls.Add(l)
         Session(Calendar1.SelectedDate.ToString) = l.text
         NoteBox.Text = ""
      end if
   End Sub
</script>

<table width="100%">
<tr>
   <td width="50%" valign="top">
      <font face="arial">
         <asp:Label id="DayLabel" runat="server" 
            Height="25px" Width="100%"
            BackColor="#ddaa66" ForeColor="white"
            Font-Bold="true" BorderStyle="groove"
            Text='<%# Calendar1.SelectedDate.ToString("dddd, MMMM dd yyyy" ) %>' />
         <br>
         <asp:Panel id="DayPanel" runat="server"
            backcolor="#ffffff" borderStyle="groove" 
            Height="225px" >
            
            <asp:Textbox id="NoteBox" runat="server"
               OnTextChanged="NoteChanged"
               TextMode="Multiline"
               Rows=5 Width="100%" 
               AutoPostBack="true" /><p>
         </asp:Panel>
      </font>
   </td>
   <td width="50%" rowspan="2" valign="top">
      <asp:Calendar id="Calendar1" runat="server"
         OnSelectionChanged="SelectionChanged"
         Cellpadding="5" Cellspacing="5"
         DayHeaderStyle-Font-Bold="True"
         DayNameFormat="Short"
         Font-Name="Arial" Font-Size="12px"
         height="250px"
         NextPrevFormat="ShortMonth"
         NextPrevStyle-ForeColor="white"
         SelectedDayStyle-BackColor="#ffcc66"
         SelectedDayStyle-Font-Bold="True"
         SelectionMode="DayWeekMonth"
         SelectorStyle-BackColor="#99ccff"
         SelectorStyle-ForeColor="navy"
         SelectorStyle-Font-Size="9px"
         ShowTitle="true"
         TitleStyle-BackColor="#ddaa66"
         TitleStyle-ForeColor="white"
         TitleStyle-Font-Bold="True"
         TodayDayStyle-Font-Bold="True" />
   </td>
</tr>
</table>