<% ' ****************파라미터정보*************************** If a_ad_cms = "Y" then a_ad_cms_url = "ad_cms.asp?a_num="&a_num&"&"&page_info else a_ad_cms_url = "#" End if ' ******************************************************* ' ****************페이징정보***************************** v_pagesize = a_displaysu ' 리스트 화면에 보여줄 갯수 v_block = 10 ' 페이징 갯수 length = 30 ' 내용 길이 ' ******************************************************* ' ****************테이블 기본 환경설정******************* is_tablename = a_tablename ' 테이블명 R_Fields = "b_num, b_type, b_id, b_name, b_pwd, b_subject, b_email, b_jumin, b_phone1, b_phone2, b_phone3, b_cate, b_catename, b_noticechk, b_content, b_ip, b_count, b_look, b_open, b_ref, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_sdate, b_edate, b_temp1, b_temp2, b_temp3, b_temp4, b_file1, b_file2, b_file3, b_file4, b_file5,b_c_count" ' 레코드필드 pk_Field = "b_num" opt_where_str = "" ' 기본조건이 있을때 사용..없으면 '' 처리 ' $orderby_str = " ORDER BY "&pk_Field&" DESC "; ' 정렬 orderby_str = " ORDER BY b_ref desc, b_step asc " ' 정렬 ' ******************************************************* ' ****************옵션 부분****************************** if trim(v_keyword) <> "" And v_search <> "" Then ' 검색어가 있다면 search_str = " AND " &v_search &" like '%" & replace(v_keyword,"'","''")&"%'" End If If is_ad_cms <> "Y" then ' 관리자가아닐때 실행할것들... if a_member = "Y" then ' 회원제 사용일때 search_str2 = " AND b_id = '"&SESSION("ss_m_id")&"' " if SESSION("ss_m_id") = "" then Call goMessage("로그인 후 사용하세요", "/content/07guide/02_01.asp") End if End if search_str5 =" AND b_look = 'Y' " End if if a_reply = "N" or (a_reply = "Y" and a_replyOpt = "2") then ' 답변기능을 사용하지 않을때. search_str3 =" and b_type = 'N' " End if ' 기간설정 사용시.. if a_date_list = "Y" then If a_sdate <> "" And a_edate = "" then search_str4 = " and left(b_regdate,10) >= '"&a_sdate&"' " ElseIf a_sdate <> "" And a_edate <> "" then search_str4 = " and left(b_regdate,10) >= '"&a_sdate&"' and left(b_regdate,10) <= '"&a_edate&"'" End if End if ' 분류기능 사용시.. if a_cate = "Y" and v_cate <> "" then search_str6 = " AND b_cate = "&v_cate End if ' ******************************************************* ' ****************전체 레코드 수 뽑기******************** SQL_T = "select count("&pk_Field&") as "&pk_Field&" from "&is_tablename&" where b_noticechk = '' " SQL_T = SQL_T & search_str & search_str2 & search_str3 & search_str4 & search_str5 & search_str6 ' 검색옵션 Set row = Dbcon.Execute (SQL_T) recordcount = row(pk_Field) v_totalpage = fix( (recordcount-1)/ v_pagesize)+1 '전체덩어리갯수 If v_page = "" then v_page = 1 ElseIf v_page < 1 then v_page = 1 ElseIf Int(v_page) > v_totalpage then v_page = v_totalpage End If '//******************************************************* strSQL = "select Top " & v_pagesize & " " & R_Fields & " from " & is_tablename & " where b_noticechk = ''" strSQL = strSQL & search_str & search_str2 & search_str3 & search_str4 & search_str5 & search_str6 '검색옵션 strSQL = strSQL & " and " & pk_Field & " not in" strSQL = strSQL & "(select top " & ( v_pagesize * (v_page - 1) ) & " " & pk_Field & " from " & is_tablename & " where b_noticechk = '' " & search_str & search_str2 & search_str3 & search_str4 & search_str5 & search_str6 strSQL = strSQL & " " & orderby_str & ")" & orderby_str 'response.write strSQL 'response.end Set rs = dbcon.execute( strSQL ) If rs.bof Or rs.eof Then list_data = null Else list_data = rs.getrows End if Set rs = nothing %>
<%If is_ad_cms = "Y" then%>
<%End if%>
<%If a_ad_cms = "Y" then%> <%If SESSION("ss_m_id") = "" then%> <%else%> <%End if%> 전체 <%=recordcount%>개 (페이지 <%=v_page%>/<%=v_totalpage%>) <%else%> 전체 <%=recordcount%>개 (페이지 <%=v_page%>/<%=v_totalpage%>) <%End if%>
<%colCnt=1%>
<%If is_ad_cms = "Y" then ' 관리권한이 있을때만 보인다%> <% colCnt = colCnt + 1 End if%> <%If is_write = "Y" or is_delete = "Y" then ' 수정/삭제권한%> <%colCnt = colCnt + 1 End if%> <% R_Fields_no = "b_num, b_type, b_id, b_name, b_pwd, b_subject, b_email, b_jumin, b_phone1, b_phone2, b_phone3, b_cate, b_catename, b_noticechk, b_content, b_ip, b_count, b_look, b_open, b_ref, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_sdate, b_edate, b_temp1, b_temp2, b_temp3, b_temp4, b_file1, b_file2, b_file3, b_file4, b_file5,b_c_count" '//레코드필드 'sql = "SELECT " & R_Fields_no & " FROM " & a_tablename & " WHERE b_noticechk='Y' ORDER BY b_num DESC" sql = "SELECT " & R_Fields_no & " FROM " & a_tablename & " WHERE b_noticechk='Y'" '//분류기능 사용시.. if a_cate = "Y" and v_cate <> "" then sql = sql & " AND b_cate = " & v_cate End if sql = sql & " ORDER BY b_regdate DESC" Set col = dbcon.execute( sql ) If col.bof Or col.eof Then notice_data = Null notice_chk = false Else notice_data = col.getrows notice_chk = true End if Set col = Nothing If Not( IsNull( notice_data ) ) then For i = 0 To UBound(notice_data , 2) Call arr2Value(R_Fields_no, "notice_data", i) '//댓글사용시 If a_command = "Y" then if no_b_c_count <> "0" then a_command_str = "(" & no_b_c_count & ")" Else a_command_str = "" End if Else a_command_str = "" End if %> <%If is_ad_cms = "Y" then ' 관리권한이 있을때만 보인다%> <%End if%> <%If is_write = "Y" or is_delete = "Y" then ' 수정/삭제권한%> <%End if%> <%If is_ad_cms = "Y" then %> <%End if%> <%If is_write = "Y" or is_delete = "Y" Then ' 수정/삭제권한%> <%End if%> <% next End if %> <% If IsNull( list_data ) then '//------ 내용이 있으면 리스트 출력 If Not notice_chk then %> <% End if Else If v_page = 1 then num = recordcount else num = recordcount - ((v_page -1) * v_pagesize) End if For i = 0 To UBound(list_data, 2) '//필드갯수만큼 ($Query_Fields).가지고온다.. Call arr2Value(R_Fields, "list_data", i) ' 첨부파일표시 If a_upload = "Y" and a_lt_e = "Y" then If b_file1 <> "" Or b_file2 <> "" Or b_file3 <> "" Or b_file4 <> "" Or b_file5 <> "" then file_str = "첨부파일" else file_str = "" End if End if ' 답변표시 If b_type = "R" then b_type_str = "" ' 초기화 For xx=1 To b_level If xx <> 1 Then b_type_str = b_type_str&"   " End If Next b_type_str = b_type_str&"" else b_type_str = "" End if ' 공개/비공개 If a_type = "Y" then' 사용하면 If b_open = "N" then' 비공개이면 b_open_str = "비밀글" else b_open_str = "" End if else b_open_str = "" End if %> <%If is_ad_cms = "Y" then ' 관리권한이 있을때만 보인다%> <%End if%> <%If is_write = "Y" or is_delete = "Y" then ' 수정/삭제권한%> <%End if%> <%If is_write = "Y" or is_delete = "Y" then' 수정/삭제권한%> <%End if%> <%If is_write = "Y" or is_delete = "Y" then ' 수정/삭제권한%> <%End if%> <% num = num - 1 next End If %>
<%=replace(tit_name, " | ", "")%>
자주하는 질문
<% If b_cate <> "" then response.write ""&b_cate_str(b_cate)&"" End if %> <%=b_subject%> <%=a_command_str%> <%=get_newimg2(left( b_regdate, 10), a_new)%> <%If is_write = "Y" then%> 수정 <%End if%> <%If is_delete = "Y" then%> 삭제 <%End if%>
등록된 내용이 없습니다.
<%=b_type_str%> <%If b_type="N" Then response.write ""&b_cate_str(b_cate)&""%> <%=b_subject%> <%=a_command_str%><%=get_newimg2(left(b_regdate,10), a_new)%> <%=b_open_str%> <%If is_write = "Y" then%> 수정 <%End if%> <%If is_delete = "Y" then%> 삭제 <%End if%>
  <%=b_content%> <%If a_upload = "Y" and (b_file1 <> "" or b_file2 <> "" or b_file3 <> "" or b_file4 <> "" or b_file5 <> "" ) then ' 첨부파일 사용일때{%>
<% For z=1 To 5 b_file_name = eval("b_file"&z) If b_file_name <> "" then' 파일이 있으면.. strDir = server.mappath("/data/board/") & "\" & a_tablename & "\" %> <%=b_file_name%><%=b_file_name%> (<%=Folderfilesize(strDir& b_file_name)%> byte)   <% End if next %>
<%End if%>
 
<%If is_ad_cms = "Y" then%>
<% End if %>
<%If is_ad_cms = "Y" then ' 관리권한이 있을때만 보인다%> <%End if%>
목록 <%If is_write = "Y" then%> 쓰기 <%End if%>
<%page2("list.asp?a_num=" & a_num)%>