예전에 전체글 추출하기 라는 사용팁을 올려 드린적이 있었습니다. 사용하던중 필요한 게시판의 글을 추출하는 경우가 더욱 많았습니다. 예를 들어 여행과 관련된 글만을 뽑고자 할때 카테고리를 이용해도 되지만 그것보다는 약간의 전문성을 더하고자 각각의 게시판을 생성하고 보여주고자 할 경우에는 전체글을 뿌려주는것에 대한것은 문제가 많아서 수정을 했습니다. 일단 소스를 올리고 설명 드리겠습니다. < table > <% Dim intCount ,Query_strBoardID intCount = 7 ' 출력할 갯수 Query_strBoardID = "('Board_1','Board_2','Board_3')" SET RS = DBCON.EXECUTE("SELECT TOP " & intCount & " [a].[intSeq],[a].[strBoardID],[a].[strSubject],[a].[dateRegDate],[b].[strName] FROM [MPLUS_BOARD][a] JOIN [MPLUS_BOARD_CONFIG_DEFAULT][b] ON [a].[strBoardID] = [b].[strBoardID] WHERE [a].[bitDelete] <> 1 AND [a].[strBoardID] IN " & Query_strBoardID &" ORDER BY [a].[intSeq] DESC") IF RS.EOF THEN %> 등록된 글이 존재하지 않습니다. <% ELSE WHILE NOT(RS.EOF) intSeq = Rs("intSeq") strBoardID = Rs("strBoardID") strName = RS("strName") strSubject = GetCutSubject(RS("strSubject"), 15) dateRegDate = GetDateType(1,Rs("dateRegDate")) %> • [<%=strName%>]<%=strSubject%> <%=dateRegDate%> <% RS.MOVENEXT WEND END IF %> 지난번 전체글 추출하기와 별반 다를게 없습니다. 하지만 여기에 추가된 소스 부분이 있습니다. Query_strBoardID = "('Board_1','Board_2','Board_3')" 바로 위의 부분인데요 위부분에 Board_1, Board_2, Board3 은 나타내고자 하는 게시판의 이름 입니다. 각 게시판의 이름을 계속해서 추가해주신다면 원하는 계시판은 추가가 됩니다. SET RS = DBCON.EXECUTE("SELECT TOP " & intCount & " [a].[intSeq],[a].[strBoardID],[a].[strSubject],[a].[dateRegDate],[b].[strName] FROM [MPLUS_BOARD][a] JOIN [MPLUS_BOARD_CONFIG_DEFAULT][b] ON [a].[strBoardID] = [b].[strBoardID] WHERE [a].[bitDelete] <> 1 AND [a].[strBoardID] IN " & Query_strBoardID &" ORDER BY [a].[intSeq] DESC") 위의 쿼리문을 보시게 되면 게신판 생성시 게시판이름을 함께 추출하게 되고 IN 을 사용하여 위에서 정의한 나타내고자 하는 게시판을 추출하게 됩니다. 여기서 strName 은 이름은 게시판 이름을 나타내며 Subject 는 글 제목을 나타냅니다. 글추출하기 응용편 이구요 위의 내용으로 여러곳으로 사용가능할 것이라고 보며 응용하신다면 더욱더 좋은 소스가 나올것이라고생각합니다. 저보다도 더 잘하시는분들도 많으신데 참여를 안해주시는것 같아 안타깝습니다. 다같이 활성화시켜 제대로된 게시판을 만들어 가보는것도 좋을것 같습니다. 이상 허접한 에버클럽이였습니다.