<% Dim COMMUNITY_TYPE_CD : COMMUNITY_TYPE_CD = "PR" 'OKTA 소식 커뮤니티 구분코드 Dim SEARCH_TYPE : SEARCH_TYPE = Request.QueryString("SEARCH_TYPE") '검색타입 설정 Dim SEARCH_TEXT : SEARCH_TEXT = Request.QueryString("SEARCH_TEXT") '검색어 설정 Dim PAGE : PAGE = INT(setDefault(Request("PAGE"),1)) '페이지 설정, 기본값 1 Dim PAGE_SIZE : PAGE_SIZE = INT(setDefault(Request("PAGE_SIZE"),8)) '페이지 사이즈 설정, 기본값 10 Dim START_NO : START_NO = ((PAGE - 1) * PAGE_SIZE) + 1 Dim END_NO : END_NO = PAGE * PAGE_SIZE Dim DB 'DB 객체변수 Dim Sql 'Sql문 저장변수 Dim i,j 'FOR문 저장변수 Dim PRESS_TYPE '메인동영상 게시물형태 (페이징 없음) Dim LIST_NOTICE '리스트형 게시물형태 (공지사항 ,페이징 없음) Dim LIST '리스트형 게시물형태 (일반게시물, 페이징 있음) Set DB = new DBClass 'DB 객체설정 '메인영상 게시물 추출 Sql = " SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED; " & vbCrLf 'SELECT시 LOCK를 걸지 않는다, 반환속도 증가 Sql = Sql & " SELECT TOP 1 " & vbCrLf Sql = Sql & " SEQ_NO " & vbCrLf '일련번호 Sql = Sql & " ,TITLE " & vbCrLf '제목 'Sql = Sql & " ,(CASE WHEN ISNULL(COMMENT,'') = '' THEN CONVERT(NVARCHAR(100),CONTENTS) ELSE COMMENT END) AS COMMENT " & vbCrLf '요약내용 Sql = Sql & " ,COMMENT "& vbCrLf Sql = Sql & " ,dbo.JSON2VALUE(SUB_PARAMETER,'CAPTION') AS CAPTION " & vbCrLf Sql = Sql & " ,READ_CNT " & vbCrLf '조회수 Sql = Sql & " ,dbo.GET_USER_NM(REG_SEQ_NO,REG_TYPE) AS REG_NM " & vbCrLf '작성자 Sql = Sql & " ,CONVERT(VARCHAR(10),REG_DATE,120) AS REG_DATE " & vbCrLf '작성일 Sql = Sql & " FROM dbo.TBL_BOARD_COMMUNITY " & vbCrLf '커뮤니티 테이블 Sql = Sql & " WHERE COMMUNITY_TYPE = '" & COMMUNITY_TYPE_CD & "' " & vbCrLf '커뮤니티 게시판타입 변수값으로 검색 Sql = Sql & " AND PRESS_TYPE = 1 " & vbCrLf '게시물인 메인영상인 것 0 : 아니오 , 1 : 예 Sql = Sql & " AND DEL_F_CD = 0 " & vbCrLf '게시물이 삭제 처리되지 않은 것 0 : 아니오, 1 : 예 Sql = Sql & " ORDER BY REG_DATE DESC " & vbCrLf 'response.write Replace(Sql,vbCrLf,"
") DB.SQL = Sql 'DB객체에 Sql문 입력 Set PRESS_TYPE = DB.EXECUTE() '보도자료형 변수에 DB객체 실행결과를 설정 '일반 게시물 추출 Sql = " SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED; " & vbCrLf Sql = Sql & " WITH LIST AS ( " & vbCrLf Sql = Sql & " SELECT " & vbCrLf Sql = Sql & " ROW_NUMBER() OVER(ORDER BY BC.REG_DATE DESC) AS ROW_NO " & vbCrLf 'WITH문으로 반환된 테이블의 일련번호 설정 Sql = Sql & " ,COUNT(*) OVER() AS TOT_CNT " & vbCrLf '반환되는 테이블의 총갯수 Sql = Sql & " ,BC.SEQ_NO " & vbCrLf '일련번호 Sql = Sql & " ,BC.PRESS_TYPE " & vbCrLf '보도자료형 유무 Sql = Sql & " ,BC.TITLE " & vbCrLf '제목 Sql = Sql & " ,ISNULL(ATT.SEQ_NO,0) AS ATT_SEQ_NO " & vbCrLf '썸네일일련번호 Sql = Sql & " ,ISNULL(ATT.FILE_UPLOAD_NAME,0) AS ATT_NM " & vbCrLf '썸네일명 Sql = Sql & " ,BC.READ_CNT " & vbCrLf '조회수 Sql = Sql & " ,dbo.GET_USER_NM(BC.REG_SEQ_NO,REG_TYPE) AS REG_NM " & vbCrLf '작성자명 : dbo.GET_USER_NM(작성자타입,작성자일련번호) Sql = Sql & " ,CONVERT(VARCHAR(10),BC.REG_DATE,120) AS REG_DATE " & vbCrLf '작성일자 : yyyy-mm-dd Sql = Sql & " FROM dbo.TBL_BOARD_COMMUNITY AS BC " & vbCrLf Sql = Sql & " LEFT OUTER JOIN dbo.TBL_MNG_ATTACH_FILES AS ATT " & vbCrLf Sql = Sql & " ON BC.SEQ_NO = ATT.PARENT_SEQ_NO " & vbCrLf Sql = Sql & " AND ATT.PARENT_TABLE = 'TBL_BOARD_COMMUNITY' " & vbCrLf Sql = Sql & " AND CHARINDEX('IMAGE',UPPER(FILE_TYPE)) > 0 " & vbCrLf Sql = Sql & " WHERE BC.COMMUNITY_TYPE = '" & COMMUNITY_TYPE_CD & "' " & vbCrLf SELECT CASE SEARCH_TYPE CASE "TITLE" : Sql = Sql & " AND BC.TITLE LIKE '%" & SEARCH_TEXT & "%' " CASE "CONTENTS" : Sql = Sql & " AND BC.CONTENTS LIKE '%" & SEARCH_TEXT & "%' " CASE "ALL" : Sql = Sql & " AND (BC.TITLE LIKE '%" & SEARCH_TEXT & "%' OR BC.CONTENTS LIKE '%" & SEARCH_TEXT & "%') " END SELECT Sql = Sql & " AND BC.NOTICE_F_CD = 0 " & vbCrLf Sql = Sql & " AND BC.DEL_F_CD = 0 " & vbCrLf Sql = Sql & " ) " & vbCrLf Sql = Sql & " SELECT * FROM LIST " & vbCrLf Sql = Sql & " WHERE ROW_NO BETWEEN " & Start_No & " AND " & End_No & vbCrLf Sql = Sql & " ORDER BY REG_DATE DESC " & vbCrLf DB.SQL = Sql set LIST = DB.Execute() %>

홍보동영상

홈 > 커뮤니티 > 홍보동영상

<% '메인동영상이 지정되지 않으면 상단 메인동영상 영역을 보여주지 않는다. IF PRESS_TYPE("RESULT_COUNT") > 0 THEN %>
<% Dim MAIN_MOVIE Dim k Sql = " SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED; " & vbCrLf Sql = Sql & " SELECT " & vbCrLf Sql = Sql & " SEQ_NO " & vbCrLf Sql = Sql & " ,PARENT_TABLE " & vbCrLf Sql = Sql & " ,PARENT_SEQ_NO " & vbCrLf Sql = Sql & " ,FILE_TYPE " & vbCrLf Sql = Sql & " ,FILE_ORIGINAL_NAME " & vbCrLf Sql = Sql & " ,FILE_UPLOAD_NAME " & vbCrLf Sql = Sql & " ,FILE_ADDRESS " & vbCrLf Sql = Sql & " ,IMG_BINARY " & vbCrLf Sql = Sql & " ,IMG_WIDTH " & vbCrLf Sql = Sql & " ,IMG_HEIGHT " & vbCrLf Sql = Sql & " ,NOTE " & vbCrLf Sql = Sql & " FROM dbo.TBL_MNG_ATTACH_FILES " & vbCrLf Sql = Sql & " WHERE PARENT_TABLE = 'TBL_BOARD_COMMUNITY' " & vbCrLf Sql = Sql & " AND PARENT_SEQ_NO = '" & PRESS_TYPE("RESULT")(i)("SEQ_NO") & "' " & vbCrLf 'response.write Replace(Sql,vbCrLf,"
") DB.SQL = Sql set MAIN_MOVIE = DB.EXECUTE() Dim MOVIE_URL Dim MOVIE_THUM FOR k = 0 TO MAIN_MOVIE("RESULT_COUNT") - 1 IF INSTR(UCASE(MAIN_MOVIE("RESULT")(k)("FILE_TYPE")),"IMAGE") > 0 THEN MOVIE_THUM = "/library/server/common.attach.download.asp?SEQ_NO=" & MAIN_MOVIE("RESULT")(k)("SEQ_NO") ELSE MOVIE_URL = "/library/server/common.attach.download.asp?SEQ_NO=" & MAIN_MOVIE("RESULT")(k)("SEQ_NO") END IF NEXT set MAIN_MOVIE = nothing %>
',0)" ><%=PRESS_TYPE("RESULT")(0)("TITLE") %>
<%=PRESS_TYPE("RESULT")(0)("COMMENT") %>
<%=REPLACE(PRESS_TYPE("RESULT")(0)("REG_DATE"),"-",".") %>

영상자막

<% END IF %>

<% Dim ModCnt FOR i = 0 to List("RESULT_COUNT") - 1 %> <% ModCnt = (i+1) mod 4 IF i <> 0 AND ModCnt = 0 AND i <> List("RESULT_COUNT") - 1 THEN %> <% END IF NEXT IF (4 - ModCnt) <> 0 THEN FOR j = 1 TO 4 - ModCnt Response.Write "" & vbCrLf NEXT END IF %>
홍보동영상 목록

" style="width:130px;height:100px" alt="썸네일이미지" class="thum" />

<% set PRESS_TYPE = nothing set LIST = nothing %>