<% ' 테이블 기본 환경설정 ******************************************************************************** table = "poll" ' 테이블명 idx_field = "po_idx" ' 기본키 oreder_filed = "po_wdate desc" ' 정렬기준 필드 Query_Fields = "po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate, po_count" ' 불러올 필드 Query_b_Where = "" '기본 검색 v_pagesize = 20 ' 목록개수 v_block = 10 ' 페이지개수 ' **************************************************************************************************** ' ---------------조합 쿼리문------------------------------------ v_search = inputvalue(request("v_search")) v_keyword = inputvalue(request("v_keyword")) If Query_b_Where<>"" Then Query_Where = " and " & Query_b_Where '기본 검색 End If If v_keyword <> "" then Query_Where = Query_Where & " and "&v_search&" like '%"&v_keyword&"%'" End If If Query_Where<>"" Then Query_Where2 = " WHERE " & Mid(Query_Where,5) End If Query_OrderBy = " ORDER BY "&oreder_filed ' --------------------------------------------------------------- ' ---------------------전체 레코드 수 뽑기---------------------------------------- sql = "select count("& idx_field &") as "& idx_field &" from "& table & Query_Where2 Set Rs = Dbcon.Execute (sql) recordcount = rs(0) '이 전체레코드갯수를 이용해서 페이지갯수를 뽑아 낼것이다. rs.close : Set rs = nothing ' --------------------------------------------------------------------------------- v_totalpage = int((recordcount-1)/v_pagesize)+1 '전체덩어리갯수 v_page = p_page If v_page = "" then v_page = 1 ElseIf v_page < 1 then v_page = 1 ElseIf v_page > v_totalpage then v_page = v_totalpage End If ' -----------------------------리스트 출력 쿼리문 생성----------------------------- strSQL = " SELECT TOP "& v_pagesize &" "& Query_Fields &" FROM "& table &" WHERE "& idx_field &" NOT IN " strSQL = strSQL & " ( SELECT TOP "& v_pagesize*(v_page-1) &" "& idx_field &" FROM "& table & Query_Where2 & Query_OrderBy &" ) " strSQL = strSQL & Query_Where &" "& Query_OrderBy Set rs = Dbcon.execute(strSQL) If Not rs.eof Then vData = rs.getrows() vCnt = UBound(vData,2) Else vCnt = -1 End If rs.close : Set rs = Nothing ' --------------------------------------------------------------------------------- getdate_str = getDateFm(now,4) %>

전체 <%=recordcount%>개 (페이지 <%=v_page%>/<%=v_totalpage%>)

게시물 리스트 <% If vCnt>-1 Then If v_page = 1 then num = recordcount else num = recordcount - ((v_page - 1) * v_pagesize) End if For i=0 To vCnt Call arr2Value(Query_Fields, "vData", i) If po_edate >= getdate_str and po_sdate <= getdate_str then ' 진행일때.. po_chk_str2 = "진행" link_str = "poll.asp?po_pk="&po_pk&"&"&page_info else po_chk_str2 = "종료" link_str = "#end" End If %> <% num = num - 1 next Else %> <% End if %>

리스트
번호	주제	설문기간	참여자수	상태	결과
<%=num%>	<%=po_subject%>	<%=po_sdate%> ~ <%=po_edate%>	<%=po_count%>명	<%=po_chk_str2%>

<%page("list.asp")%>