<% Dim page Dim code Dim goWrite '쓰기 버튼 설정 page = Request("page") code = Request("code") sp = Request("sp") key = Request("key") if code <> "PNS" then code = "PNS" elseif code = "" or isNull(code) then code = "PNS" end if if code = "PNS" then filePath = "/upload/photo_news/" else filePath = "/upload/photo/" end if %> <% if page = "" or IsNull(page) then page = 1 end if '/*----------------------------------------------------------- '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ '글쓰기 버튼 ' goWrite = "" '-------------------------------------------------------------*/ Dim rs '레코드셋 Dim firstNum '젤 윗글의 번호 Dim entity 'BoardEntity 인스턴스 Dim biz 'BoardManager 인스턴스 Set entity = New PhotoBoardEntity Set biz = New PhotoBoardBiz biz.setConnectionString = connectionString entity.code = code entity.sp = sp entity.key = key biz.setListCnt = 10 biz.setPage = page Set rs = biz.list(entity) firstNum = biz.getFirstNum %> :: 한국신문협회에 오신것을 환영합니다. ::
 
<% if rs.EOF then %> <% else ' j = firstNum do until rs.EOF filename = rs("filename") seq = rs("seq") title = rs("title") content = rs("content") write_date = Left(rs("write_date"),10) if len(title) > 18 then title = Left(title,16) & "..." end if if len(content) > 60 then content = Left(content,60) & "..." end if %> <% rs.MoveNext loop end if ' i = i + 1 ' next %>
등록된 글이 없습니다.
 
<%= title %> <%=write_date%>
<%=content%>
<% '페이징 시작 Dim ph Set ph = New PageHelper ph.url = "data05_list.asp?code=" & code & "&sp="&sp&"&key="&key&"&page=" '이동할 주소 세팅 ph.currentPage = page '현재 페이지 세팅 ph.totalPage = biz.getTotalPage '전체 페이지수 세팅,전체 페이지는 BoardManager 클래스에서 찾아온다.. ph.calPageNum() %> <%= ph.prevBlock(" ") %> <%= ph.pageNum2("class='page'","",""," ") %> <%= ph.nextBlock("") %>