<% if v_year = "" then intThisYear = Year(now) else intThisYear = v_year End if if v_month = "" then intThisMonth = Right( "0" & Month(now), 2 ) else intThisMonth = Right( "0" & v_month, 2 ) End if intThisMonth2 = intThisMonth '//1~9숫자 앞에 0붙이기 gday = Right("0"&Day(now), 2) '//오늘날짜 datFirstDay = Weekday( DateSerial( intThisYear, intThisMonth, 1 ) ) '//요일 구하기 (num) intLastDay = Day( DateSerial( intThisYear, intThisMonth+1, 1-1 ) ) '//마지막날 구하기 jucnt = Round( ( ( datFirstDay + intLastDay) / 7 ) + 0.5, 0 ) 'response.write jucnt '// 이전, 다음 만들기 If CInt( intThisMonth ) = 1 Then prevYear = intThisYear - 1 Else prevYear = intThisYear End if If CInt( intThisMonth ) = 1 Then prevMonth = 12 Else prevMonth = CInt(intThisMonth) - 1 End if If intThisMonth = 12 Then nextYear = intThisYear + 1 Else nextYear = intThisYear End if If intThisMonth = 12 Then nextMonth = 1 Else nextMonth = intThisMonth + 1 End if nowpage_url = Request.ServerVariables("path_info") %>

<%If is_ad_cms = "Y" then%>

<%End if%>

<% 'cal = CInt(a_width) / 7 day1 = (-1 * datFirstDay)+2 '//날수1 day2 = (-1 * datFirstDay)+2 '//날수2(내용할때) For ju = 1 to jucnt '//주간 7개 돌리공.. %> <% for i = 1 to 7 '//글자색 Select Case i Case 1 : tcolor="sun" Case 7 : tcolor="sat" Case Else tcolor = "" End select '//날짜계산 If day1 > 0 and day1 <= intLastDay then cday = day1 else cday = "" End if %> <% day1 = day1 + 1 next %> <% for c = 1 to 7 '날짜계산 If day2 > 0 and day2 <= intLastDay then cday2 = day2 else cday2 = "" End if cday2 = Right( "00" & cday2, 2 ) '//1~9숫자 앞에 0붙이기 If cday2 <> "00" then thisDate = DateSerial(intThisYear, intThisMonth, cday2) else thisDate = "" End if %> <% day2 = day2 + 1 Next %> <%next%>

<%=replace( tit_name, " | ", "")%>
일요일	월요일	화요일	수요일	목요일	금요일	토요일
"" Then If is_write = "Y" Then Response.write "title='일정등록' style='cursor:pointer;' onclick = ""location.href='write.asp?a_num=" & a_num & "&b_sdate=" & dateserial(intThisYear, intThisMonth, cday) & "';""" End if End if %>> <%=cday%> <% If cday <> "" Then If is_write = "Y" Then Response.write "" End If End if %>
<%today_list_new(thisDate)%>

<%If is_write = "Y" then%> <%End if%>

<% If is_ad_cms = "Y" then%>

<% End if %>

<% function today_list_new(thisDate2) 'global $b_subject, $a_tablename, $board_skin1_url, $a_cate, $v_cate, $a_num, $b_num, $page_info, $a_type, $b_cate_str; Dim R_Fields_code, order_by_code, thisDate3, sql_opt1, sql_opt2, sql_opt3, sql R_Fields_code = "b_num, b_subject, b_content, b_catename, b_open, b_sbjclr, b_cate" order_by_code = " ORDER BY b_sdate asc, b_edate asc" thisDate3 = thisDate2 '//검색 옵션------------------------------------------------------- sql_opt1 = " AND b_sdate <= '" & thisDate3 & "' AND b_edate >='" & thisDate3 & "'" sql_opt2 = " AND b_id = '" & SESSION("ss_m_id") & "'" '//분류기능 사용시.. If a_cate = "Y" and v_cate <> "" then sql_opt3 = " AND b_cate = " & v_cate End if '//---------------------------------------------------------------- SQL = "Select " & R_Fields_code & " FROM " & a_tablename & " WHERE b_num <> '0'" SQL = SQL & sql_opt1 & sql_opt2 & sql_opt3 SQL = SQL & order_by_code 'response.write sql 'response.end Set rs_tdy = dbcon.execute( sql ) If Not( rs_tdy.bof Or rs_tdy.eof ) then '//$zul = 1; Do Until rs_tdy.eof b_num = rs_tdy("b_num") b_subject = rs_tdy("b_subject") b_content = rs_tdy("b_content") b_catename = rs_tdy("b_catename") b_open = rs_tdy("b_open") b_sbjclr = rs_tdy("b_sbjclr") b_cate = rs_tdy("b_cate") b_subject_str = StringToHTML( b_subject, 6, false) '// $b_subject_str = remove_tags($b_subject); '// $b_subject_str = StringToHTML($b_subject_str, 18, false ); ' //$_SESSOIN[$zul."_"."b_num"] = $b_num; '//공개/비공개 If a_type = "Y" Or a_type = "T" then '//사용하면, or 전체 비공개이면 If b_open = "N" Or a_type = "T" then '//비공개이면 b_open_str = "

" else '//공개이면 b_open_str = "" End if Else b_open_str = "" End if %> ·<%If a_cate = "Y" Then response.write b_cate_str(b_cate)%><%=b_subject_str%><%=b_open_str%>
<% '//$_SESSOIN["zul_".$zul] = ""; '//$zul = $zul + 1; rs_tdy.movenext loop End if Set rs_tdy = nothing End function %>