<% if request("page")="" then page=1 else page=request("page") end if %> <% SQL = "SELECT * FROM tboardre ORDER BY ref desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = 12 rs.Open SQL,db,3 %>

<% if rs.BOF and rs.EOF then %>

아무 데이타가 없습니다


글쓰기
글쓰기

<% else '페이지 totalpage = rs.pagecount rs.absolutepage = page %>
<% i = 1 Do until rs.EOF Or i>rs.PageSize %> <% rs.MoveNext i=i+1 loop %>
제목 글쓴이 날짜 조회수
<%'if DateDiff("h",rs("writeday"),Now()) < 22 then %> <%' end if %> <% '************** 계층형 추가 *************** if rs("re_level") > 0 then wid = 5 * rs("re_level") %> <% else %>   <% end if %> <%'******************************************%> "><%=rs("title")%> "><%=rs("b_name")%> <%=left(trim(rs("writeday")),10)%> <%=rs("readnum")%>


<% if page <> 1 then%> < 이전페이지 > <%end if%> <% if Cint(page) <> Cint(totalpage) then%> < 다음페이지 > <% end if%>           <%=page%> page / <%=totalpage%> pages
글쓰기
글쓰기
관리
관리

Search            

<% end if%>
<% rs.Close db.Close Set rs = Nothing Set db = Nothing %>