<% Response.Expires = 0 Response.AddHeader "Pragma","no-cache" brd_kind = trim(request("brd_kind")) if brd_kind = "" then brd_kind = "main" end if sql = " select brd_no, brd_deep, brd_name, brd_title, brd_indate, brd_count from board where brd_kind='main' " sql = sql & "order by brd_seq1 desc, brd_seq2 asc " set rs=server.createobject("ADODB.recordset") rs.open sql,db,1 if request("page")="" then page=1 else page=request("page") end if rs.pagesize=10 totalpage=rs.pagecount if rs.bof or rs.eof then else rs.absolutepage=page end if %>


<%if rs.recordcount=0 then%> <% Else pagesize=rs.pagesize recordcnt=rs.recordcount num = recordcnt-((page-1)*pagesize) i=1 do until rs.eof or i>rs.pagesize or rs.bof nbsp="" if trim(rs("brd_title")) <> "" then brd_title=Restore(trim(rs("brd_title"))) titleCnt = len(brd_title) if titleCnt > 60 then brd_title = mid(brd_title,1,60) end if else brd_title="Á¦¸ñ¾øÀ½" end if if rs("brd_deep") <> 0 then for p=1 to cInt(rs("brd_deep")) nbsp = nbsp & "   " next end if %> <% num=num-1 i=i+1 rs.movenext loop End If %>
¹øÈ£ Á¦¸ñ ÀÛ¼ºÀÚ ÀÛ¼ºÀÏ Á¶È¸¼ö
µî·ÏµÈ °Ô½Ã¹°ÀÌ ¾ø½À´Ï´Ù.
<%=num%> <%=linkUrl%>"><%=brd_title%> <%=trim(rs("brd_name"))%> <%=mid(rs("brd_indate"),1,10)%> <%=trim(rs("brd_count"))%>

<% PageBlock=10 TheRest=page mod PageBlock if TheRest=0 then StartPage=page-PageBlock +1 else StartPage=page-TheRest+1 end if if startPage-PageBlock>0 then %> [ÀÌÀü] <% end if for Start=StartPage to startPage+PageBlock-1 if Start<=rs.PageCount then if Cint(page)=Cint(Start) then response.write " " & Start else response.write " "&Start&"" end if end if next If startPage+PageBlock <= rs.PageCount then %>  [´ÙÀ½] <%end if%>



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