<% '-------------------------------------------------- ' 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.MoveNext() i = i + 1'//Áõ°¨½Ä Loop %>
¹øÈ£ Á¦¸ñ ÀÛ¼ºÀÚ ÀÛ¼ºÀÏ Á¶È¸¼ö
<%=objRs("Num")%> "><%=objRs("Title")%> <%=objRs("Name")%> <%=objRs("PostDate")%> <%=objRs("ReadCount")%>
<% 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) %>