<% Dim v_pagesize, v_block, length, v_totalpage, v_page Dim is_tablename, R_Fields, pk_Field, opt_where_str, orderby_str Dim p_keyword, p_search Dim search_str, str_option Dim SQL_T, strSQL, rs, i Dim recordcount Dim vData, vCnt Dim po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate Dim po_chk_str ' 페이징정보 v_pagesize = 20 ' 리스트 화면에 보여줄 갯수 v_block = 10 ' 페이징 갯수 length = 30 ' 내용 길이 ' 테이블 기본 환경설정 is_tablename = "poll" ' 테이블명 R_Fields = "po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate" ' 레코드필드 pk_Field = "po_idx" opt_where_str = "" ' 기본조건이 있을때 사용..없으면 '' 처리 orderby_str = " ORDER BY po_wdate desc " ' 정렬 p_keyword = inputvalue(request("p_keyword")) p_search = inputvalue(request("p_search")) ' 옵션 부분 if trim(p_keyword) <> "" and p_search <> "" then ' 검색어가 있다면 search_str = " AND "& v_search &" like '%"& replace(v_keyword,"'","''")&"%'" End if sql_option = search_str ' 전체 레코드 수 뽑기 SQL_T = "select count("&pk_Field&") as "&pk_Field&" from "&is_tablename&" where "&pk_Field&" <> 0 " SQL_T = SQL_T & sql_option ' 검색옵션 Set rs = Dbcon.execute(SQL_T) recordcount = rs(0) rs.close : Set rs = nothing v_totalpage = int((recordcount-1)/v_pagesize)+1 ' '전체덩어리갯수 v_page = request("p_page") If v_page<>"" Then v_page = Int(v_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 &" "& R_Fields &" FROM "& is_tablename &" WHERE "& pk_Field &" NOT IN " strSQL = strSQL & " ( SELECT TOP "& v_pagesize*(v_page-1) &" "& pk_Field &" FROM "& is_tablename &" WHERE "&pk_Field&" <> 0 " & sql_option & orderby_str &" ) " strSQL = strSQL & sql_option &" "& orderby_str 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 %>

설문조사 리스트

  • :
전체 <%=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(R_Fields, "vData", i) If po_chk = "Y" then po_chk_str = "사용" ElseIf po_chk = "N" then po_chk_str = "중지" End if %> <% num = num - 1 Next else ' 게시할 목록이 없다면 %> <%End if%>
설문조사관리 서식
선택 제목 설문기간 사용여부 수정 삭제 설문문항
<%=po_subject%> <%=po_sdate%> ~ <%=po_edate%> <%=po_chk_str%>
<%page("list.asp")%>