<%
set db=session("db")
page=Request("page")
if page="" then
page=1
end if
sql="select count(idx) from hang"
set rs=db.execute(sql)
totalcount=Rs(0)
rs.close
IF totalcount > 0 then
sql="select TOP " & page*15 & " * from hang order by idx desc"
Set Rs = Server.Createobject("adodb.recordset")
Rs.Open (sql),db,3
Rs.pagesize = 15
pagecount = totalcount\15
IF totalcount mod 15 > 0 Then
pagecount = pagecount+1
End If
Rs.absolutepage = page
i=1
do until rs.eof
eventdate=split(rs("eventdate"),"@")
wdate=left(rs("wdate"),10)
yymmdd = wdate
strNew = ""
if datediff ("h",yymmdd,Now()) < 48 then
strNew = " "
end if
%>
| <%=eventdate(0)%> - <%=eventdate(1)%> - <%=eventdate(2)%> |
|
&page=<%=page%>"><%= rs("title")%> <%=strNew%> |
<%= left(rs("wdate"),10)%> |
<%= rs("readnum")%> |
|
<%
rs.MoveNext
LOOP
ELSE
%>
| 등록된 글이 없습니다. |
<% end if %>
|
