<% v_year = InputValue( request.querystring("p_year") ) v_month = InputValue( request.querystring("p_month") ) If v_year = "" Then v_year = year(now) If v_month = "" Then v_month = Right( "0" & month(now), 2 ) a_num = "72108979" tablename = "board_1" Set ST = New SelectTable thisYM = v_year & "-" & v_month where_query = " where (b_sdate like '" & thisYM & "%' or b_edate like '" & thisYM & "%') and b_id = '" & SESSION("ss_m_id") & "' " orderby_query = " order by b_sdate asc" sql = "select b_num, b_subject, b_sdate, b_edate, b_temp1 from " & tablename & where_query & orderby_query rs = ST.selectQueryTable( sql ) %>

일정관리

날짜	일정내용	문자설정

<% If isnull(rs) Then %> <% else For i = 0 To ubound( rs ) ST.arr2Value( rs(i) ) b_date = b_sdate If b_sdate <> b_edate Then b_date = b_date & "
~ " & b_edate End If href = "02_01.asp?b_num=" & b_num href = href & "&prepage=" & server.urlencode(NOWPAGE) href = href & "&p_year=" & server.urlencode(v_year) href = href & "&p_month=" & server.urlencode(v_month) %> <% next End if %>

일정이 없습니다.
<%=b_date%>	<%=b_subject%>	onclick="alarmOk(this);" data-b_num="<%=b_num%>" />

일정쓰기

<% function todaySchedule( thisdate ) Dim ST Dim sql, cnt Set ST = New SelectTable where_query = " where b_sdate <= '" & thisdate & "' AND b_edate >='" & thisdate & "' and b_id = '" & SESSION("ss_m_id") & "' " sql = "select count(*) as cnt from " & tablename & where_query cnt = ST.selectQueryColumn( sql ) todaySchedule = cnt End function %>