%
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
%>
No |
À̸§ |
Á¦¸ñ |
³¯Â¥ |
Á¶È¸ |
<%
case 1
%>
No |
À̸§ |
Á¦¸ñ |
³¯Â¥ |
Á¶È¸ |
<%
end select
end sub
sub table_foot()
%>
°æ°í! »ó´ã½Ç¿¡ »ó´ã°ú °ü·Ã¾ø´Â
±ÛÀº Á¤º¸Åë½ÅÀ±¸®À§¿øȸÀÇ
½ºÆÔ¸ÞÀÏ½Å°í¼¾Å¸¿¡
°í¹ßÇÕ´Ï´Ù.
<%
end sub
%>