<% Dim tn, key_id, b_No, page, types, page_size Dim keyword, searchword, link_write, isSearch, total_record, T_page Dim link_url_list, hidden_1, hidden_2, link_prev_1, link_prev_2, link_next_1, link_next_2, link_search_cancel tn = ClearVar("tn") key_id = ClearVar("key_id") b_No = ClearVar("b_No") page = ClearVar("page") types = ClearVar("types") IF page = "" or page = "0" Then page = "1" IF types = "" Then types = 0 IF tn = "" Then tn = "bbs_notice" page_size = 15 keyword = ClearVar("keyword") ''´Â ¾Æ¿¡ ¹«½ÃÇÔ ^^ searchword = ClearVar("searchword") link_write = "" IF (searchword <> "" and not(isNULL(searchword))) and Len(keyword)>0 then isSearch = 1 End IF Set RS = Server.CreateObject("ADODB.RecordSet") IF isSearch = "1" Then SQL = "Exec bbs_select_search_count_v2 '"& tn &"','"& searchword &"','"& keyword &"',"& order_sitecode &",1" Else SQL = "Exec bbs_select_list_count_v2 '"& tn &"',"& order_sitecode &",1" End IF RS.Open SQL, DB, 0, 1, 1 total_record = RS(0) RS.Close T_page = total_record / page_size IF (T_page - (total_record \ page_size)) > 0 Then T_page = int(T_page) + 1 Else T_page = int(T_page) End IF link_url_list = "" hidden_1 = "" IF page = 1 then link_prev_1 = hidden_1 link_prev_2 = hidden_2 Else link_prev_1 = "" link_prev_2 = "" End IF IF int(page) < int(T_page) Then link_next_1 = "" link_next_2 = "" Else link_next_1 = hidden_1 link_next_2 = hidden_2 End IF link_search_cancel = "" IF tn = "bbs_photo" Then isGallery = "OK" isHeight = 100 isColspan = 11 Else isGallery = "" isHeight = 26 isColspan = 9 End IF %>
<%=bbs_sub_title_image%>
 
<% IF isSearch = "1" Then SQL = "Exec bbs_select_list_search_v2 '"& tn &"','"& page &"','"& page_size &"','"& searchword &"','"& keyword &"',"& order_sitecode &",1" Else SQL = "Exec bbs_select_list_v2 '"& tn &"','"& page &"','"& page_size &"',"& order_sitecode &",1" End IF RS.Open SQL, DB, 0, 1, 1 IF Not RS.EOF Then While Not RS.Eof key_id = RS(0) L_no = RS(1) L_RootNo = RS(2) L_Hierarchy = RS(3) L_lvl = RS(4) L_subject = RS(5) L_writer = RS(6) L_member_no = RS(7) L_readcount = RS(8) L_comment_count = RS(9) L_postdate = RS(10) states = RS("states") filename1 = RS("filename1") filename2 = RS("filename2") S_writer = L_writer L_writer = ConvertToSQL(L_writer) L_subject = ConvertToSQL(L_subject) L_content = ConvertToSQL(L_content) loop_count = loop_count + 1 View_No = int(total_record)-(int(page_size)*(int(page)-1)) - loop_count + 1 IF L_member_no <> "0" Then L_writer = ""& L_writer &"" IF isSearch = "1" Then IF InStr(searchword, "writer") <> "0" Then L_writer = Replace(L_writer, keyword, ""&keyword&"") End if End if IF DateDiff("h",L_postdate,Now()) < 24 Then view_img = "" Else view_img = "" End IF IF int(L_lvl) > 0 Then for i=1 to int(L_lvl) reply_null = reply_null & "  " next reply_img = reply_null & " " reply_null = "" Else reply_null = "" reply_img = "" End IF If cut_length > 0 Then L_subject = cut_length_Check(L_subject,cut_length) IF isSearch = "1" Then IF InStr(searchword, "subject") <> "0" Then L_subject = Replace(L_subject, keyword, ""&keyword&"") End if End if L_postdate = formatdatetime(L_postdate,2) IF int(L_comment_count) = 0 Then L_comment_count = "" Else L_comment_count = "[" & L_comment_count & "]" End if 'subject_link_1 = "" subject_link_1 = "" subject_link_2 = "" Link_subject = "  " & subject_link_1 & L_subject & subject_link_2 IF (loop_count mod 2) = 0 Then tr_bgcolor="#f7f7f7" Else tr_bgcolor="#ffffff" End IF IF states = "0" Then Link_subject = "  ÇØ´ç±ÛÀº º»Àθ¸ È®ÀÎ ÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù." Else End IF img_file1 = CheckFileExist_DP(filename1, Fileroom, 80, 70,"") %> <% RS.MoveNext Wend End IF RS.Close DB.Close Set RS = Nothing Set DB = Nothing %>
¹øÈ£ Á¦¸ñ ±Û¾´ÀÌ Á¶È¸¼ö
  <%=View_No%>   <%=reply_img%><%=view_img%><%=Link_subject%> <%=L_comment_count%>   <%=L_writer%>   <%=L_readcount%>
<%=link_url_list%> <%=link_prev_1%><%=link_prev_2%> <%=link_next_1%><%=link_next_2%> <% IF types <> "1" and tn <> "bbs_notice" Then %> <%=link_write%> <% End IF %>