<% eb_pk = InputValue(request("eb_pk")) if is_write <> "Y" Then Call back_back("쓰기권한이 없습니다.") End If %>

이북 리스트

현재페이지경로: 이북리스트 > <%=get_ebsubject(eb_pk)%>     size: 880px * 1245px

  • :
  • :
  •     
페이지관리 작성/수정 <% ' 테이블 기본 환경설정 ******************************************************************************** table = "ebook_page" ' 테이블명 idx_field = "ebp_idx" ' 기본키 oreder_filed = "ebp_code ASC" ' 정렬기준 필드 Query_Fields = "ebp_idx, ebp_subject, ebp_code, ebp_pageimg, ebp_wdate, ebp_mdate, ebp_chk, eb_pk" ' 불러올 필드 ' **************************************************************************************************** ' ---------------조합 쿼리문------------------------------------ If v_keyword <> "" then search_str = " AND "&v_search&" like '%"&v_keyword&"%'" End if Query_OrderBy = " ORDER BY "&oreder_filed ' --------------------------------------------------------------- ' -----------------------------리스트 출력 쿼리문 생성----------------------------- sql = "select "&Query_Fields&" from "&table&" WHERE eb_pk = "&eb_pk&"" sql = sql & search_str & search_str2 & Query_OrderBy Set Rs = Dbcon.Execute (sql) If Not rs.eof Then vData = rs.getrows() vCnt = UBound(vData,2) Else vCnt = -1 End If rs.close : Set rs = nothing ' --------------------------------------------------------------------------------- If vCnt>-1 then zz = 1 For i=0 To vCnt ' 필드갯수만큼 ($Query_Fields).가지고온다.. Call arr2Value(Query_Fields, "vData", i) If ebp_chk ="Y" then ebp_chk_str = "사용" else ebp_chk_str = "중지" End If %> <% zz = zz + 1 num = num - 1 next else ' 게시할 목록이 없다면 %> <% End if %>
페이지관리 서식
선택 순서 페이지 이미지 사용여부 수정 삭제
순서 위로 이동순서 아래로 이동 <%If ebp_pageimg <> "" then%>
<%=ebp_subject%>
<%End if%>