📄 month.asp
字号:
<% Option Explicit %> <%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("m", -1, strToday) strToday = Year(strToday) & "/" & Month(strToday) & "/" & Day(strToday) Case "next" strToday = DateAdd("m", 1, strToday) strToday = Year(strToday) & "/" & Month(strToday) & "/" & Day(strToday) End Select%><html><head><script language="javascript"> //alert(<%= strToday %>) function prev() { document.location.href = "Month.asp?Today=<%= strToday %>&move=prev"; } function next() { document.location.href = "Month.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="ViewToolbar" Onclick="window.location.href='day.asp'"> 日 视 图 </td><td id="tdForWeek" class="ViewToolbar" Onclick="window.location.href='week.asp'"> 周 视 图 </td><td id="tdForMonth" class="SelectViewToolbar" Onclick="window.location.href='Month.asp'"> 月 视 图 </td><td class="SelectViewToolbar" width="100%"></td> </tr> </table><table BORDER="0" class="PreNextToolbar" CELLPADDING="0" CELLSPACING="0" WIDTH="100%" height="100%"> <tr> <td width="100%" align = "left" nowrap> <img src="../images/arrow_left.gif" BORDER="0" ALT="上一月" VSPACE="10" style="cursor:hand" id="btnPre" name="btnPre" onclick="prev()"> <label style="font: 14pt verdana"> <%= Year(strToday) %>年<%= Month(strToday) %> </label> <img src="../images/arrow_right.gif" BORDER="0" ALT="下一月" VSPACE="10" style="cursor:hand" id="btnNext" name="btnNext" onclick="next()"> </td> <td width="100%"> </td> </tr> <tr> <td VALIGN="TOP" bgcolor="#F0F0F0" height="100%" colspan=4> <iframe ALIGN="middle" id="fraContent" style="WIDTH: 100%; HEIGHT: 96%" name="fraContent" FRAMEBORDER="0" SCROLLING="YES" SRC="GetMonth.asp?Today=<%= strToday %>" width="100%" height="100%" scrolling=yes> </iframe> </td> </tr> </table></center> </body> </html> <%End Sub Call Main %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -