<% log_com = request("log_com") log_id = request("log_id") log_pwd = request("log_pwd") b_value = request("b_value") pg = request("pg") search_word = request("search_word") opt = request("opt") dim total_pg dim pg if (((b_value < 1) and (b_value > max_board)) or (b_value = "")) then b_value = 1 Set rs = Server.CreateObject("ADODB.Recordset") check_board() htm_head_1() head_title() htm_head_2() log_check() sel_menu() print_title() table_head() bb_list() table_foot() htm_foot() cn.Close Set cn = Nothing sub bb_list() select case opt case "1" SQL = "select id_no, b_no, r_no, b_depth, b_id, b_name, b_email, convert(char(12), b_date, 2) as b_date1, " _ & "b_cnt, b_subject from " & board_name & " where b_id like '%" _ & search_word & "%' order by b_no desc, r_no asc" case "2" SQL = "select id_no, b_no, r_no, b_depth, b_id, b_name, b_email, convert(char(12), b_date, 2) as b_date1, " _ & "b_cnt, b_subject from " & board_name & " where b_subject like '%" _ & search_word & "%' order by b_no desc, r_no asc" case "3" SQL = "select id_no, b_no, r_no, b_depth, b_id, b_name, b_email, convert(char(12), b_date, 2) as b_date1, " _ & "b_cnt, b_subject from " & board_name & " where b_comment like '%" _ & search_word & "%' order by b_no desc, r_no asc" case else SQL = "select id_no, b_no, r_no, b_depth, b_id, b_name, b_email, convert(char(12), b_date, 2) as b_date1, " _ & "b_cnt, b_subject from " & board_name & " order by b_no desc, r_no asc" end select rs.Open SQL, cn, 1 if (rs.recordcount) then b_total = rs.recordcount if (pg = "") then pg = 1 total_pg = int(b_total/b_pg_size) if (b_total mod b_pg_size) then total_pg = total_pg + 1 rs.movefirst if (pg =< 1) then pg = 1 else rs.move (pg - 1) * b_pg_size end if else pg = 1 b_total = 0 total_pg = 1 end if for i=1 to b_pg_size if rs.EOF then exit for if rs("b_depth") then tt = " " for j=0 to rs("b_depth") tt = "  " & tt next select case b_form case 0 %> <%=rs("id_no")%>  ><%=rs("b_name")%> <%=tt%>&b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>><%=dot_dot(rs("b_subject"), 28 - (rs("b_depth")*1))%> <%=rs("b_date1")%> <%=rs("b_cnt")%>  <% case 1 %> <%=tt%> &b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>><%=dot_dot(rs("b_subject"), 30 - (rs("b_depth")*1))%> <%=rs("b_date1")%> <% case 2 %> <%=rs("id_no")%>  ><%=rs("b_name")%> <%=tt%>&b_value=<%=b_value%>&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>><%=dot_dot(rs("b_subject"), 20 - (rs("b_depth")*1))%> <%=rs("b_date1")%> <%=rs("b_cnt")%>  <% end select tt = "" rs.movenext next rs.Close Set rs = Nothing end sub sub table_head() %> <% select case b_form case 0 %> <% case 1 %>
No À̸§ Á¦¸ñ ³¯Â¥ Á¶È¸
<% case 2 %>
   
<% end select end sub sub table_foot() %>
No À̸§ Á¦¸ñ ³¯Â¥ Á¶È¸

°æ°í! »ó´ã½Ç¿¡ »ó´ã°ú °ü·Ã¾ø´Â ±ÛÀº Á¤º¸Åë½ÅÀ±¸®À§¿øȸÀÇ ½ºÆÔ¸ÞÀÏ½Å°í¼¾Å¸¿¡ °í¹ßÇÕ´Ï´Ù. 

 

<% p_pg = pg - 1 n_pg = pg + 1 if (pg - 1) then response.write " " s_pg = pg - 5 e_pg = pg + 5 if (s_pg < 1) then s_pg = 1 if (e_pg > total_pg) then e_pg = total_pg for i=s_pg to e_pg %> &b_value=<%=b_value%>&opt=<%=opt%>&search_word=<%=search_word%>><%=i%>  <% next if (total_pg - pg) then response.write " " %> <% select case b_write case 0 if (session("id") = "admin") then %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  <% end if case 1 if (session("id") <> "") then %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  <% end if case 2 %> &pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>  <% end select %>

>
<% end sub %>