% ' ****************파라미터정보*************************** 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 %>