<% log_com = request("log_com") log_id = request("log_id") log_pwd = request("log_pwd") pg = request("pg") id_no = request("id_no") b_value = request("b_value") search_word = request("search_word") opt = request("opt") dim b_id dim b_no Set rs = Server.CreateObject("ADODB.Recordset") if (((b_value < 1) and (b_value > max_board)) or (b_value = "")) then b_value = 1 check_board() htm_head_1() head_title() htm_head_2() log_check() sel_menu() print_title() table_head() bb_list() table_foot() htm_foot() Set rs = Nothing cn.Close Set cn = Nothing sub bb_list() SQL = "select * from " & board_name & " where id_no=" & id_no rs.Open SQL, cn, 1 if (rs.recordcount) then rs.movefirst b_id = rs("b_id") b_no = rs("b_no") %> <% select case b_form case "0", "1" %> 제목▒ <%=rs("b_subject")%> ▒ 내용
<%=rs("b_comment")%>
<% case "2" %> No.<%=rs("id_no")%> 이름<%=rs("b_name")%> 날짜<%=rs("b_date")%> 조회<%=rs("b_cnt")+1%> 제목<%=rs("b_subject")%> 내용
<%=rs("b_comment")%>
<% end select %> <% cnt_p = rs("b_cnt") + 1 USQL = "update " & board_name & " set b_cnt=" & cnt_p & " where id_no=" & id_no cn.Execute USQL else %> 존재하지 않는 글입니다. <% end if rs.Close end sub sub table_head() %>
<% end sub sub table_foot() %>
<% select case b_write case 0 if (session("id") = "admin") then %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  <% end if case 1 if ((session("id") = "admin") or (session("id") = b_id)) then %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  <% elseif (session("id") <> "") then %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  <% end if case 2 %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  <% end select %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>

<% SQL = "select id_no, b_depth, convert(char(12), b_date, 2) as b_date1, b_subject from " & board_name & " where b_no=" & b_no & " order by r_no asc" rs.Open SQL, cn, 1 if (rs.recordcount) then if (rs.recordcount <> 1) then rs.movefirst do until rs.EOF if rs("b_depth") then tt = " " for j=0 to rs("b_depth") tt = "  " & tt next if (int(rs("id_no")) = int(id_no)) then %> <%=tt%><%=dot_dot(rs("b_subject"), 20)%>, <%=rs("b_date1")%>
<% else %> <%=tt%>&b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>"><%=dot_dot(rs("b_subject"), 20)%>, <%=rs("b_date1")%>
<% end if tt = "" rs.movenext loop end if else %> 존재하지 않는 글입니다. <% end if rs.Close %>
<% end sub %>