'**************************************
' Name: Complete ASP Calendar
' Description:Displays a dynamic calenda
' r in html using asp
' By: Matt Pantana
'
' Inputs:You can input the month or the
' year, but neither is required
'
' Returns:a calendar
'
' Assumes:Just copy and paste the whole
' thing
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=6668&lngWId=4 'for details. '**************************************
<%
response.expires=0
Dim CurMonth
Dim CurDay
Dim CurYear
Dim NumOfDays
Dim CurCell
Dim onDay
Dim FoundFirst
CurMonth = request.querystring("cmonth")
CurYear = request.querystring("cyear")
CurDay = request.querystring("cday")
if CurMonth = "" Then curMonth = month(date)
if CurYear = "" Then CurYear = year(date)
if CurDay = "" Then CurDay = day(date)
FirstDay = weekday(CurMonth & "/01/" & CurYear)
cmonth = CurMonth
cyear = CurYear
NumOfDays = getlastday(cmonth,cyear)
FoundFirst = False
curcell = 1
onDay = 0
function GetLastDay( tmonth, tyear )
tmonth = tmonth + 1
if tmonth > 12 Then
tmonth = tmonth - 12
tyear = tyear + 1
End if
Dim x
x = DateAdd("d", -1, tmonth & "/01/" & tyear)
GetLastDay = Day( x )
End function
rows = 5
if firstday >= 5 and numofdays = 31 Then
rows = 6
End if
if firstday >= 6 and numofdays = 30 Then
rows = 6
End if
function DayOf()
if foundFirst Then
onDay = OnDay + 1
if onDay > NumofDays Then
DayOf = ""
Else
DayOf = onDay
End if
Else
if curcell = Firstday or firstday = 1 Then foundfirst = True
if foundFirst Then
onDay = OnDay + 1
if onDay > NumofDays Then
DayOf = ""
Else
DayOf = onDay
End if
Else
DayOf = ""
End if
End if
curcell = curcell + 1
if (OnDay + 1) = int(CurDay) and int(CurMonth) = int(month(date)) and int(CurYear) = year(date) Then
bgcolor = "yellow"
Else
bgcolor = ""
End if
End function
%>
<HTML>
<HEAD>
<TITLE>Calendar</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<SCRIPT language="VBScript">
Sub cmonth_onchange
frm.submit
End Sub
Sub cyear_onchange
frm.submit
End Sub
</SCRIPT>
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000">
<TABLE width="350" border="0" cellspacing="0" cellpadding="0">
<FORM name=frm method=get action=calendar.asp>
<TR>
<TD width="37"> </TD>
<TD width="137"> </TD>
<TD width="144"> </TD>
<TD width="32"> </TD>
</TR>
<TR>
<TD width="37"> </TD>
<TD width="137">
<Select name="cmonth">
<% For i = 1 To 12 %>
<OPTION value="<%=i%>" <%if int(curmonth) = i Then response.write("Selected")%>><%=monthname(i)%></OPTION>
<% Next %>
</Select>
</TD>
<TD width="144">
<Select name="cyear">
<% For i = 2050 To 1980 step -1 %>
<OPTION value="<%=i%>" <%if int(curyear) = i Then response.write("Selected")%>><%=i%></OPTION>
<% Next %>
</Select>
</TD>
<TD width="32"> </TD>
</TR>
<TR>
<TD width="37"> </TD>
<TD width="137"> </TD>
<TD width="144"> </TD>
<TD width="32"> </TD>
</TR>
</FORM>
</TABLE>
<TABLE width="350" border="0" cellspacing="0" cellpadding="0">
<TR bgcolor="#666666">
<TD>
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif"><B><FONT color="#FFFFFF">S</FONT></B></FONT></DIV>
</TD>
<TD>
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif"><B><FONT color="#FFFFFF">M</FONT></B></FONT></DIV>
</TD>
<TD>
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif"><B><FONT color="#FFFFFF">T</FONT></B></FONT></DIV>
</TD>
<TD>
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif"><B><FONT color="#FFFFFF">W</FONT></B></FONT></DIV>
</TD>
<TD>
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif"><B><FONT color="#FFFFFF">T</FONT></B></FONT></DIV>
</TD>
<TD>
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif"><B><FONT color="#FFFFFF">F</FONT></B></FONT></DIV>
</TD>
<TD>
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif"><B><FONT color="#FFFFFF">S</FONT></B></FONT></DIV>
</TD>
</TR>
<% For i = 1 To rows %>
<TR>
<TD bgcolor="<%=bgcolor%>">
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif" size="2"><%=DayOf%></FONT></DIV>
</TD>
<TD bgcolor="<%=bgcolor%>">
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif" size="2"><%=DayOf%></FONT></DIV>
</TD>
<TD bgcolor="<%=bgcolor%>">
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif" size="2"><%=DayOf%></FONT></DIV>
</TD>
<TD bgcolor="<%=bgcolor%>">
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif" size="2"><%=DayOf%></FONT></DIV>
</TD>
<TD bgcolor="<%=bgcolor%>">
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif" size="2"><%=DayOf%></FONT></DIV>
</TD>
<TD bgcolor="<%=bgcolor%>">
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif" size="2"><%=DayOf%></FONT></DIV>
</TD>
<TD bgcolor="<%=bgcolor%>">
<DIV align="center"><FONT face="Arial, Helvetica, sans-serif" size="2"><%=DayOf%></FONT></DIV>
</TD>
</TR>
<% Next %>
</TABLE>
</BODY>
</HTML>
|
By 4 Users
Report Bad Submission
5/19/2001 10:56:32 AM: