| <%=n%>
|
<%
' if left(now,8) = left(DbRec("getdate"),8) then ' 1일 단위로 올라온에 New 표시할 때
if datediff("d",DbRec("pd_getdate"),now)<1 then '
response.write " "
else
response.write " "
end if
%> <%
bunho=DbRec("pd_bunho")
subject=DbRec("pd_subject")
ref=DbRec("pd_ref")
tstep=DbRec("pd_step")
visit=DbRec("pd_visited")
sdate=DbRec("pd_getdate")
visit=DbRec("pd_visited")
downcount=DbRec("pd_downcount")
if tstep > 0 then
response.write " "
response.write "Re: "
end if
if len(subject) > 18 then
response.write ""
response.write left(subject,18)&"..."
else
response.write ""
response.write subject&""
end if
%> |
">
<%=DbRec("pd_writer")%>
|
<%=year(DbRec("pd_getdate"))&"-"&month(DbRec("pd_getdate"))&"-"&day(DbRec("pd_getdate"))%>
|
<%=visit%>
|
<%if pdsv="yes" then %>
<%if DbRec("pd_filesize")=0 then%>
-
<%else%>
">
<%
ext=Lcase(right(DbRec("pd_filename"),3))
select case ext
case "jpg"
down="type/jpg.gif"
case "gif"
down="type/gif.gif"
case "txt"
down="type/txt.gif"
case "zip"
down="type/zip.gif"
case "hwp"
down="type/hwp.gif"
case "exe"
down="type/exe.gif"
case "mp3"
down="type/mp3.gif"
case "doc"
down="type/doc.gif"
case "ppt"
down="type/ppt.gif"
case "xls"
down="type/xls.gif"
case else
down="type/default.gif"
end select
%>  " width="16" height="16">
<%end if%> |
<%
if DbRec("pd_filesize")=0 then
response.write " -"
else
response.write ""&downcount&""
end if
%>
|
<% End If %>
<%
n=n-1
DbRec.MovePrevious
Next
end if
%>
"
else
response.write " 
"
end if
if writemanav="yes" then
if session("GRADE")="Z" or session("GRADE")="x" then
response.write "
"
response.write "
"
response.write "
"
End If
else
response.write "
"
if ref = cint(firstnumber) then
response.write "
"
else
response.write "