<% 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("") %>