<% Response.expires=0 %> <% '게시물 정보 읽어오기 Set DbCon = Server.CreateObject("ADODB.Connection") DbCon.open "Provider=SQLOLEDB.1;Data Source=localhost;Initial catalog=CVL;User Id=sa;Password=park6831;" SQL = "select * From board order by board_num desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL, DbCon, 3, 3 '페이지 나누기 Rs.PageSize = 10 '현재 페이지 번호와 마지막 페이지 번호 할당 nPage = 1 nLast = Rs.PageCount '지정된 페이지 번호가 있으면, 현재 페이지 번호에 할당 if Len(Request("page")) > 0 then nPage = CInt(Request("page")) end if '현재 페이지 번호로 이동 if nPage <= nLast then Rs.AbsolutePage = nPage end if number = Rs.RecordCount Row = 0 %> Computer Vision Lab.
 
           
   
 
 
No Title Writer Date
<% if Request("page") > 1 then number = number - ( (Request("page") - 1 ) * 10 ) end if if Rs.EOF then %> <% end if Do while not Rs.EOF and Row < Rs.PageSize '제목 길이 지정 subject = Rs("board_title") if Len(trim(subject)) > 19 then subject = left(subject,19) & "..." end if %> <% number = number - 1 Row = Row + 1 Rs.MoveNext Loop Rs.Close set Rs = nothing DbCon.Close set DbCon = nothing %>
등록된 내용이 없습니다.
bgcolor="EAD4CE" <%else%> bgcolor="D4BBB5" <%end if%>>
<%=number%> <%if len(trim(Rs("board_dataname"))) <> 0 then%><%end if%> &page=<%=nPage%>"><%=subject%> <%=Rs("board_writer")%> <%=Rs("board_date")%>
  <% '페이지 리스트 개수 지정 limit = 0 '시작 페이지 번호 구하기 temp = (nPage-1) mod limit sPage = nPage - temp '이전 링크 추가 if sPage-limit > 0 then %> <% end if %> <% '페이지 번호 나열 for i = sPage to sPage+limit-1 if i = nPage then Response.Write i else %> [<%=i%>] <% end if '페이지 범위를 벗어나는 경우 if i >= nLast then exit for end if next %> <% '다음 링크 추가 if sPage+limit <= nLast then %> <% end if %>