<%
If rs.BOF or rs.EOF then 'ÇöÀç ÀúÀåµÈ ±ÛÀÌ ¾ø´Ù¸é..
if request("mode")="new" or request("search")<>"" then
Response.Redirect "error.asp?no=5"
else
Response.Redirect "write.asp?tb="&tb
end if
Else 'ÇöÀç ÀúÀåµÈ ±ÛÀÌ ÀÖ´Ù¸é..
rs.Move rs.PageSize * (page-1)
record = rs.RecordCount
totalpage = rs.pagecount
rs.AbsolutePage = page
%>
 |
ÃÑ <%=record%>°³ÀÇ °Ô½Ã¹°ÀÌ ÀÖ½À´Ï´Ù. ( <%=page%> / <%=totalpage%> ) |
|
¹øÈ£ |
Á¦¸ñ |
ÀÛ¼ºÀÚ |
ÀÛ¼ºÀÏ |
|
|
<%
If admin_notice<>"no" then ' °øÁö»çÇ×
Set notice_rs = Server.CreateObject("ADODB.Recordset")
notice_SQL = "SELECT * FROM notice where tb='"&tb&"' order by num DESC"
notice_rs.PageSize = notice_num
notice_rs.Open notice_SQL,db,1
If not (notice_rs.BOF or notice_rs.EOF) then
m=1
Do until notice_rs.EOF or m>notice_rs.pagesize
id=notice_rs("id")
name=notice_rs("name")
email=notice_rs("email")
url=notice_rs("url")
title=notice_rs("title")
tag=notice_rs("tag")
write_diff=notice_rs("writeday")
writeday=left(notice_rs("writeday"),8)
visit=notice_rs("visit")
content=notice_rs("content")
num=notice_rs("num")
filename=notice_rs("filename")
If filename="none" then
filename=""
end if
if email="none" then
email=""
end if
if num=0 then
num=""
end if
if left(now,2)="20" then
nowday=mid(now,3)
else
nowday=now
end if
if tag="tag_ok" then
title=CheckWord(title)
if Len(title) > 38 then
title=mid(title,1,39)&".."
end if
name=CheckWord(name)
If Len(name) > 15 Then
name = Mid(name,1,16) & ".."
End If
else
if Len(title) > 20 then
title=mid(title,1,21)&".."
end if
title=replace(title,""","'")
If Len(name) > 4 Then
name = Mid(name,1,5) & ".."
End If
name=replace(name,""","'")
end if
If name="°ü¸®ÀÚ" Then
name = admin_img
End If
if search<>"" then
if st = "on" then
title = replace(title,search,""&search&"")
end if
if sn = "on" then
name = replace(name,search,""&search&"")
end if
end if
%>
°øÁö |
<% if filename="" then %><% if DateDiff("d",write_diff,nowday) < newimg then %> <% else %> <% end if %><% else %><% if DateDiff("d",write_diff,nowday) < newimg then %> <% else %> <% end if %><% end if %> <%=title%> |
<% if email<>"" then %><% if admin_smtp<>"yes" then %><% else %><% if request("mode")="new" then %>&mode=new<% end if %><% if search<>"" then %>&search=<%=search%>&st=<%=st%>&sc=<%=sc%>&sn=<%=sn%><% end if %>"><% end if %><%=name%><% else %><%=name%><% end if %> |
<%=writeday%> |
|
 |
<%
notice_rs.movenext
m=m+1
Loop
notice_rs.Close
set notice_rs=nothing
end if
End if
'-------------------------------------------- °øÁö»çÇ× ³¡ºÎºÐ -------------------------------------------
%>
<%
i=1
Do until rs.EOF or i>rs.pagesize
id=rs("id")
name=rs("name")
email=rs("email")
url=rs("url")
title=rs("title")
tag=rs("tag")
write_diff=rs("writeday")
writeday=left(rs("writeday"),8)
visit=rs("visit")
num=rs("num")
resame=rs("resame")
filename=rs("filename")
filesize=rs("filesize")
blank=4*resame
if filename="none" then
filename=""
filesize=""
end if
if num=0 then
num=""
end if
if email="none" then
email=""
end if
if url="none" then
url=""
end if
if left(now,2)="20" then
nowday=mid(now,3)
else
nowday=now
end if
if tag="tag_ok" then
title=CheckWord(title)
if Len(title) > 38 then
title=mid(title,1,39)&".."
end if
name=CheckWord(name)
If Len(name) > 15 Then
name = Mid(name,1,16) & ".."
End If
else
if Len(title) > 30 then
title=mid(title,1,31)&".."
end if
title=replace(title,""","'")
If Len(name) > 4 Then
name = Mid(name,1,5) & ".."
End If
name=replace(name,""","'")
end if
If name="°ü¸®ÀÚ" Then
name = admin_img
End If
if search<>"" then
if st = "on" then
title = replace(title,search,""&search&"")
end if
if sn = "on" then
name = replace(name,search,""&search&"")
end if
end if
'---------- °Ô½Ã¹° ¸®½ºÆ® ---
Set com_rs = Server.CreateObject("ADODB.Recordset")
com_SQL = "SELECT * FROM comment where tb='"&tb&"' and com_num="&id
com_rs.Open com_SQL,db,1
if rs.BOF or rs.EOF then
else
com_record = com_rs.RecordCount
end if
'---------- °Ô½Ã¹° ¸®½ºÆ® ³¡ ---
%>
<%=num%> |
<% if resame<>0 then %>

<% end if %>
&search=<%=search%>&st=<%=st%>&sc=<%=sc%>&sn=<%=sn%><% end if %>"><%=title%><% if admin_comment="yes" then %><% if com_record<>0 then %> [<%=com_record%>]<% end if %><% end if %> |
<% if email<>"" then %>
<% if admin_smtp<>"yes" then %>
<%=name%>
<% else %>
<% if request("mode")="new" then %>&mode=new<% end if %><% if search<>"" then %>&search=<%=search%>&st=<%=st%>&sc=<%=sc%>&sn=<%=sn%><% end if %>"><%=name%>
<% end if %>
<% else %>
<%=name%>
<% end if %>
|
<%=writeday%> |
|
|
<%
rs.movenext
i=i+1
Loop
%>
|
<% '°Ë»öÆû ºÎºÐ Å×ÀÌºí ½ÃÀÛ %>
<% if request("mode")="new" or search<>"" then %> <% else %> <% end if %> <% if admin_auth<>"yes" or session("login")=admin_name then %> <% end if %> |
<% '°Ë»öÆû ºÎºÐ Å×ÀÌºí ³¡ %>
<% end if %>
|