📄 viewday.asp
字号:
<%@ Language=VBScript %>
<% Option Explicit %>
<%
' ---------- Page Functions ----------
Function FormatStr(String)
' Replaces a double carrige return with a paragraph break
' a single carrige return with a break rule and CHR(13) with nothing
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "</P><P>")
String = Replace(String, CHR(10), "<BR>")
FormatStr = String
End Function
' ---------- Page Variables ----------
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="viewDay.asp?currentDate=<%= strPrevDay %>">« Prev</A>
<%= monthname(month(Request("currentDate"))) & " " & day(Request("currentDate")) & ", " & year(Request("currentDate")) %>
<A HREF="viewDay.asp?currentDate=<%= strNextDay %>">Next »</A>
</TD>
</TR>
<TR>
<TD CLASS="text" HEIGHT=300px>
<%
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 (objRS.EOF) Then
Response.write ("No plans have been set for this date.")
Else
Response.write FormatStr(objRS("calendarText"))
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</TD>
</TR>
<TR>
<TD CLASS="names" HEIGHT=30px>
<A HREF="calendar.asp?currentDate=<%= Request.QueryString("currentDate") %>">Back to the Calendar</A>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<!-- 请保留本站链接信息 -->
<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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -