<% code = request("code") page = Request("page") code = Request("code") sp = Request("sp") key = Request("key") if code <> "PBA" then code = "PBA" elseif code = "" or isNull(code) then code = "PBA" end if if code="PBA" then son5 = "_on" subtitle = "t_07_01.gif" subtitle1 = "t_07.gif" end if %> <% if page = "" or IsNull(page) then page = 1 end if Dim rs '레코드셋 Dim firstNum '젤 윗글의 번호 Dim entity 'BoardEntity 인스턴스 Dim bm 'BoardManager 인스턴스 Set entity = New BoardEntity Set bm = New BoardManager bm.setConnectionString = connectionString entity.code = code entity.sp = sp entity.key = key bm.setListCnt = listCnt bm.setPage = page Set rs = bm.list(entity) firstNum = bm.getFirstNum %> :: 한국신문협회에 오신것을 환영합니다. ::
 
 

<% if rs.EOF then %> <% else j = firstNum do until rs.EOF ' i = 0 ' for j = bm.getFirstNum to bm.getLastNum step -1 '배열 ' 0 : SEQ ' 1 : REF_LEVEL ' 2 : TITEL ' 3 : NAME ' 4 : EMAIL ' 5 : WRITE_DATE ' 6 : READ_COUNT ' 7 : HTML ' 8 : ID ' 9 : COMM_COUNT ' 10 : FILE_EXIST ' seq = arrData(0, i) ' title = arrData(2, i) ' name = arrData(3, i) ' email = arrData(4, i) ' write_date = Left(arrData(5, i),10) ' read_count = arrData(6, i) seq = rs("seq") title = charactor_cut(rs("title"), 55) name = rs("name") email = rs("email") write_date = Left(rs("write_date"),10) read_count = rs("read_count") if len(trim(title)) <= 0 then title = "[제목없음]" end if %> <% j = j - 1 rs.MoveNext loop end if ' i = i + 1 ' next %>
번호 제 목 작성일 조회
등록된 글이 없습니다.
<%= j %>  <%= title %> <%= write_date %> <%= read_count %>
<% '페이징 시작 Dim ph Set ph = New PageHelper ph.url = "data07_list.asp?code=" & code & "&page=" '이동할 주소 세팅 ph.currentPage = page '현재 페이지 세팅 ph.totalPage = bm.getTotalPage '전체 페이지수 세팅,전체 페이지는 BoardManager 클래스에서 찾아온다.. ph.calPageNum() %> <%= ph.prevBlock(" ") %> <%= ph.pageNum2("class='page'","",""," ") %> <%= ph.nextBlock("") %>
<% rs.Close Set rs = Nothing Set entity = Nothing Set bm = Nothing %>