程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp顯示日歷效果

asp顯示日歷效果

編輯：關於ASP編程

<P><style>
td { font-family: "宋體"; font-size:9pt}
</style>
<body bgcolor="eeeeee">

<%
'以下為ASP中通過該日歷算法實現的具體代碼</P>
<P> '先判斷是否指定了一個年份和月份，沒有則根據當前的年和月份顯示
 If Request("ReqDate")="" then
   CurrentDate=Date
 else
   CurrentDate=Trim(Request("ReqDate"))
 end if 
 pyear=year(CurrentDate)
 pmonth=month(CurrentDate)</P>
<P> '以下的代碼生成日歷顯示的表格頭內容
%>
   
    
  <input type="button" value="<<" onclick="JavaScript:location.href='?ReqDate=<%=DateAdd("m",-1,CurrentDate) %>'">
 
    
  <%=pyear%>年<%=pmonth%>月
 
    
  <input type="button" value=">>" onclick="JavaScript:location.href='?ReqDate=<%=DateAdd("m",1,CurrentDate)%>'">
 
  
   
     日
     一
     二
     三
     四
     五
     六
  
  
  <%
  '由於ASP中沒有獲取指定月共有多少天的函數，因此我們需要通過其他算法來獲得，算法其實很簡單，就是計算一下要顯示月份的1日至下個月的1日一共相差幾天
 fromDate = FormatDateTime(month(CurrentDate) & "/1/" &  year(CurrentDate)) 
 toDate = FormatDateTime(DateAdd("m",1,fromDate)) 
 '獲得要顯示月份的第一天為周幾
 nunmonthstart=weekday(fromDate)-1
 '獲得要顯示的1日至下個月的1日一共相差幾天(月份一共有多少天)
 nunmonthend=DateDiff("d",fromDate,toDate)
 '判斷顯示日歷需要用幾行表格來顯示（每行顯示7天）
 if nunmonthstart+nunmonthend<36 then
   maxi=36
 else
   maxi=43
 end if
 '循環生成表格並顯示
 i=1
 do while i<maxi
  iv=i-nunmonthstart
  if i>nunmonthstart and i<=nunmonthend+nunmonthstart then
   '如果為顯示的是今天則用紅色背景顯示
   if iv=Day(now) and month(now)=pmonth and year(now)=pyear then
    response.write( "" & iv & "")
   else
    response.write( "" & iv & "")
   end if
  else
   response.write( " ")
  end if</P>
<P>  '如果能被7整除（每行顯示7個）則輸出一個換行
  if i mod 7=0 then
   response.write( "")
  end if
  i=i+1
 loop
%>

</body>

[Ctrl+A 全選注:如需引入外部Js需刷新才能執行]