% '-------------------------------------------------- ' 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) %>
¹øÈ£ | Á¦¸ñ | ÀÛ¼ºÀÚ | ÀÛ¼ºÀÏ | Á¶È¸¼ö |
<%=objRs("Num")%> | "><%=objRs("Title")%> | <%=objRs("Name")%> | <%=objRs("PostDate")%> | <%=objRs("ReadCount")%> |