<% 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") & "
") objRs.MoveNext() i = i + 1 '// Loop End If objRs.Close(): objCon.Close() Set objRs = Nothing: Set objCon = Nothing %>