📄 thescalendar.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<!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>
<style type="text/css">
<!--
.style1 {color: #CECFCE}
-->
</style>
<script runat="server">
Sub myCalendar_DayRender(sender As Object, e As DayRenderEventArgs)
SELECT CASE TRUE
CASE E.Day.Date.Month =10 AND E.Day.Date.day = 1
E.Cell.Controls.Add(new LiteralControl("国庆" ))
CASE E.Day.Date.Month =1 AND E.Day.Date.day = 1
E.Cell.Controls.Add(new LiteralControl("元旦"))
CASE E.Day.Date.Month =12 AND E.Day.Date.day = 25
E.Cell.Controls.Add(new LiteralControl("圣诞节"))
END SELECT
End Sub
</script>
</head>
<body>
<form runat="server">
<div align="center">
<table width="701" height="378" border="0">
<tr>
<td width="695" height="368" align="left" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><div align="center"><span class="style1">
<asp:Calendar BackColor="#FFFFFF" BorderColor="#999999" BorderWidth="1" DayHeaderStyle-BorderColor="#999999" DayHeaderStyle-ForeColor="#000000" DayNameFormat="Short" DayStyle-BorderColor="#999999" DayStyle-ForeColor="#0000FF" DayStyle-HorizontalAlign="left" DayStyle-VerticalAlign = "TOP" FirstDayOfWeek="Sunday" ForeColor="#FFFFCC" Height="550" ID="myCalendar" OtherMonthDayStyle-BorderColor="#999999" OtherMonthDayStyle-ForeColor="#000000" runat="server" ShowDayHeader="true" ShowGridLines="true" ShowNextPrevMonth="true" ShowTitle="true" TitleStyle-BackColor="#CCCCCC" TitleStyle-BorderColor="#000000" TitleStyle-ForeColor="#000099" Width="650" OnDayRender="myCalendar_DayRender" ></asp:Calendar>
</span></div></td>
</tr>
</table>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -