<%

dim v_search, v_keyword, table, Query_Fields, Query_Where, Query_OrderBy Dim recordcount dim pagesize, v_totalpage, v_page, TotalCnt, v_block

Dim nameSort1, nameSort2

nameSort1 = inputValue( Request.QueryString("nameSort1") ) nameSort2 = inputValue( Request.QueryString("nameSort2") )

v_search = inputValue( Request.QueryString("p_search") ) '검색조건 v_keyword = inputValue( Request.QueryString("p_keyword") ) '검색어 prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string") '현재페이지경로

table = "view_address_member" '테이블 idx_field = "adr_idx" '기본키 oreder_filed = "adr_name asc, adr_idx asc" '정렬기준 필드 Query_Fields = "adr_idx, bdm_idx, adr_m_id, adr_name, adr_mobile1, adr_mobile2, adr_mobile3, adr_c_memo, bdm_menuname" '불러올 필드 pagesize = 10 '목록개수 v_block = 10 '페이지개수

'==================조합 쿼리문======================= If v_keyword <> "" then Query_Where = " where adr_m_id = '" & session("ss_m_id") & "' and " & v_search & " like '%" & v_keyword & "%'" andOrWhere = " and " Else Query_Where = " where adr_m_id = '" & session("ss_m_id") & "'" andOrWhere = " and " End If

If nameSort1 <> "" And nameSort2 <> "" Then Query_Where = Query_Where & andOrWhere & " adr_name between '" & nameSort1 & "' and '" & nameSort2 & "'" End if

Query_OrderBy = " ORDER BY "&oreder_filed '==================조합 쿼리문=======================

'==================전체 레코드 수 뽑기=============== sql="select count("&idx_field&") from " & table & Query_Where 'Response.write sql 'Response.end set rs = DbCon.execute(sql) recordcount=CInt( rs(0) ) '이 전체레코드갯수를 이용해서 페이지갯수를 뽑아 낼것이다. Set rs = nothing '==================전체 레코드 수 뽑기===============

v_totalpage=fix((recordcount-1)/pagesize)+1 '전체덩어리갯수 v_page = Request.QueryString("p_page")

if v_page="" then v_page = 1 elseif cint(v_page) < 1 then v_page = 1 elseif cint(v_page)>cint(v_totalpage) then v_page=cint(v_totalpage) end if

'========================리스트 출력 쿼리문 생성====================== 'MS-SQL sql = "select Top " & pagesize& " " & Query_Fields & " from " & table sql = sql & Query_Where & andOrWhere & " "&idx_field&" not in" sql = sql & "(select top " & pagesize * (v_page - 1) & " "&idx_field&" from " & table sql = sql & Query_Where & Query_OrderBy & ")" sql = sql & Query_OrderBy '========================리스트 출력 쿼리문 생성 끝====================== 'response.write sql

Set rs = Dbcon.Execute( sql ) If rs.bof Or rs.eof Then List_data = Null TotalCnt = 0 else List_data = rs.getrows TotalCnt = recordcount End if

'=======================주소그룹============================ sql = "select a.bdm_idx, bdm_menuname, b.Cnt from bd_address as a left outer join view_bd_memTotal as b on a.bdm_idx = b.bdm_idx where bdm_id = '"&session("ss_m_id")&"' order by bdm_code" Set rs = DbCon.Execute( sql ) If rs.bof Or rs.eof Then addr_list = Null Else addr_list = rs.getrows End If '=======================주소그룹============================

Set rs = Nothing DbCon.close Set DbCon = Nothing

sortkeyword = "가;나;다;라;마;바;사;아;자;차;카;타;파;하;히" sortkeyword_arr = Split(sortkeyword, ";") %>

## 주소록

기본적으로 가나다 순으로 나오며, 정렬설정은 아래의 선택으로 지정하실 수 있습니다.

- ㄱ
- ㄴ
- ㄷ
- ㄹ
- ㅁ
- ㅂ
- ㅅ
- ㅇ
- ㅈ
- ㅊ
- ㅋ
- ㅌ
- ㅍ
- ㅎ
- A-Z

엑셀저장 엑셀등록 주소록 등록

| 이름 | 연락처 | 문자보내기 | 소속그룹 | 메모
--- | --- | --- | --- | --- | ---

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

홍길동

010-1234-5463

- 발송

나눔아이앤씨

메모메모

이전

- 1
- 2
- 3
- 4
- 5

다음

- 전체선택/해제
- 선택삭제
- 선택 주소록 그룹설정

#### 그룹설정

선택한 ‘5건’ 주소록을
아래의 그룹으로 이동합니다.

- 그룹이동
- 취소

#### 주소록등록

필수항목

- 저장
- 취소

#### 주소록수정

- 수정
- 취소