<% ' ---------------------------------------------------------------------------------------------------- ' ## 공통변수 및 사용자정의변수 정의 ' ---------------------------------------------------------------------------------------------------- ' DB 관련 변수 Dim dbConn, rs, rs2, var_SQL,var_SQL2, var_AddSQL, var_AddSQL2, i, j Dim paramInfo, paramInfos ' 파라미터 변수 Dim SearchStr, SearchStr2 ' 검색 관련 변수 Dim search_field, search_keyword, arrkeyword Dim search_division, search_category, search_view_yn, search_language_type ' 컬럼변수 Dim col_lunar_date, col_solar_date, col_yun, col_ganji Dim col_board_seq, col_division, col_category, col_subject, col_content Dim col_hit, col_notice_yn, col_view_yn, col_user_name, col_password Dim col_delegate_img_path, col_delegate_img_file, col_delegate_img_save Dim col_register_ip, col_del_yn, col_language_type, col_reg_date Dim col_etc_1, col_etc_2, col_etc_3, col_etc_4, col_etc_5 Dim col_etc_6, col_etc_7, col_etc_8, col_etc_9, col_etc_10 Dim col_file_count ' 달력 Dim datToday, NowThisYear, NowThisMonth, NowThisDay Dim intThisYear, intThisMonth, intThisDay Dim PrevThisYear, PrevThisMonth, NextThisYear, NextThisMonth Dim cDay Dim intLoopWeek, intLoopDay Dim ThisMonth, ThisDay, date_font, font_end Dim cColor, cGubunName, cClass datToday = Date() ' 오늘 날짜 NowThisYear = Year(datToDay) ' 현재연도값 NowThisMonth = Month(datToday) ' 현재 월값 NowThisDay = Day(datToday)-2 ' 오늘 날짜 값 ' ---------------------------------------------------------------------------------------------------- ' ## 페이지 검증 ' ---------------------------------------------------------------------------------------------------- ' ---------------------------------------------------------------------------------------------------- ' ## Receive Parameters ' ---------------------------------------------------------------------------------------------------- search_category = clsFN.GetParameter(Request("search_category"), "") search_view_yn = "Y" search_division = BOARD_DIVISION search_language_type = BOARD_LANGUAGE intThisYear = clsFN.GetParameter(Request("intThisYear"), "") intThisMonth = clsFN.GetParameter(Request("intThisMonth"), "") intThisDay = clsFN.GetParameter(Request("intThisDay"), "") If intThisYear="" Then '만약 년도와 월값을 넘겨받지 않았다면 intThisYear=NowThisYear '현재 년도를 년도 변수에 intThisMonth=NowThisMonth ' 현재 월을 월 변수에 End If If intThisDay="" Then intThisDay=NowThisDay '현재 날짜를 일 변수에 End If If intThisMonth = 1 Then PrevThisYear = intThisYear - 1 PrevThisMonth = 12 Else PrevThisYear = intThisYear PrevThisMonth = intThisMonth - 1 End If If intThisMonth = 12 Then NextThisYear = intThisYear + 1 NextThisMonth = 1 Else NextThisYear = intThisYear NextThisMonth = intThisMonth + 1 End If ' ' 파라미터 'SearchStr = "search_gubun="&var_Search_Gubun&"&keyword=" & var_Keyword & "&keyfield=" & var_Keyfield 'SearchStr = SearchStr & "&search_kyo="&var_Search_Kyo &"&search_club=" & var_Search_Club SearchStr2 = SearchStr SearchStr = SearchStr & "&intThisYear="&intThisYear&"&intThisMonth=" & intThisMonth & "&intThisDay=" & intThisDay ' ---------------------------------------------------------------------------------------------------- ' ## 필수 입력 항목 체크 ' ---------------------------------------------------------------------------------------------------- ' #################################################################################################### ' ## ' #################################################################################################### %>

<%=BOARD_MENU%>

<%=intThisYear %>.<%=intThisMonth %>
<% For intLoopWeek=1 To 18 '주단위 루프 시작, 최대 6주 Response.Write "" & vbCrLf For intLoopDay=1 To 2 '요일단위 루프 시작, 일요일부터 If intThisYear-NowThisYear=0 and intThisMonth-NowThisMonth=0 and intPrintDay-NowThisDay=0 Then '오늘 날짜이면은 글씨폰트를 다르게 cClass = "today" Else ' 그외의 경우 cClass = "" End If If intPrintDay > intLastDay Then '입력날짜가 월말보다 크다면 cClass = cClass & " schedule_none" Response.Write "" End If intPrintDay=intPrintDay+1 '날짜값을 1 증가 If intPrintDay>intLastDay Then '만약 날짜값이 월말값보다 크면 루프문 탈출 STop_Flag=1 End If Next Response.Write "" & vbCrLf If STop_Flag=1 Then Exit For End If Next %>
" Else '입력날짜가 현재월에 해당되면 ' 데이터 확인 ThisMonth = clsFN.iif(len(intThisMonth) = 1, "0"&intThisMonth, intThisMonth) ThisDay = clsFN.iif(len(intPrintDay) = 1, "0"&intPrintDay, intPrintDay) cDay = intThisYear & "-" & ThisMonth & "-" & ThisDay If weekday(CDate(cDay)) = 1 Then ' 일요일 cClass = "sunday" ElseIf weekday(CDate(cDay)) = 7 Then '토요일 cClass = "saturday" End If ' 일정 정보 var_SQL = "SELECT " var_SQL = var_SQL & " A.BOARD_SEQ, A.DIVISION, A.CATEGORY, A.SUBJECT, A.CONTENT " var_SQL = var_SQL & " , A.HIT, A.NOTICE_YN, A.VIEW_YN, A.USER_NAME, A.PASSWORD " var_SQL = var_SQL & " , A.DELEGATE_IMG_PATH, A.DELEGATE_IMG_FILE, A.DELEGATE_IMG_SAVE " var_SQL = var_SQL & " , A.REGISTER_IP, A.DEL_YN, A.LANGUAGE_TYPE, A.REG_DATE " var_SQL = var_SQL & " , A.ETC_1, A.ETC_2, A.ETC_3, A.ETC_4, A.ETC_5 " var_SQL = var_SQL & " , A.ETC_6, A.ETC_7, A.ETC_8, A.ETC_9, A.ETC_10 " var_SQL = var_SQL & " FROM "& BOARD_TABLENAME & " A WITH(NOLOCK) " var_SQL = var_SQL & " WHERE A.DEL_YN = 'N' AND A.DIVISION = '"& BOARD_DIVISION &"' " var_SQL = var_SQL & " AND DATEDIFF(DAY, ETC_3, '"& cDay &"')>=0 AND DATEDIFF(DAY, '"& cDay &"', ETC_4)>=0 " Set rs = clsDB.ExecSQLReturnRS(var_SQL, Nothing, Nothing) If Not rs.EOF Then cClass = "event" Response.Write "" Response.write intPrintDay & "" Response.write "" ' 음력 정보 var_SQL = "SELECT " var_SQL = var_SQL & " A.LUNAR_DATE, A.SOLAR_DATE, A.YUN, A.GANJI " var_SQL = var_SQL & " FROM LUNAR2SOLAR A WITH(NOLOCK) " var_SQL = var_SQL & " WHERE A.SOLAR_DATE = ? " ReDim paramInfo(0) paramInfo(0) = clsDB.MakeParam("@SOLAR_DATE", adVarChar, adParamInput, 10, cDay) Set rs2 = clsDB.ExecSQLReturnRS(var_SQL, paramInfo, Nothing) If Not rs2.EOF Then col_lunar_date = Trim(rs2("LUNAR_DATE")) col_solar_date = Trim(rs2("SOLAR_DATE")) col_yun = Trim(rs2("YUN")) col_ganji = Trim(rs2("GANJI")) Else End If clsDB.closeRS(rs2) Response.write "(음) " & clsFN.dateFormat(col_lunar_date,"mm-dd") & "" Response.write "" Do While Not rs.EOF col_board_seq = Trim(rs("BOARD_SEQ")) col_division = Trim(rs("DIVISION")) col_category = Trim(rs("CATEGORY")) col_subject = Trim(rs("SUBJECT")) col_content = Trim(rs("CONTENT")) col_hit = Trim(rs("HIT")) col_notice_yn = Trim(rs("NOTICE_YN")) col_view_yn = Trim(rs("VIEW_YN")) col_user_name = Trim(rs("USER_NAME")) col_password = Trim(rs("PASSWORD")) col_delegate_img_path = Trim(rs("DELEGATE_IMG_PATH")) col_delegate_img_file = Trim(rs("DELEGATE_IMG_FILE")) col_delegate_img_save = Trim(rs("DELEGATE_IMG_SAVE")) col_register_ip = Trim(rs("REGISTER_IP")) col_del_yn = Trim(rs("DEL_YN")) col_language_type = Trim(rs("LANGUAGE_TYPE")) col_reg_date = Trim(rs("REG_DATE")) col_etc_1 = Trim(rs("ETC_1")) col_etc_2 = Trim(rs("ETC_2")) col_etc_3 = Trim(rs("ETC_3")) col_etc_4 = Trim(rs("ETC_4")) col_etc_5 = Trim(rs("ETC_5")) col_etc_6 = Trim(rs("ETC_6")) col_etc_7 = Trim(rs("ETC_7")) col_etc_8 = Trim(rs("ETC_8")) col_etc_9 = Trim(rs("ETC_9")) col_etc_10 = Trim(rs("ETC_10")) ' col_subject = clsFN.GetXssEncode(col_subject) ' col_category = clsFN.GetXssEncode(col_category) ' col_user_name = clsFN.GetXssEncode(col_user_name) Response.write "" & col_subject & "" rs.MoveNext Loop Response.write "" Else Response.Write "" Response.write intPrintDay & "" Response.write "" End If clsDB.closeRS(rs) Response.Write "
<% ' ---------------------------------------------------------------------------------------------------- ' ## 자원 반환 ' ---------------------------------------------------------------------------------------------------- %> <% BOARD_CATEGORY.RemoveAll Set BOARD_CATEGORY = Nothing %>