ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : 계층형 게시판 로직(최근글 하단으로 표시)
글번호: 186
작성자: 레드플러스
작성일: 2004/04/27 오후 10:59:00
조회수: 9706
계층형 게시판 로직(최근글 하단으로 표시)

------------------------------------------------------------------------------------------
<%
Set Dbcon = Server.CreateObject("ADODB.Connection")
Dbcon.Open strconnect

SQL = "Select MAX(numm) from " & table
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,Dbcon

If IsNULL(Rs(0)) Then
  number = 1
else
  number = Rs(0) + 1
End If

Rs.Close

b_id = request("id")
if b_id <> "" then '즉 답변쓰기라면

myref = CDbl(request("ref"))
mystep = CDbl(request("step"))
mylevel = CDbl(request("level"))

'*************  완전한 계층형 추가부분 시작***********************
SQL = " SELECT * FROM " & table
SQL = SQL & " WHERE  ref = " & myref
SQL = SQL & " AND step > " & mystep
SQL = SQL & " AND re_level <= " & mylevel & " ORDER BY step "

Rs.Open SQL, Dbcon
If Not Rs.EOF then
Bro_Step = Rs("step")
End if
Rs.Close

If Bro_Step <> "" then
   'STR = "부모와 같은 레벨의 답이 있다"
   SQL = " SELECT * FROM " & table
   SQL = SQL & " WHERE ref = " & myref
   SQL = SQL & " AND step > " & myStep
   SQL = SQL & " AND step < " & Bro_Step
   SQL = SQL & " AND re_level > " & mylevel & " ORDER BY step DESC"
Else
   'STR = "부모와 같은 레벨의 답이 없다"
   SQL = " SELECT * FROM " & table
   SQL = SQL & " WHERE  ref = " & myref
   SQL = SQL & " AND step > " & myStep
   SQL = SQL & " AND re_level > " & mylevel
   SQL = SQL & " ORDER BY step DESC"
End if
  
Rs.Open SQL, Dbcon
If Not Rs.EOF then
  myStep = Rs("step")
End if
Rs.Close
Set Rs = Nothing
'****************  완전한 계층형 추가부분 끝 ***********************

Application.Lock
SQLString = "UPDATE " & table & " SET step = step + 1 WHERE ref=" &
myref & " AND step > " & mystep
Dbcon.Execute(SQLString)
Application.unLock    

newstep = mystep + 1
newlevel = mylevel + 1

else ' 첨 글쓰기라면...

myref = number
newstep=0
newlevel=0

end if

이하 Insert 문은 이전과 동일..
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 25. ADO 게시판(RecordSet객체만 사용) - 레드플러스 2004-05-24 8008
  24. 답변형 게시판 작성 프로젝트 - 레드플러스 2003-10-06 6056
현재글 계층형 게시판 로직(최근글 하단으로 표시) - 레드플러스 2004-04-27 9706
  1. 답변형 게시판 테이블 설계(Reply.sql) Reply.sql(3 KB) 레드플러스 2004-04-27 9014
  1.1. 계층형 게시판 연습용 쿼리문 - 레드플러스 2004-10-11 5094
다음글 23. 쿠키 실습 예제 RequestResponseCookies.asp(860 Byte(s)) 레드플러스 2002-11-07 5730
 
손님 사용자 Anonymous (손님)
로그인 Home