<% '------------------------------------------------------------------------------- 'Template '------------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------------- 'Config '------------------------------------------------------------------------------- Public Sub Config() Page.S = fn.dic("s") Page.Cate = "1030000" End Sub '------------------------------------------------------------------------------- 'Local Function '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- 'Content '------------------------------------------------------------------------------- Public Sub RenderContent() %>
번호 제 목 작성자 작성일
<% dim pg : pg=fn.dic("curpage") : if pg="" then pg=1 Set Listing = new ListClass Listing.SetLow = 11 Listing.Columm = " * " Listing.Short = " QThread DESC " Listing.Table = " Board " Listing.CountSql = "select count(*) from Board where QDelFg = 0 and QUnique=10702 and QviewArea=0 ;" Listing.Condition = "QDelFg = 0 and QUnique=10702 and QviewArea=0 " Set rs = Listing.execrs() response.cookies("searchKeyWords") = "?curpage="&pg 'US.SETS "PageName", Listing.Target %> <% i = 0 Do until rs.eof %> <% i = i + 1 rs.movenext loop %>
<%=(Listing.ListCount)-(pg-1)*11 - i%>   "><%=rs("QTitle")%><%if left(rs("Qdate"),10) >= trim(date()-5) then%><%end if%> <%=left(rs("QDate"),10)%>
<%=Listing.Paging2("")%>
<% Set Listing = Nothing %>
<% End Sub %>