<% tmonth = request("tmonth") tyear = request("tyear") if tmonth = "" then tmonth = cstr(datepart( "M" , now())) end if if tyear = "" then tyear = cstr(datepart( "YYYY" , now())) end if prevm = cint(tmonth) - 1 nextm = cint(tmonth) + 1 prevy = cint( tyear ) nexty = cint( tyear ) if cint( tmonth ) = 12 then nextm = 1 nexty = nexty + 1 tempmonth = 1 tempyear = cint( tyear ) + 1 elseif cint( tmonth ) = 1 then prevm = 12 prevy = prevy - 1 tempmonth = cint( tmonth ) + 1 tempyear = cint( tyear ) else tempmonth = cint( tmonth ) + 1 tempyear = cint( tyear ) end if tempdate = tempyear &"-"& tempmonth &"-01" tdate = cdate( tempdate ) endday = day( tdate - 1 ) %> <% d = 0 syoil = datepart("W" ,cdate(tyear &"-"& tmonth &"-01")) for i = 1 to 42 step 1 if i mod 7 = 1 then response.write "" end if if syoil <= i then d = d + 1 end if if d > 0 and d <= endday then if cint(d) = day( now() ) and cint(tyear) = year( now() ) and cint(tmonth) = month( now()) then dtext = ""& d &"" overout = "bgcolor=#60D4D5" else dtext = d overout = "onmouseover='over2(this)' onmouseout='out(this)'" end if if i mod 7 = 1 then response.write "" elseif i mod 7 = 0 then response.write "" else response.write "" end if else response.write "" end if if i mod 7 = 0 then response.write "" end if next %>

<%=tyear%>

<%=tmonth%>월

"& toDay &"

<% Dbcon.close Set Dbcon = Nothing Function toDay() table = "bbs_15" '테이블명 a_num = "19113837" DayColor = "#FF9900" '일정등록된 날짜 색 If Len(tmonth) = 1 Then tmon = "0" & tmonth Else tmon = tmonth End If If Len(d) = 1 Then tday = "0" & dtext Else tday = d End If toDayInfo = tyear & "-" & tmon & "-" & d sql = "select b_num, b_subject from "&table&" where b_regdate = '"&toDayInfo&"'" 'response.write sql Set rs = Dbcon.Execute(sql) If rs.bof Or rs.eof Then toDay = dtext Else dtext = ""& dtext & "" Do Until rs.eof linkUrl = "" subject = subject &linkUrl & StringToHTML(rs("b_subject"), 20, fale) & "
" rs.movenext Loop toDay = "

" 'onMouseOut="parent.nd();" toDay = toDay & dtext & "

" End If Set rs = nothing End function %>