📄 day.asp

📁 功能齐全的oa系统
💻 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">
<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
<tr>
<td id="tdForDay" class="SelectViewToolbar" Onclick="window.location.href='day.asp'">&nbsp;日&nbsp;视&nbsp;图&nbsp;</td>
<td id="tdForWeek" class="ViewToolbar" Onclick="window.location.href='week.asp'">&nbsp;周&nbsp;视&nbsp;图&nbsp;</td>
<td id="tdForMonth" class="ViewToolbar" Onclick="window.location.href='Month.asp'">&nbsp;月&nbsp;视&nbsp;图&nbsp;</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 >&nbsp;</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 + -