Home > News
   
   
  <%Response.Expires=0%> <% select case Request.QueryString("page") case "" session("currentpage") = 1 case "next" session("currentpage") = session("currentpage") + 1 case "previ" session("currentpage") = session("currentpage") - 1 end select %> <% '이 부분은 페이지로 직접 접근하는 부분이다. If Request.QueryString("GoTopage") <> "" then session("currentpage") = Cint(Request.QueryString("GoTopage")) end if %> <% set conn=server.createobject("ADODB.connection") conn.open "goto_dsn","sa","goto1234" sqlstring = "select * from tb_news order by num desc" set rs=server.createobject("adodb.recordset") rs.pagesize = 10 rs.open sqlstring,conn,1 %> <%rs.absolutePage = session("currentpage")%> <% i=1 do until rs.eof or i>rs.pagesize%> <%rs.movenext i=i+1 loop %>
번호
제목
글쓴이
등록일
<%=rs("num")%> &visit=<%=rs("visit")%>"><%=rs("subject")%> 관리자 <%=rs("nalja")%>
<% If Session("CurrentPage") > 1 then %> ">◀ <%else%>◀ <% end if %> <%if rs.PageCount > 0 then %> <% for Gopage = 1 to rs.PageCount %> <%if Gopage <> session("currentpage") then%> ["><%=Gopage%>] <%else%> [<%=Gopage%>] <%end if%> <% next %> <%end if%> <% If Session("CurrentPage") < rs.PageCount then %> ">▶ <%else%>▶ <% end if rs.close %>