목록보기

<% ' 페이지 정해주기 '넘오오는 페이지 번호가 없다면 무조건 첫페이지로 맞춘다. '만일 넘어오는 페이지 번호가 있다면 그 번호로 세팅한다. ' 이 넘어오는 번호가 absolutepage 로 지정되게 될 것이다. if request("page") = "" then page = 1 else page=request("page") end if if request("startpage") = ""then 'startpage 라는 값으로 넘어오지 않으면 1로 세팅 startpage=1 else startpage = request("startpage") end if %> <% school = Request("school") If school <> "" Then sql = "select * from upboard where b_name like '"& school &"' order by ref desc, re_step asc" else sql = "select * from upboard order by ref desc, re_step asc" end if set rs = server.CreateObject("adodb.recordset") rs.PageSize = 12 ' 페이지 사이즈를 정해준다.. 반드시 레코드셋 오픈전에 지정해 주어야한다. rs.Open sql, db,1 '레코드 커서 값을 지정해 주어야 한다. 만일 지정이 안되면 페이징이 안된다. %> 목록보기 <% if rs.BOF or rs.EOF then ' 만일 레코드가 없다면%>

아무 데이터가 없습니다.!!!!
<% if isEmpty(session("member")) then %> <% else %> <% if session("member")(6) = "yes" then %>

<% end if%> <% end if%> <% else '데이터가 있다면 totalpage = rs.PageCount' 총페이지수를 totalpage라는 변수에 넣는다. rs.AbsolutePage = page '지정된 페이지로 레코드의 현재의 위치를 이동시킨다. endpage = startpage + 9 'endpage 라는 변수에다가 startpage에 4를 더한값이 들어간다. if endpage > rs.PageCount then endpage = rs.PageCount end if %> <% j=1 do until rs.EOF or j>rs.pagesize %> <% rs.MoveNext ' 다음 레코드로 이동한다. if rs.EOF then else %> <% rs.MoveNext ' 다음 레코드로 이동한다. if rs.EOF then else %> <% rs.MoveNext ' 다음 레코드로 이동한다. if rs.EOF then else %> <% rs.MoveNext ' 다음 레코드로 이동한다. if rs.EOF then else j=j+4 %> <% end if end if end if end if loop '레코드의 끝까지 loop를 돈다. %>

<%=rs("b_title")%>

&page=<%=page%>">

<%=rs("b_title")%>

&page=<%=page%>">

<%=rs("b_title")%>

<% if isEmpty(session("member")) then %> <% else %> <% if session("member")(6) = "yes" then %>

<% end if%> <% end if%>

<% if cint(startpage)<>cint(1) then%>

<%end if%> <% if cint(page)> 1 then%> <%end if%> <% for i = startpage to endpage step 1 %> <% if cint(i) = cint(page) then%> [<%=page%>] <%else%> [<%=i%>] <%end if%> <% next%> <% if cint(page) < cint(totalpage) then%> <% end if%> <% if cint(endpage)<>cint(rs.PageCount) then%> <% end if%> [ <%=page%> / <%=totalpage%> ]

<% end if %> <% '사용한 개체드릉 모두 반납한다. Set Image = nothing rs.close db.Close set rs = nothing set db = nothing %>