<%'//*************************************************************************************%> <%'//*************************************************************************************%> <% Dim table, idx_field, orderby_str, Query_Fields '//*****************테이블 기본 환경설정******************* table = "board_config" '//테이블명 idx_field = "a_num" '//기본키 'orderby_str = " ORDER BY a_date desc" '//정렬기준 필드 orderby_str = " ORDER BY a_bbsname ASC" '//정렬기준 필드 Query_Fields = "a_num, a_bbsname, a_level, a_type, a_tablename, a_imgline, a_imgwidth, a_imgheight, a_member, a_ad_cms_id, a_ad_cms, a_cate, a_email, a_phone, a_home, a_jumin, a_jumin_opt, a_ftemp1, a_ftemp1_str, a_ftemp2, a_ftemp2_str, a_ftemp3, a_ftemp3_str, a_ftemp4, a_ftemp4_str, a_new, a_upload, a_upload_len, a_nofilesize, a_nofile, a_reply, a_replyOpt, a_command, a_date_list, a_sdate, a_edate, a_noword, a_width, a_displaysu, a_viewType, a_lt_a, a_lt_b, a_lt_c, a_lt_e, a_lt_f, a_header, a_hd_file, a_detail, a_dt_file, a_writecontent, a_topinclude, a_btminclude, a_skin, a_date" '//불러올 필드 '//******************************************************* '//검색어가 잇따면 If v_keyword <> "" then search_str = " AND " & v_search & " like '%" & v_keyword & "%'" End if '/*추가 검색옵션 'If g_idx <> "" then ' search_str2 = " AND ph_code = '" & g_idx & "'" 'End if '*/ sql_t = "SELECT " & Query_Fields & " FROM " & table & " WHERE a_num <> 0" sql_t = sql_t & search_str & search_str2 sql_t = sql_t & orderby_str 'response.write sql_t 'response.end Set col = dbcon.execute( sql_t ) If col.bof Or col.eof Then list_data = Null totalcount = 0 Else list_data = col.getrows totalcount = UBound(list_data, 2)+1 End if Set col = Nothing '///////////////////////////////////////////////////////////////// %>

게시판 리스트

등록된 게시판 리스트

  • :
전체 <%=totalcount%>개
코드관리 작성/수정 <% If IsNull( list_data ) Then %> <% Else For i = 0 To UBound(list_data, 2) Call arr2Value(Query_Fields, "list_data", i) ' 관리하는 사이트 인지 확인 ------------- flag_view = false If SESSION("ss_g_num") = 1 Then flag_view = true Else is_ad_cms = "" sql = "select * from board_access where g_num=" & SESSION("ss_g_num") & " and a_num=" & a_num Set rs_lev = dbcon.execute( sql ) If Not rs_lev.eof Then is_ad_cms = rs_lev("Bl_ad_cms") End If rs_lev.close : Set rs_lev = Nothing If is_ad_cms="Y" Then flag_view = true Else a_ad_cms_id = "|"&Replace(a_ad_cms_id,",","|,|")&"|" If InStr(a_ad_cms_id,"|"&SESSION("ss_m_id")&"|")>0 Then flag_view = True End if End if End If ' 관리하는 사이트 인지 확인 ------------- If flag_view then if a_upload = "Y" then a_upload_str = "파일업로드 기능 사용" else a_upload_str = "" End if sql = "select count(b_num) as b_num from " & a_tablename Set rsc1 = dbcon.execute( sql ) tot_count = rsc1("b_num") Set rsc1 = nothing sql = "select count(b_num) as b_num from " & a_tablename & " where left(b_regdate,10) = '" & Date() & "'" Set rsc2 = dbcon.execute( sql ) today_cnt = rsc2("b_num") sql = "alter table " & a_tablename sql = sql & " alter column b_file5 varchar(300) null" dbcon.execute sql %> <% End If Next End if %>
코드관리 서식
선택 게시판명 테이블명 파일 전체/오늘 수정 삭제 분류
<%=a_bbsname%> <%=a_tablename%>
<%=a_level%>
<%=a_num%>		 <%=a_upload_str%> <%=tot_count%>/<%=today_cnt%> <% If a_cate = "Y" then%> <% End if%>