📄 updatecalendar_form.asp
字号:
<%@ Language=VBScript %>
<% Option Explicit %>
<%
' ---------- Page Variables ----------
Dim dailyMsg ' The messgae for that day
Dim strPrevDay ' The previous day's date
Dim strNextDay ' The next day's date
Dim objConn, strConn, strSQL, objRS ' Database Variables
' ---------- Variable Definitions ----------
strPrevDay = Server.URLEncode(DateAdd("d", -1, Request.QueryString("currentDate")))
strNextDay = Server.URLEncode(DateAdd("d", 1, Request.QueryString("currentDate")))
%>
<HTML>
<HEAD>
<TITLE>Caledar - <%= MonthName(Month(Request("currentDate"))) & " " & Day(Request("currentDate")) & ", " & Year(Request("currentDate")) %></TITLE>
<STYLE TYPE="text/css">
<!--
BODY {background-color: #FFFFFF; text-align: center;}
A {text-decoration: none;}
A:active {color: #000000;}
A:visited {color: #000000;}
A:link {color: #000000;}
A:hover {color: #D80E0E;}
.blackBacking {background-color: #000000;}
.names {background-color: #ff9900; font-size: 13px; color: #FFFFFF; text-decoration: none; text-align: center; font-family: Verdana; font-weight: bold;}
.text {background-color: #FFFFFF; font-size: 12px; color: #000000; text-align: center; font-family: Verdana;}
-->
</STYLE>
</HEAD>
<BODY>
<CENTER>
<TABLE CELLPADDING=0 CELLSPACING=0 WIDTH=600 BORDER=0>
<TR>
<TD CLASS="blackBacking">
<TABLE CELLPADDING=0 CELLSPACING=1 WIDTH=600 BORDER=0>
<TR>
<TD CLASS="names" HEIGHT=30px>
<A HREF="updateCalendar_form.asp?currentDate=<%= strPrevDay %>">« Prev</A>
<%= monthname(month(Request("currentDate"))) & " " & day(Request("currentDate")) & ", " & year(Request("currentDate")) %>
<A HREF="updateCalendar_form.asp?currentDate=<%= strNextDay %>">Next »</A>
</TD>
</TR>
<TR>
<TD CLASS="text" HEIGHT=300px>
<FORM NAME="updateCalendar" ACTION="updateCalendar_script.asp" METHOD="POST">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("db.mdb") & ";Persist Security Info=False;"
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL= "SELECT * FROM calendar WHERE calendarDate = #" & Request.QueryString("currentDate") & "#"
objRS.Open strSQL, objConn
If (NOT objRS.EOF) Then
dailyMsg = objRS("calendarText")
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<TEXTAREA NAME="calendarText" COLS=35 ROWS=15><%= dailyMsg %></TEXTAREA><BR><BR>
<INPUT TYPE="SUBMIT" VALUE="更新日历&备忘录">
<INPUT TYPE="HIDDEN" NAME="currentDate" VALUE="<%= Request("currentDate") %>">
</TD>
</TR>
<TR>
<TD CLASS="names" HEIGHT=30px>
<A HREF="calendar.asp?currentDate=<%= Request.QueryString("currentDate") %>"><font color="#FFffff">回到日历&备忘录首页</A>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
<!-- 请保留本站链接信息 -->
<h6><td height="20"><div align="center"><a href="http://my.52725.com/message" target="_blank"><font color="#FF9933">给我们留言</a>
<FONT COLOR="#000000" FACE="Verdana" SIZE="1">
Copyright © 2005. All Rights Reserved.<BR>
Powered By: <A HREF="http://www.52725.com" target=blank><font color="#FF9933">www.52725.com</A>
</FONT>
<h6><td height="20"><div align="center"><a href="http://my.52725.com/3/916.htm" target="_blank"><font color="#FF9933">使用必读</a>
<!-- 请保留本站链接信息 -->
</CENTER>
</BODY>
</HTML>
<SCRIPT LANGUAGE=JavaScript>
document.updateCalendar.calendarText.focus()
</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -