📄 day.asp
字号:
<% Option Explicit %>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<html>
<head>
<%
Sub Main
Dim strToday, strMove
strToday = Request.QueryString("Today")
strMove = Request.QueryString("move")
If strToday = "" Then
strToday = Date()
strToday = Year(strToday) & "/" & Month(strToday) & "/" & Day(strToday)
End If
Select Case LCase(strMove)
Case "prev"
strToday = DateAdd("d", -1, strToday)
strToday = Year(strToday) & "/" & Month(strToday) & "/" & Day(strToday)
Case "next"
strToday = DateAdd("d", 1, strToday)
strToday = Year(strToday) & "/" & Month(strToday) & "/" & Day(strToday)
End Select
%>
<script language="javascript">
function prev() {
document.location.href = "Day.asp?Today=<%= strToday %>&move=prev";
}
function next() {
document.location.href = "Day.asp?Today=<%= strToday %>&move=next";
}
</script>
<link REL="STYLESHEET" HREF="<%=Application("RootPath")%>Templet/Main.css" type="text/css">
</head>
<body topmargin="0" leftmargin="0" LANGUAGE="javascript" Scroll="no" background="../../images/ui/bg.jpg">
<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
<tr>
<td id="tdForDay" class="SelectViewToolbar" Onclick="window.location.href='day.asp'"> 日 视 图 </td>
<td id="tdForWeek" class="ViewToolbar" Onclick="window.location.href='week.asp'"> 周 视 图 </td>
<td id="tdForMonth" class="ViewToolbar" Onclick="window.location.href='Month.asp'"> 月 视 图 </td>
<td class="SelectViewToolbar" width="100%"></td>
</tr>
</table>
<table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%" height="100%" class="PreNextToolbar">
<tr>
<td width="100%" align = "left" nowrap>
<IMG id=btnPre style="CURSOR: hand"
onclick=prev() alt=前一天 src="../images/arrow_left.gif"
vspace=10 border=0 name=btnPre >
<label style="FONT: 9pt 宋体"><%= Year(strToday) & "年" & Month(strToday) & "月" %></label>
<label style="FONT: 14pt verdana"><%= Day(strToday) %></label>
<label style="FONT: 9pt 宋体">日</label>
<label style="FONT: 9pt 宋体"><%= WeekDayName(Weekday(strToday)) %></label>
<IMG id=btnNext style="CURSOR: hand"
onclick=next() alt=后一天
src="../images/arrow_right.gif" vspace=10 border=0 name=btnNext ></td>
<td > </td>
</tr>
<tr>
<td VALIGN="top" bgcolor="#f0f0f0" height="100%" colspan=4>
<iframe ALIGN="middle" id="fraContent" name="fraContent" style="WIDTH: 100%; HEIGHT: 96%" FRAMEBORDER="0" SCROLLING="yes"
SRC="GetDay.asp?Today=<%=strToday%>" width="100%" height="95%"> </iframe>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
Call Main
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -