|
<%
totalrecord=rs.RecordCount
totalpage=rs.PageCount
rs.AbsolutePage = page
%>
 |
| |
Pages: <%=page%>/<%=totalpage%> |
올라온글: <%=totalrecord%> |
|
 |
|
|
<%
i=1
do until rs.EOF or i>rs.PageSize
' 글자 잘라내기
if len(rs("content")) > 12 then
content = left(rs("content"),12) & "..."
else
content = rs("content")
end If
' 글자 잘라내기
if len(rs("title")) > 12 then
title = left(rs("title"),12) & "..."
else
title = rs("title")
end If
' 이미지 첨부여부
If rs("up_file") = "" Then
file_name = "./no_img.gif"
Else
file_name = rs("up_file")
End if
' 4칸 출력후 줄바꿈 처리
If i Mod 4 = 0 Then
%>
|
<%
Else
%>
|
<%
End if
rs.MoveNext
i=i+1
Loop
%>
|
|
|
|
| |
<% If session("member") = "admin" Then %>
 |
<% end if %>
<%
' 맨처음 페이지
if page > 1 then
Response.Write(" ")
else
Response.Write("")
end if
' 이전 10 페이지
blockPage = int((page-1)/10)*10+1
if blockPage = 1 Then
'Response.Write(" ")
else
Response.Write ("")
end if
' 현재 페이지 리스트
i=1
Do until i > 10 or blockPage > totalpage
if blockPage = int(page) then
' 현재 (선택)페이지
Response.Write (" "& blockPage &" ")
else
' 선택되지 않은 페이지 목록
Response.Write (" "& blockPage &" ")
end if
blockPage = blockPage + 1
i = i +1
loop
' 다음 10 페이지
if blockPage > totalpage Then
'Response.Write(" ")
else
Response.Write("")
end If
' 맨마지막 페이지
if Cint(page) < Cint(totalpage) Then
Response.Write(" ")
else
Response.Write("")
end if
%>
|
|
| |
