|
|
|
|
 |
|
문경호 / 2001-04-25 / 오후 5:11:26 / 61.75.51.63
조회수 : 148
|
| [질문] 이런 방식으로 처리하려면 |
다음과 같은 방식을 하려고 합니다.
다름이 아니라 글이 삭제되는 경우인데,예를 들어
부모글
→자식글
→자식글
이라는 것이 있을 경우 부모글을 삭제하는 경우가 발생해서 글을 삭제 하였습니다.저의 경우는 부모글이 삭제 되면 부모글의 첫번째 자식으로 대체되게 해주었거든요.문제는 자식글 즉 답변글이라는 이미지 표시가 함께 올라오는 관계로 썩 좋아보이지 않는다는 것이죠...^^
그래서 나름데루 생각했는데,이것을 부모글을 삭제 되면 리스트에 "삭제되었습니다"라고 하고 싶거든요.오히려 보기두 좋을것 같구요.물론 부모글에만 말임다.
그런데 문제는 어느 곳에서 처리를 해야 하는지 모른다는 것입니다.삭제하면서 삭제 되었다구 넣어주어야 하는것인지 ...아님 리스트에서 처리를 해줘야 하는것인지 모르겠군요.
해결책 좀 알켜주세요
참 글구 아예 삭제를 못하도록 해주었는데,위처럼 나오거든요..히히!
삭제 루틴 소스======================
<%
Dim board_no, board_num, board_step, strSQL
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
board_no = request("board_no")
board_num = request("board_num")
board_step = request("board_step")
board_pass = request("board_pass")
Set rs = Server.CreateObject("ADODB.Recordset")
if board_step = 0 then
' 현재글에대한 관련글이 있다면 삭제 못함 처리 시작
strSQL = "SELECT * FROM bulletboard WHERE board_num = " & board_num
rs.Open strSQL,Dbcon, adOpenKeyset
' 자기글 이외에 자기에 대한 관련글이 있다면
if rs.RecordCount > 1 then
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("삭제하시려는 이 글은 관련된 글이 있습니다.\n" +
"관련된 글이 있으면 삭제하실 수 없습니다.\nnayaBoar-notice(nextmoon@lycos.co.kr)");
history.go(-1);
//-->
</SCRIPT>
<%
end if
rs.Close
' 현재글에 대한 관련글이 있다면 삭제 못함 처리 끝
end if
' 현재 글 존재유무확인
strSQL = "SELECT * FROM bulletboard WHERE board_no = " & board_no
rs.Open strSQL,DbCon,adOpenKeyset
if rs.EOF or rs.BOF then
rs.Close
DbCon.Close
Set rs = nothing
Set DbCon = nothing
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("해당 글은 이미 삭제되었습니다.\nnayaBoar-notice(nextmoon@lycos.co.kr)");
history.go(-1);
//-->
</SCRIPT>
<%
elseif board_pass <> rs("board_pass") then
rs.Close
Set rs = nothing
DbCon.Close
Set DbCon = nothing
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("암호가 틀리면 수정할 수 없습니다.\nnayaBoar-notice(nextmoon@lycos.co.kr)");
history.go(-2);
//-->
</SCRIPT>
<%
else
rs.Close
Set rs = nothing
' 현재 글 존재유무확인 끝
' 현재글 삭제 시작
strSQL = "DELETE FROM bulletboard WHERE board_no = " & board_no
DbCon.Execute(strSQL)
' 현재글 삭제 끝
DbCon.Close
Set DbCon = nothing
Response.Redirect "notice.asp"
end if
%>
|
|
|
|