<% code = request("code") page = Request("page") code = Request("code") sp = Request("sp") key = Request("key") if code <> "RPT" and code <> "SPT" then code = "RPT" elseif code = "" or isNull(code) then code = "SPT" end if if code="RPT" then son1 = "_on" subtitle = "t_03_01.gif" elseif code="SPT" then son2 = "_on" subtitle = "t_03_01.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 = "data03_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 %>