">
No.
Title
Date
Hits
<% response.expires = 0 skey=Request("skey") sel_key=Request("sel_key") page =request("page") if page="" or page="0" then page="1" set rs = server.createobject("adodb.recordset") if skey="" then sql = "select id_no,name,convert(char(10),write_date,111),title,filename,viewnum," sql = sql & "re_lev,re_step, email from s_press order by ref desc,re_step asc" else sql = "select id_no,name,convert(char(10),write_date,111),title,filename,viewnum," sql = sql & "re_lev,re_step, email from s_press where "& sel_key &" like '%"&skey&"%' order by ref desc,re_step asc" end if rs.open sql,DbCon,1 if not rs.eof then rs.PageSize= 10 '페이지 사이즈 설정 total_page = rs.PageCount '전체 페이지수 계산 tn = rs.RecordCount '전체 레코드 수 계산 n = tn - (page-1)*clng(rs.pagesize) rs.absolutepage = clng(page) nextpage = clng(page)+1 prevpage = clng(page)-1 else tn=0 total_page=0 end if i=1 if not rs.bof and not rs.eof then while not rs.eof and i<=clng(rs.pagesize) id_no = rs(0) name = rs(1) write_date = rs(2) title = rs(3) if len(title)>60 then title = left(title,60) & "..." end if filename = rs(4) viewnum = rs(5) re_lev = rs(6) re_step = rs(7) email = rs("email") if not email = "" then name="" & name & "" re_header="" if clng(re_lev)>0 then for level=1 to re_lev re_header= re_header + "  " next re_header=re_header + "[reply]" end if ' diffday=DateDiff("d", Now, cdate(write_date)) ' if diffday=0 then title=title & "  " if not filename="" then filename="" %> <% i=i+1 n=n-1 rs.movenext wend else Response.Write "" end if rs.close dbcon.close %>
<%=n%> <%=re_header%><%=title%> <%=write_date%> <%=viewnum%>
게시물이 없습니다


<% if prevpage>0 then %> ?page=<%=prevpage%>&skey=<%=skey%>&sel_key=<%=sel_key%>"> <% end if %> <% pagegroup = int((page-1)/10)*10+1 i=1 do while i<=10 and clng(pagegroup) <= clng(total_page) if cint(page)=cint(pagegroup) then response.write "[" & pagegroup & "] " else %> ?page=<%=pagegroup%>&skey=<%=skey%>&sel_key=<%=sel_key%>"><%=pagegroup%>  <% end if pagegroup = pagegroup+1 i=i+1 loop if nextpage>1 and nextpage <= total_page then %> ?page=<%=nextpage%>&skey=<%=skey%>&sel_key=<%=sel_key%>"> <% end if %>