<%If leftMenuNum = "9" then%>

성품이노베이션

성품대화학교

성품훈계학교

여성성품리더십스쿨

영유아성품리더십스쿨

<%elseIf leftMenuNum = "10" then%>

성품몬테소리

초등성품전문지도사

성품상담전문가

성품교육지도사

어린이 인성언어지도사

성품이노베이션

성품대화학교

성품훈계학교

시니어character교육지도사

영어교육전문지도사

생태성품교육지도사

<%End If%>

글쓰기

<%if Category_YN = "Y" then%> <%End If%> 검색

<%If nTotalListSize > 0 Then%> <% strSQL = "SELECT TOP " & nReadSize & " ROW_NUMBER() OVER(ORDER BY tn asc, ref asc, step desc) as rownum, i.num, no, gubun, ref, step, reLevel, tn, subject, writer, regdate, visited, filename0, dbo.GetReplyCount(i.bbs,no) as recount, writerid, i.category_num, c.category_name , i.private_yn FROM goodtree.i_board i" strSQL = strSQL & " left join goodtree.Board_Master a on i.bbs = a.bbs and Category_YN = 'Y'" strSQL = strSQL & " left join goodtree.Board_Category c on i.bbs = c.bbs and i.category_num = c.num" strSQL = strSQL & " WHERE i.bbs = ? " & condition & " ORDER BY tn desc, ref DESC, step ASC" Set Comm = Server.CreateObject("ADODB.Command") with Comm .ActiveConnection = oConn .CommandType = adCmdText .CommandText = strSQL .Parameters.Append .CreateParameter("@bbs", adChar, adParamInput, 2) .Parameters("@bbs") = bbs Set oRS = .Execute end with If Not (oRS.BOF OR oRS.EOF) Then oRS.Move nListSize * (page - 1) ' 일반 목록게시판의 경우 // Table_Gubun : 2 if Table_Gubun = "2" Then %>

번호
제목
작성자
작성일
조회

내용

<% Do Until (oRS.EOF) rownum = Trim(oRS("rownum")) num = Trim(oRS("num")) no = Trim(oRS("no")) ref = Trim(oRS("ref")) step = Trim(oRS("step")) reLevel = Trim(oRS("reLevel")) tn = Trim(oRS("tn")) recount = Trim(oRS("recount")) category_name = Trim(oRS("category_name")) subject = Trim(oRS("subject")) writer = Trim(oRS("writer")) writerid = Trim(oRS("writerid")) visited = Trim(oRS("visited")) regdate = Left(Trim(oRS("regdate")),10) isPrivate = Trim(oRS("private_yn")) tmpDateDiff = CInt(DateDiff("d", regDate, nowDate)) 'If category_name <> "" Then subject = "[ " &category_name& " ] " & subject ' 카테고리 If reLevel > 0 Then subject = "

" & subject ' 답글 화살표 If recount > 0 and Reply_one = "Y" Then subject = subject & " (" & recount & ")" ' 한줄댓글 If tmpDateDiff < 3 Then subject = subject & " new" ' new %>

<%if tn = "1" then %>공지<%else%><%If Not(reLevel>0) Then %><%=rownum%><%End if %><%End if %>
<% ' 비밀글의 경우에는 권한을 변경해준다.=========================== If isPrivate = "Y" Then ' 본인이 아니거나 관리자가 아닌경우에 모든 권한이 없도록 한다. If writerid = ck_memID Or goodtreeAdmin = "Y" Then else ' 값이 중간에 배치된 비밀글 하나로 아예 변하면 안되므로 임시 변수에 넣어주고 다시 기존 권한으러 되돌린다. Tmp_view_YN = view_YN view_YN = "N" End if End If '===================================================== %> <%if view_YN = "Y" Or tn = "1" then%> <%else%> <%end if%> <%=subject%>
<%=writer%>
<%=regdate%>
<%=visited%>

<%if tn = "1" then %>공지<%else%><%If Not(reLevel>0) Then %><%=rownum%><%End if %><%End if %>
<% ' 비밀글의 경우에는 권한을 변경해준다.=========================== If isPrivate = "Y" Then ' 본인이 아니거나 관리자가 아닌경우에 모든 권한이 없도록 한다. If writerid = ck_memID Or goodtreeAdmin = "Y" Then else ' 값이 중간에 배치된 비밀글 하나로 아예 변하면 안되므로 임시 변수에 넣어주고 다시 기존 권한으러 되돌린다. Tmp_view_YN = view_YN view_YN = "N" End if End If '===================================================== %> <%if view_YN = "Y" Or tn = "1" then%> <%else%> <%end if%> <%=subject%>
<%=writer%>
<%=regdate%>
<%=visited%>

<% ' 비밀글의 경우에는 권한을 변경해준다----------------------------------- If isPrivate = "Y" Then ' 본인이 아니거나 관리자가 아닌경우에 모든 권한이 없도록 한다 If writerid = ck_memID Or goodtreeAdmin = "Y" Then else view_YN = Tmp_view_YN End If End If '---------------------------------------------------------------------------------- oRS.MoveNext Loop ' ============================================================================ ' 이미지 게시판의 경우 elseif Table_Gubun = "1" Then %>

<%else%>

<%end if%>

<%else%>

<%end if%><% If tmpDateDiff < 3 Then Response.Write "

"%><%=subject%>

<% End If ' 데이타베이스 연결 객체 닫기 setDisconnectionDB '--------------- 페이징의 시작과 끝을 계산 ------------------- nPageStart = Fix((page-1) / nBlockSize) * Fix(nBlockSize) + 1 nPageEnd = (Fix((page-1) / nBlockSize) + 1) * Fix(nBlockSize) IF nPageEnd > nTotalPageSize Then nPageEnd = nTotalPageSize '--------------- 페이징의 시작과 끝을 계산 끝 ---------------- %>

"%>< <% If CInt(page) > Fix(nBlockSize) Then Response.Write "

" & i & "

" & i & " " End If Next %> <% If CInt(nPageEnd) < nTotalPageSize Then Response.Write "

"%> ><% If CInt(nPageEnd) < nTotalPageSize Then Response.Write "

<%else%>

등록된 게시물이 없습니다 <%End If%>