<%
Option Explicit
Dim objCon: Dim objRs: Dim strSql
'[!]
Dim i: i = 1 '//10개씩 보여줄 때 카운트 변수
Dim intPage: intPage = 1'//넘겨져오는 페이지값
If Request("Page") <> "" Then
intPage = Request("Page")
End If
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open("Provider=SQLOLEDB.1;Password=Basic;Persist Security Info=True;User ID=Basic;Initial Catalog=Basic;Data Source=(local)")
Set objRs = Server.CreateObject("ADODB.RecordSet")
strSql = "Select * From Basic Order By Num Desc"
'[!] 페이지 사이즈 지정
objRs.PageSize = 10'//
objRs.Open strSql, objCon, 1'//3번째 매개변수: 1 또는 3
If objRs.BOF Or objRs.EOF Then
Response.Write("데이터가 없습니다.")
Else
objRs.AbsolutePage = intPage'//2번째 페이지부터 출력
Do Until objRs.EOF Or i > objRs.PageSize'//
Response.Write(objRs("Num") & "<br>")
objRs.MoveNext()
i = i + 1 '//
Loop
End If
objRs.Close(): objCon.Close()
Set objRs = Nothing: Set objCon = Nothing
%>
