<% '-------------------------------------------------- ' 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 '[2] ÀνºÅϽº »ý¼º Set objCon = Server.CreateObject("ADODB.Connection") '[3] ¿ÀÇ objCon.Open("Provider=SQLOLEDB.1;Password=Basic;Persist Security Info=True;User ID=Basic;Initial Catalog=Basic;Data Source=(local)") '[4] ·¹ÄÚµå¼Â °´Ã¼ÀÇ ÀνºÅϽº »ý¼º Set objRs = Server.CreateObject("ADODB.RecordSet") '[5] ¸í·É¾î ½ÇÇà strSql = "Select * From Basic Order By Num Desc" objRs.Open strSql, objCon '[6] Ãâ·Â If objRs.BOF Or objRs.EOF Then Response.Write("µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù.") Else Call ShowRecordSet(objRs) End If '[7] Close() objRs.Close(): objCon.Close() '[8] Nothing Set objRs = Nothing: Set objCon = Nothing %> <% Sub ShowRecordSet(objRs) %> <% While Not objRs.EOF %> <% objRs.MoveNext() WEnd %>
<%=objRs("Num")%> "><%=objRs("Title")%> <%=objRs("Name")%> <%=objRs("Email")%> <%=objRs("ReadCount")%>
<% End Sub %> ±Û¾²±â