<% Set RS = Server.CreateObject("ADODB.Recordset") %> ｴﾞｷﾂ <% if request("year") > 0 then intThisYear = cint(request("year"))' ""ｳ箏ｵ ｾ� else intThisYear = Year(date()) end if if request("month") > 0 then intThisMonth = cint(request("month"))' ""ｿ� ｾ� else intThisMonth = Month(date) end if %>
Today: <% strMonthName = MonthName(intThisMonth) '""ｴﾞ ﾀﾌｸｧ ｾ� datFirstDay = DateSerial(intThisYear, intThisMonth, 1) ' ｴ鄙� 1ﾀﾏ ｳｯﾂ･ ﾆﾋ ｸｸｵ邏ﾙ. intFirstWeekDay = WeekDay(datFirstDay, vbSunday) ' ｴ鄙� 1ﾀﾏﾀﾇ ｿ菎ﾏﾀｻ ｾﾂｴﾙ. ' ﾇﾘｴ鄙ﾇ ｸｶﾁｷ ｳｯﾀﾚｸｦ ｱｸﾇﾑｴﾙ.(28ﾀﾏ ｺﾎﾅﾍ 31ﾀﾏ ﾁﾟｿ｡ ﾇﾏｳｪﾀﾎｵ･ ｽﾃｽｺﾅﾛｿ｡ｼｭ ﾁｦｰﾏｴﾂ ｳｯﾂ･ﾇﾔｼｦ ｻ鄙�ﾇﾏｿｩ ｱｸﾇﾑｴﾙ) intLastDay = 28 For i = 29 To 31 step 1 'up to the 31st ﾇﾏｷ鄒ｿ ﾁ｡ ｽﾃﾅｰｸ� ｳｯﾂ･ ﾆﾋﾀｻ ｸｸｵ鮴� ｰｰﾀｺｴﾞﾀﾎｰ｡ ｰﾋｻ酩ﾑｴﾙ. calMonth = Month(DateSerial(intThisYear,intThisMonth, i)) 'response.write calMonth & "
" 'response.write intThisMonth & "
" If cint(calMonth) = cint(intThisMonth) Then ' ｰｰﾀｺ ｴﾞﾀﾎｰ豼� ｸｶﾁｷ ｳｯﾂ･ ｼｳﾁ､ﾇﾏｰ� ｷ酩ﾁ ｰ霈ﾓ intLastDay = i 'response.write intLastDay & "
" else exit for 'ｰｰﾀｺｴﾞﾀﾌ ｾﾆｴﾏｸ� forｹｮﾀｻ ｳ｡ｳｽｴﾙ. End If Next intPrintDay = 1 'ｷ酩ﾁｸｦ ｵｹｱ� ﾀｧﾇﾑ ｺｯｼ� %>
<% While intPrintDay <= intLastDay %> <% For intLoopDay = 1 To 7 ' If intFirstWeekDay > 1 Then 'ﾃｹｳｯﾀﾇ ｿ菎ﾏﾀﾌ ﾀﾏﾄ｡ﾇﾒｶｧ ｱ錝� ""-""ｷﾎ ﾃ､ｿ� %> <% intFirstWeekDay = intFirstWeekDay - 1 Else If intPrintDay > intLastDay Then %> <% Else thisDate = DateSerial(intThisYear,intThisMonth, intPrintDay)%> <% 'ﾀﾏﾁ､ ｰ�ｸｮｸｦ ﾀｧﾇﾘｼｭ ｵ｡ ｿｬｰ睇ﾏｰ� ﾇﾘｴ� ｳｯﾂ･ﾀﾇ ｸﾞｸｦ ﾀﾐｴﾂｴﾙ. sql = "select * from diary where date='" & thisDate & "'" RS.Open sql, Conn,3 if rs.eof then 'ﾇﾘｴ� ｳｯﾂ･ﾀﾇ ｼｿﾀﾇ ｹ隹貊ｻ ﾁ､ﾇﾑｴﾙ. %> <% End If %> <% intPrintDay = intPrintDay + 1 End If %> <% Next %> <% Wend %>
<% if intThisMonth > Month(date) then %>  <  <% else %>  <  <% end if %> <% = intThisYear %> 年 <% = intThisMonth %> 月 <% if intThisMonth = Month(date) then %>  >  <% else %>  >  <% end if %>
SUN MON TUE WED THU FRI SAT
-- <%else%> "> <%end if%> <% if rs.eof then 'ﾀﾔｷﾂﾇﾑ ｰﾍﾀﾌ ｾｸｸ� ｿ菎ﾏｿ｡ ｵ郞ｭ ｻｻ ﾆﾇｴﾜﾇﾑｴﾙ. if intLoopDay = 1 then 'ﾀﾏｿ菎ﾏﾀﾌｸ� ｻ｡ｰ｣ｻ�%>
<%=intPrintDay%>
<% elseif intLoopDay = 7 then 'ﾅ菫菎ﾏﾀﾌｸ� ﾆﾄｶ�%>
<%=intPrintDay%>
<% else 'ﾁﾖﾀﾏﾀﾌｸ� ｰﾋﾁ､ｻ�%>
<%=intPrintDay%>
<% end if 'ｿ菎ﾏﾆﾇｴﾜ ｳ｡%> <% elseif rs("holiday") = false then 'ｱ箙ﾏﾀﾌ ﾀﾖｰ� ﾈﾞﾀﾏﾀﾌ ｾﾆｴﾏｸ� ﾀｧｿﾍ ｰｰｴﾙ if intLoopDay = 1 then 'ﾀﾏｿ菎ﾏﾀﾌｸ� ｻ｡ｰ｣ｻ�%>
<%=intPrintDay%>
<% elseif intLoopDay = 7 then 'ﾅ菫菎ﾏﾀﾌｸ� ﾆﾄｶ�%>
<%=intPrintDay%>
<% else 'ﾁﾖﾀﾏﾀﾌｸ� ｰﾋﾁ､ｻ�%>
<%=intPrintDay%>
<% end if 'ｿ菎ﾏﾆﾇｴﾜ ｳ｡%> <% else 'ﾈﾞﾀﾏﾀﾌｸ�%>
<%=intPrintDay%>
<% end if 'ﾈﾞﾀﾏﾆﾇｴﾜ ｳ｡%> <% if not rs.eof then response.write rs("title1") & "
" ' ｿｩｱ篩｡ ﾇﾘｴ� ﾀﾏﾀﾚﾀﾇ ｳｻｿ�ﾀｻ ﾇﾁｸｰﾆｮﾇﾑｴﾙ response.write rs("title2") & "
" response.write rs("title3") & "
" response.write rs("title4") end if RS.close %>
<% set rs=nothing conn.close set conn=nothing %>