<%
'--------------------------------------------------
' Title : Basic 보드
' Program Name : boardlist.asp
' Program Description : 글 리스트 페이지
' Include Files : None
' Copyright (C) 2004 Park Yong Jun
' E-mail: redplus@redplus.net
' Support: http://www.dotnetkorea.com/
'--------------------------------------------------
%>
<%
'[1] 변수 선언
'Option Explicit
Dim objCon: Dim objRs: Dim strSql
Dim Page: Page = 1'//
If Request("Page") <> "" Then
Page = Request("Page")'넘겨져온 페이지 값이 담긴다.
End If
Dim PageCount'//총 페이지 수 저장
'[2] 인스턴스 생성
Set objCon = Server.CreateObject("ADODB.Connection")
'[3] 오픈
objCon.Open(Application("CONNECTION_STRING"))
'[4] 레코드셋 객체의 인스턴스 생성
Set objRs = Server.CreateObject("ADODB.RecordSet")
'[5] 명령어 실행
strSql = "Select * From Basic Order By Num Desc"
objRs.PageSize = 5'//페이지 사이즈 결정
objRs.Open strSql, objCon, 1'//1 또는 3으로 지정
'[6] 출력
If objRs.BOF Or objRs.EOF Then
Response.Write("데이터가 없습니다.")
Else
PageCount = objRs.PageCount'//총 페이지 값 저장
objRs.AbsolutePage = Page'//
Call ShowRecordSet(objRs)
End If
'[7] Close()
objRs.Close(): objCon.Close()
'[8] Nothing
Set objRs = Nothing: Set objCon = Nothing
%>
<%
Sub ShowRecordSet(objRs)
%>
기본 게시판 리스트
| 번호 |
제목 |
작성자 |
작성일 |
조회수 |
<%
Dim i: i = 1'//페이지 사이즈 카운트. 초기식
Do Until objRs.EOF Or i > objRs.PageSize'//조건식
%>
| <%=objRs("Num")%> |
"><%=objRs("Title")%> |
<%=objRs("Name")%> |
<%=objRs("PostDate")%> |
<%=objRs("ReadCount")%> |
<%
objRs.MoveNext()
i = i + 1'//증감식
Loop
%>
<%
End Sub
%>
글쓰기
<%
If Page > 1 Then
%>
[이전]
<%
Else
%>
[이전]
<%
End If
Response.Write("[" & Page & "/" & PageCount & "]")
If CInt(Page) < CInt(PageCount) Then
%>
[다음]
<%
Else
%>
[다음]
<%
End If
%>
<%
Call AdvancedPaging(Page, PageCount)
%>