<% if Rs.BOF or Rs.EOF then%>
|
<<게시판>>
현재 등록된 게시물이 없습니다
글 쓰기
|
<% else
Rs.absolutepage = Gotopage
%>
| ( <%=Gotopage%> / <%=pagecount%> ) page |
|
 |
| No |
Title |
Name |
Hit |
 |
<%
function ReplaceTag(str)
Dim text
text = replace(str, "&", "&")
text = replace(text, "<", "<")
text = replace(text, ">", ">")
ReplaceTag = text
End Function
Dim i, board_idx, name, title, mail, readnum, wid
i=1
Do until Rs.EOF or i > pagesize
board_idx = Rs("board_idx")
name = Rs("name")
title = Rs("title")
mail = Rs("mail")
readnum = Rs("readnum")
If Len(name) > 8 Then name = Mid(name,1,8) & ".."
if Trim(name)="" then name="???"
name = ReplaceTag(name)
If Len(title) > 30 Then title = Mid(title,1,30) & "..."
If Trim(title) = "" then title = "[제목없음]"
title = ReplaceTag(title)
%>
bgcolor="#f6f6f6" <% else %> bgcolor="#ffffff" <% end if %>>
| <%=(recordcount-i-(GotoPage-1)*PageSize)+1%> |
<% if DateDiff("h",rs("writeday"),Now()) < 24 then %>
 <%else%> 
<%end if%> <% if rs("re_level") > 0 then
wid=5 * rs("re_level") %>  
<%end if%> <%=title%> |
<%=name%> |
<%=readnum%> |
<%
Rs.Movenext
%>
<% if i < pagesize then %> <% if Rs.EOF then%>
|
<% else %>
 |
<% end if %> <% else %>
|
<% end if %>
<%
i=i+1
Loop
Rs.close
Dbcon.close
Set Rs = Nothing
Set Dbcon = Nothing
%>
<% if int(gotopage)>1 then %> 
<% else %>  <% end if %>
|
<% call gotoPageHTML(Gotopage,pagecount) %>
|
<% if int(gotopage) < int(pagecount) then %>
<% else %>  <% end if %>
|
|
|
