<% db.CursorLocation = 3 dim txtSearch, selSearch, Sqlwhere txtSearch = trim(Request("txtSearch")) selSearch = trim(Request("selSearch")) if len(txtSearch) > 0 then if selSearch = "C" then Sqlwhere = " where b_content like '%"& txtSearch &"%'" else Sqlwhere = " where b_subject like '%"& txtSearch &"%'" end if else Sqlwhere = "" end if Sql = "select * from board " sql = sql & sqlwhere sql = sql & " ORDER BY b_id DESC" set Rs = db.Execute(sql) dim GotoPage ,BlockPage,RecordCount, i RecordCount = RS.RecordCount GotoPage = request("GotoPage") if GotoPage= "" then GotoPage = 1 else GotoPage = GotoPage end if RS.PageSize=10 if RecordCount > 0 then RS.AbsolutePage=GotoPage end if BlockPage = int((GotoPage - 1) / 10) * 10 + 1 i = 0 %>

HOME > ÇѸ³ÅäÀ̽º ´º½º <%if Rs.EOF then response.write "" end if i = 1 do until Rs.EOF or i > Rs.PageSize %> <% i = i + 1 Rs.Movenext loop %> <%end if%><% i = 1 do until i > 10 or BlockPage > RS.PageCount if BlockPage = int(GotoPage) then Response.Write ""& BlockPage &"" else Response.Write " " & BlockPage &" " end if BlockPage = BlockPage + 1 i = i + 1 loop %><%if BlockPage > RS.PageCount then%> ¢¹ <%else%>  ¢¹ <%end if%> µî·ÏµÈ °Ô½Ã¹°ÀÌ ¾ø½À´Ï´Ù. <%=Rs("b_id")%> <%if Rs("b_reply") > 0 then for i=0 to Rs("b_reply") response.write " " next %><%end if%>&GotoPage=<%=GotoPage%>"><%=Rs("b_subject")%> <%=formatdatetime(Rs("b_date"),2)%> <%=Rs("b_read")%> <% if BlockPage = 1 or len(BlockPage) = 0 then %>¢· <%else%> ¢·
¼­¿ï½Ã °ü¾Ç±¸ ½Å¸²9µ¿ 1555-31 ÇѸ³ÅäÀ̽º, ÇѸ³ÅäÀÌÇÁ¶óÀÚ | TEL 02-878-1245/2355~6 | FAX 02-872-1245 °øÁ¤°Å·¡À§¿øȸ °í½Ã Á¦2000-1È£¿¡ µû¸¥ »ç¾÷ÀÚ µî·Ï¹øÈ£ ¾È³» 112-36-63568 | Åë½ÅÆǸž÷ ½Å°í ¹øÈ£ Á¦00199È£ ȨÆäÀÌÁö¿¡ °ÔÀçµÇ¾î ÀÖ´Â ¸ðµç Á¤º¸ÀÇ ¹«´Ü º¹Á¦ ¹× µµ¿ëÀ» ±ÝÇÏ¸ç ¸ðµç ÀúÀÛ±ÇÀº ÇѸ³ÅäÀ̽º¿¡ ÀÖ½À´Ï´Ù. Copyright ¨Ï 2001~2005 Hanliptoys. All rights reserved.

<% db.close set db = nothing set Rs = nothing %>