<% 'if request.servervariables("remote_addr") <> "125.141.166.194" then ' response.write "" ' response.end 'end if %> <% page = request("page") if page="" then page="1" end if prd = request("prd") newstable = "hotnews" Set rss = Server.CreateObject("ADODB.RECORDSET") sqls = "Select * from "&newstable if prd = "past" then sqls = sqls & " where writedate < '" & year(date()) & "-01-01 00:00:00'" else sqls = sqls & " where writedate >= '" & year(date()) & "-01-01 00:00:00'" end if sqls = sqls & " order by writedate desc, uniq desc" rss.pagesize =10 rss.Open sqls,DB,1 %> GNCO:::::::::::::::::::::::::::::::::::::
  <% if prd = "past" then %> <% else %> <% end if %>
<% If rss.BOF or EOF then %> <% else rss.absolutepage = page i=1 DO until rss.EOF or i > rss.pagesize num = rss.recordcount -((page-1)*rss.pagesize) +1 -i %> <% i=i+1 rss.movenext loop end if%>
자료가 없습니다.
<%=num%>
 <%=rss("subject")%>
<%=left(rss("writedate"),10)%>
<% blockPage=Int((Page-1)/10)*10+1 if blockPage = 1 Then Response.Write " " Else %> &key=<%=request("key")%>&prd=<%=prd%>"> <% End If i=1 Do Until i > 10 or blockPage > rss.PageCount If blockPage=int(Page) Then %> |<%=blockPage%> <%Else%> &key=<%=request("key")%>&prd=<%=prd%>">|<%=blockPage%> <% End If blockPage=blockPage+1 i = i + 1 Loop if blockPage > rss.PageCount Then Response.Write " " Else %> &key=<%=request("key")%>&prd=<%=prd%>"> <% End If ' end if %>
☜ <%=year(date())%>년 뉴스<%=year(date())%>년 이전 뉴스 ☞