Codango: ASP Code Snippet

JSP

Share The Love

You are 1 of 18 Active ASP Visitors

ASP Home | Resources | Write a Review | My Favor-Its | Login

A Nice Tree Calendar GeneratorCode Snippet

Read Reviews | Report Errors

[+][+]

1
Reviews

0
Favor-It

Generate a Calendar in a tree list view.Specify the number of years and whether or not you want to start in a year older than the current one. The calendar has links for each day that pass the date as a querystring value. Code: ASP 3.0 & VBScript


		Code Snippet

Code Written By: Mergatroid from www.cool.co.za

<!--
  ************** Mail Any ideas/comments to info@cool.co.za ******************
  You will need 2 gifs root.gif and fold_o.gif  which will represent a closed folder and
  an open folder.Store these in an images directory in the folder where this script is stored.
  Also a site style (.css) in the root folder.
  Source is available at http://www.cool.co.za/asp_source/treecal/tree_calendar.asp
  Enjoy
-->
<%
 Function NumDays(dtSelected)
    '******* Function accepts a date and returns the number of days in a month
    
     datetime   = dateadd("d", -datepart("d",dtSelected)+1,dtSelected)
     datetime   = dateadd("m", 1, datetime)
     datetime   = dateadd("d", -1, datetime) 
     NumDays    = datepart("d",datetime)     
     
 end function

Function daySuff( byVal intDay )
 '******** Accepts a day of the month as an integer and returns the appropriate suffix
 Dim strOrd

 Select Case intDay
 Case 1, 21, 31
  strOrd = "st"
 Case 2, 22
  strOrd = "nd"
 Case 3, 23
  strOrd = "rd"
 Case Else
  strOrd = "th"
 End Select

 daySuff = strOrd
End Function ' daySuff

%>
<html>
<head>
<title>Tree Calendar View</title>
<link rel="stylesheet" href="sitestyle.css" type="text/css">
<style>
<!--
#liname
{
cursor:hand ;
list-style-image:url(./images/root.gif)
}
#monthfolditem
{list-style-image:none;
}
//-->
</style>
<script language="javascript1.2">
<!--
var head="display:''"
img1=new Image()
img1.src="url(./images/root.gif)"
img2=new Image()
img2.src="(./images/fold_o.gif)"

function change(){
   if(!document.all)
      return
   if (event.srcElement.id=="liname") {
      var srcIndex = event.srcElement.sourceIndex
      var nested = document.all[srcIndex+1]
      if (nested.style.display=="none") {
         nested.style.display=''
         event.srcElement.style.listStyleImage="url(./images/fold_o.gif)"
      }
      else {
         nested.style.display="none"
         event.srcElement.style.listStyleImage="url(./images/root.gif)"
      }
   }
}

document.onclick=change


//-->
</script>
</head>
<%
  
Sub DrawCalendar (numYears,blnBackWards)
   '*****************************************************
   '*							*
   '* Procedure accepts number of years 0 = Current	*
   '* blnBackWards = whether to go back in years or not	*
   '*							*
   '*****************************************************
  
  'The folding list items markup
  
   strheadel1   = "<li id='liname'>"
   strheadel2   = "</li>"
   strfoldlist2 = "<ul id='monthfolditem' style='display:none' style=&{head};>" 
   
  'check to see if we are starting from a negative value
   if blnBackWards then
     startYear = -Cint(numYears)
    else
     startYear = 0
   end if   

 for k = startYear to (numYears)
    dtyear = year(dateadd("yyyy",k,date))
    response.write strheadel1 &dtyear &strheadel2
    response.write strfoldlist2      
   for i = 1 to 12 
     dtdate = dateserial(dtyear,i,1)
     strdate =  month(i)
     intdays =  numdays(dtdate) 
     response.write strheadel1 &monthname(datepart("m",dtdate)) &strheadel2
     response.write strfoldlist2 
     for j = 1 to intdays
       response.write "<li><A HREF='showday.asp?date="&dtdate&"'>" &weekdayname(weekday(dtDate))&" - " &monthname(datepart("m",dtdate)) &"&nbsp;" &j &daySuff(j) &"</A></li>"
       dtDate = dateAdd("d",1,dtDate)
     next
     response.write "</ul>"
   next
   response.write "</ul>"
 next  
end Sub
  
  DrawCalendar 4,FALSE   
 
 %>  
 </body>
</html>


	Shopping Cart

To use the code above, click and drag your mouse over the code to highlight it. Then right click on the highlighted code and click "Copy." Now you may paste it into your code editor.

Submit Your Own Code to Codango


Link to Us \| About Us		Advertise \| Contact Us \| Website Help
Write a User Review Today! Its Fun, Fast, and Easy!	Codango Home \| PHP \| ASP.NET \| ASP \| JSP Advertise With Us \| About Us \| Terms of Use \| Privacy Policy


� 2013 ezd.com, All rights reserved