<% '-------------------------------------------------- ' 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(Application("CONNECTION_STRING")) '[!] Á¶È¸¼ö Áõ°¡ strSql = "Update Basic Set ReadCount = ReadCount + 1 Where Num = " & Num objCon.Execute(strSql) '[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 %>