<% '-------------------------------------------------- ' Title : Basic º¸µå ' Program Name : boardview.asp ' Program Description : ¼¼ºÎ ±Ûº¸±â ÆäÀÌÁö ' QueryString : ¹Ýµå½Ã list.asp¿¡¼­ Num=1 ½ÄÀ¸·Î Àü¼Û ' Include Files : None ' Copyright (C) 2004 Park Yong Jun ' E-mail: redplus@redplus.net ' Support: http://www.dotnetkorea.com/ '-------------------------------------------------- %> <% '[1] º¯¼ö ¼±¾ð Option Explicit Dim Num: Num = Request("Num") 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] ·¹ÄÚµå¼Â ¿­±â : ¸í·É ½ÇÇà(select) strSql = "Select * From Basic Where Num = " & Num objRs.Open strSql, objCon '[6] Ãâ·Â If objRs.BOF Or objRs.EOF Then Response.Write("ÇØ´ç ·¹Äڵ尡 Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.") Else 'HTML+ASPÄÚµå(½ºÆÄ°ÔƼÄÚµå)·Î ¸ð¾ç ¸¸µé¾î Ãâ·Â Call ShowRecordSet(objRs) End If '[7] ´Ý±â objRs.Close(): objCon.Close() '[8] ÇØÁ¦ Set objRs = Nothing: Set objCon = Nothing %> <% Sub ShowRecordSet(objRs) %>
°Ô½Ã¹° Àбâ
±Û¾´ÀÌ <%=objRs("Name")%> ³¯Â¥ <%=objRs("PostDate")%>
Email<%=objRs("Email")%> Á¶È¸¼ö <%=objRs("ReadCount")%>
Á¦¸ñ <%=objRs("Title")%>
<%=objRs("Content")%>
[°Ô½ÃÆǸ®½ºÆ®] ">[¼öÁ¤] ">[»èÁ¦]
<% End Sub %>