<% dim depth1, depth2, loca1, loca2 depth1=6 depth2=3 loca1="°í°´Áö¿ø" loca3="ÀÚ·á½Ç" %>

<% srchkey = Request.QueryString("srchkey") srchval = Request.QueryString("srchval") if srchkey <> "" then addqry = " and "&srchkey&" like '%"&srchval&"%' " end if Select Case Request.QueryString("page") Case "" 'óÀ½ÆäÀÌÁö CurrentPage = 1 Case Else CurrentPage = cint(Request.QueryString("page")) End Select qstr = "&srchkey="&srchkey&"&srchval="&srchval&"" pagesize = 10 Set DbRec =Server.CreateObject("ADODB.Recordset") Set DbRec1 =Server.CreateObject("ADODB.Recordset") DbRec.CursorTYPE=1 sql = "SELECT * FROM data_board WHERE did='story' "&addqry&" ORDER BY number DESC" DbRec.Open sql, db DbRec.PageSize = pagesize lastpage= DbRec.PageCount if not DbRec.eof then DbRec.AbsolutePage = currentpage end if sql= "SELECT total=count(*) FROM data_board WHERE did='story' "&addqry&"" DbRec1.Open sql, db max=DbRec1("total") bunho= max-DbRec.PageSize*(currentpage-1) %>

<% If Not (DbRec.EOF and DbRec.BOF) then i = 1 set AnsRS = Server.CreateObject("ADODB.RecordSet") Do until DbRec.EOF Or i> DbRec.PageSize %> <%=bunho%> <%if DbRec("step") > 0 then%> <%if len(DbRec("subject")) > 20 then%> ¤tpage=<%=currentpage%>&srchkey=<%=srchkey%>&srchval=<%=srchval%>"><%= left(DbRec("subject"),20)%>... <%else%> ¤tpage=<%=currentpage%>&srchkey=<%=srchkey%>&srchval=<%=srchval%>"><%= DbRec("subject")%> <%end if%> <%else%> <%if len(DbRec("subject")) > 20 then%> ¤tpage=<%=currentpage%>&srchkey=<%=srchkey%>&srchval=<%=srchval%>"><%= left(DbRec("subject"),20)%>... <%else%> ¤tpage=<%=currentpage%>&srchkey=<%=srchkey%>&srchval=<%=srchval%>"><%= DbRec("subject")%> <%end if%> <%end if%> <%=DbRec("writer")%> [<%=left(DbRec("writedate"),10)%>] <%=DbRec("visited")%> <% sql = "select * from data_board_answer where number=" & DbRec("number") & " order by wdate desc " AnsRS.Open sql, db, 1 Do Until AnsRS.Eof anssubject = CheckWord(AnsRS("subject")) %> ')" onfocus="blur()"><% if len(anssubject) > 20 then response.write left(anssubject,20) & "..." else response.write anssubject end if%>')"> <%=CheckWord(AnsRS("nicname"))%> [<%=left(AnsRS("wdate"),10)%>] " style="display:none"> <%=ent_2_br(AnsRS("content"))%> <% AnsRS.movenext Loop AnsRS.Close %> <% DbRec.movenext if not (DbRec.EOF Or i> DbRec.PageSize) then %> <% end if i = i + 1 bunho=bunho-1 Loop set AnsRS = Nothing %> <% else %> µî·ÏµÈ ÀÚ·á°¡ ¾ø½À´Ï´Ù. <% end if %> <%call paging_load( CurrentPage, pagesize, max, qstr, "", "", "", "" )%> selected<%end if%>>Á¦¸ñ selected<%end if%>>±Û³»¿ë selected<%end if%>>±Û¾´ÀÌ