<% ' ---------------------------------------------------------------------------------------------------- ' ## 공통변수 및 사용자정의변수 정의 ' ---------------------------------------------------------------------------------------------------- ' DB 관련 변수 Dim dbConn, rs, rs2, var_SQL,var_SQL2, var_AddSQL, var_AddSQL2, i, j Dim paramInfo, paramInfos Dim var_strTables, var_strFilter, var_strSort, var_strGroup, var_strFields, var_PrimaryKey ' Page 관련 변수 Dim var_BlockSize, var_Page, var_TotalPage, var_PageSize, var_RowCount, var_TotalRecord, var_number Dim strPaging ' 검색 관련 변수 Dim search_field, search_keyword, arrkeyword Dim search_division, search_category, search_view_yn, search_language_type ' 컬럼변수 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 arrCategory, nCategorySize Dim imgSize, img_width, img_height ' 디버그 모드 'Call clsDB.SetDebugMode(True) ' ---------------------------------------------------------------------------------------------------- ' ## 페이지 검증 ' ---------------------------------------------------------------------------------------------------- ' ---------------------------------------------------------------------------------------------------- ' ## Receive Parameters ' ---------------------------------------------------------------------------------------------------- search_category = clsFN.GetParameter(Request("search_category"), "") search_view_yn = "Y" search_division = BOARD_DIVISION search_language_type = BOARD_LANGUAGE ' ---------------------------------------------------------------------------------------------------- ' ## 필수 입력 항목 체크 ' ---------------------------------------------------------------------------------------------------- ' #################################################################################################### ' ## 게시판 정보 ' #################################################################################################### ' 검색 조건 var_AddSQL = " A.DEL_YN= 'N' AND A.NOTICE_YN= 'N' AND A.DIVISION = '"& clsFN.convSql(search_division) &"' " If search_language_type <> "" Then var_AddSQL = var_AddSQL & " AND A.LANGUAGE_TYPE = '" & clsFN.convSql(search_language_type) & "' " End If If search_category <> "" Then var_AddSQL = var_AddSQL & " AND A.CATEGORY = '" & clsFN.convSql(search_category) & "' " End If If search_view_yn <> "" Then var_AddSQL = var_AddSQL & " AND A.VIEW_YN = '" & clsFN.convSql(search_view_yn) & "' " End If If search_keyword <> "" And search_field <> "" Then If Instr(search_keyword, " ") > 0 Then arrkeyword = Split(search_keyword, " ") For Each item In arrkeyword If search_field = "all" Then var_AddSQL2 = var_AddSQL2 & " OR ( A.SUBJECT LIKE N'%" & clsFN.convSql(item) & "%' OR A.CONTENT LIKE N'%" & clsFN.convSql(item) & "%' ) " Else var_AddSQL2 = var_AddSQL2 & " OR " & clsFN.convSql(search_field) &" LIKE N'%" & clsFN.convSql(item) & "%' " End If Next var_AddSQL = var_AddSQL & " AND (" & Mid(var_AddSQL2, 4, Len(var_AddSQL2)) & ") " Else If search_field = "all" Then var_AddSQL = var_AddSQL & " AND ( A.SUBJECT LIKE N'%" & clsFN.convSql(search_keyword) & "%' OR A.CONTENT LIKE N'%" & clsFN.convSql(search_keyword) & "%' ) " Else var_AddSQL = var_AddSQL & " AND " & clsFN.convSql(search_field) &" LIKE N'%" & clsFN.convSql(search_keyword) & "%' " End If End If End If ' 게시판 기본 변수 var_PageSize = 10 var_BlockSize = 10 ' 매개변수 var_strTables = BOARD_TABLENAME & " A WITH(NOLOCK) " var_strFilter = var_AddSQL var_strSort = "A.BOARD_SEQ DESC" var_strGroup = "" var_strFields = "" var_strFields = var_strFields & " A.BOARD_SEQ, A.DIVISION, A.CATEGORY, A.SUBJECT, A.CONTENT " var_strFields = var_strFields & " , A.HIT, A.NOTICE_YN, A.VIEW_YN, A.USER_NAME, A.PASSWORD " var_strFields = var_strFields & " , A.DELEGATE_IMG_PATH, A.DELEGATE_IMG_FILE, A.DELEGATE_IMG_SAVE " var_strFields = var_strFields & " , A.REGISTER_IP, A.DEL_YN, A.LANGUAGE_TYPE, A.REG_DATE " var_strFields = var_strFields & " , A.ETC_1, A.ETC_2, A.ETC_3, A.ETC_4, A.ETC_5 " var_strFields = var_strFields & " , A.ETC_6, A.ETC_7, A.ETC_8, A.ETC_9, A.ETC_10 " var_strFields = var_strFields & " , ( SELECT COUNT(FILE_SEQ) FROM "& BOARD_TABLENAME &"_FILE B WHERE A.BOARD_SEQ = B.BOARD_SEQ) AS FILE_COUNT " var_PrimaryKey = "A.BOARD_SEQ" ReDim paramInfo(2) paramInfo(0) = clsDB.MakeParam("@strActType", adChar, adParamInput, 6, "CNTING") paramInfo(1) = clsDB.MakeParam("@strTables", adVarChar , adParamInput, 2000, var_strTables) paramInfo(2) = clsDB.MakeParam("@strFilter", adWChar , adParamInput, 2000, var_strFilter) ' 총 레코드 수 / 현재 글번호 Set rs = clsDB.ExecSPReturnRS("SP_GET_TARGET_PAGING", paramInfo, Nothing) var_TotalRecord = Trim(rs("RECORDCOUNT")) var_number = var_TotalRecord - (var_PageSize * (var_Page-1)) clsDB.closeRS(rs) ' 총 페이지 수 If var_TotalRecord Mod var_PageSize = 0 Then var_TotalPage = var_TotalRecord \ var_PageSize Else var_TotalPage = var_TotalRecord \ var_PageSize + 1 End If ' 페이징 'Dim var_aryReqParams(3,2) 'var_aryReqParams(1, 1) = "search_division" 'var_aryReqParams(1, 2) = search_division 'var_aryReqParams(2, 1) = "search_category" 'var_aryReqParams(2, 2) = search_category 'var_aryReqParams(3, 1) = "search_view_yn" 'var_aryReqParams(3, 2) = search_view_yn PrintNavTargetLink("board_list.asp") PrintNavTargetImagePath(FRONTROOT) 'var_Page = PageProcessing(var_Page, var_TotalPage, var_PageSize, var_BlockSize, var_aryReqParams) var_Page = PageProcessing(var_Page, var_TotalPage, var_PageSize, var_BlockSize, NULL) strPaging = PrintNavUserOneLineButton() %>

<%=BOARD_MENU%>

<% ' #################################################################################################### ' ## 게시판 정보 ' #################################################################################################### If var_TotalRecord > 0 Then var_RowCount = 0 ReDim paramInfos(9) paramInfos(0) = clsDB.MakeParam("@strActType", adChar, adParamInput, 6, "TOPING") paramInfos(1) = clsDB.MakeParam("@strTables", adVarChar, adParamInput, 2000, var_strTables) paramInfos(2) = clsDB.MakeParam("@strFilter", adWChar, adParamInput, 2000, var_strFilter) paramInfos(3) = clsDB.MakeParam("@strSort", adVarChar , adParamInput, 2000, var_strSort) paramInfos(4) = clsDB.MakeParam("@strGroup", adVarChar, adParamInput, 2000, var_strGroup) paramInfos(5) = clsDB.MakeParam("@strFields", adVarChar, adParamInput, 2000, var_strFields) paramInfos(6) = clsDB.MakeParam("@strPK", adVarChar, adParamInput, 100, var_PrimaryKey) paramInfos(7) = clsDB.MakeParam("@intPageNo", adInteger, adParamInput, 0, var_Page) paramInfos(8) = clsDB.MakeParam("@intPageSize", adInteger, adParamInput, 0, var_PageSize) paramInfos(9) = clsDB.MakeParam("@debug", adChar, adParamInput, 1, "0") Set rs = clsDB.ExecSPReturnRS("SP_GET_TARGET_PAGING", paramInfos, Nothing) If paramInfos(9)(4) = "1" Then clsFN.Out RS(0) Response.End End If Do While Not rs.EOF and var_RowCount < var_PageSize 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_password = Trim(rs("PASSWORD")) col_register_ip = Trim(rs("REGISTER_IP")) 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_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_file_count = Trim(rs("FILE_COUNT")) col_subject = clsFN.GetString(col_SUBJECT,50) ' col_subject = clsFN.GetXssEncode(col_subject) ' col_category = clsFN.GetXssEncode(col_category) ' col_user_name = clsFN.GetXssEncode(col_user_name) %> <% var_number = var_number - 1 rs.MoveNext Loop clsDB.closeRS(rs) Else %> <% End If %>
번호 제목 등록일 조회수
<%=var_number %> <%=col_subject%> <% If DateDiff("d", col_reg_date, Now()) <= 3 Then Response.write " NEW " End If %> <%=clsFN.dateFormat(col_reg_date,"yyyy-mm-dd")%> <%=col_hit%>
<% If (search_keyword <> "" And search_field <> "") Then %> <%=DB_004 %> <% Else %> <%=DB_005 %> <% End If %>
<%=strPaging %>
<% ' ---------------------------------------------------------------------------------------------------- ' ## 자원 반환 ' ---------------------------------------------------------------------------------------------------- %> <% BOARD_CATEGORY.RemoveAll Set BOARD_CATEGORY = Nothing %>