<% '-------------------------------------------------- ' Title : Basic º¸µå ' Program Name : boardsearchlist.asp ' Program Description : °Ë»ö °á°ú ¸®½ºÆ® ÆäÀÌÁö ' QueryString : °Ë»öÆû¿¡¼­ SearchField, SearchQuery ' Copyright (C) 2004 Park Yong Jun ' E-mail: redplus@redplus.net ' Support: http://www.dotnetkorea.com/ '-------------------------------------------------- %> <% '[1] º¯¼ö ¼±¾ð Option Explicit Dim SearchField: SearchField = Request("SearchField") Dim SearchQuery: SearchQuery = Request("SearchQuery") Dim objCon: Dim objRs: Dim strSql '[2] Ä¿³Ø¼Ç °´Ã¼ÀÇ ÀνºÅϽº Set objCon = Server.CreateObject("ADODB.Connection") '[3] Open() : Ä¿³Ø¼Ç ½ºÆ®¸µ ÁöÁ¤ 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] Open() : ¸í·É ½ÇÇà(Select) strSql = "Select * From Basic Where " & _ SearchField & " Like '%" & _ SearchQuery & "%' Order By Num Desc" objRs.Open strSql, objCon '[6] Ãâ·Â If objRs.BOF Or objRs.EOF Then Response.Write("" & SearchQuery & "·Î °Ë»öÇÑ °á°ú°¡ ¾ø½À´Ï´Ù.") Else Call ShowRecordSet(objRs) End If '[7] Close() objRs.Close(): objCon.Close() '[8] °´Ã¼ ÇØÁ¦ 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 %> °Ë»öÁ¾·á