|
|
|
|
 |
|
흐미 / 2001-12-02 / 오전 12:33:45 / 211.245.244.179
조회수 : 144
|
| [질문] 페이징 질문a |
1페이지 일때도 페이징 부분인데... 페이지를 볼때 -2,-1, or 1,2,3 이런식으로 나오는데 1페이지 일때 1페이지만 보이도록 하려면 어떻게 해야하나요~?
Dim totalRecord, cpage, lastpg, RowCount
rsman.pagesize=10
totalRecord=rsman.recordCount
Page = Request.querystring("Page")
if page = "" or page < 1 then
page=1
else
page="page"
end if
cpage=page
rsman.Absolutepage=cpage
lastpg=int(((totalRecord-1) / rsman.PageSize) + 1)
if page > lastpg then
page=lastpg
end if
RowCount = rsman.pagesize
end if
<%
Dim pageBlock, temp1, temp2, temp3, prev, post, pagelist
pageBlock=3
temp1=int(cpage/pageblock)
if (cpage mod pageblock) = 0 then
temp1=temp1-1
end if
temp2=temp1*pageblock
temp3 = int(lastpg/pageBlock)
if (lastpg mod pageblock)=0 then
temp3=temp3-1
end if
prev = temp2
if prev > 0 then
%>
<a href="couplet_list.asp?sort1=<%=sott1%>&sort2=<%=sort2%>&page=<%=prev%>">이전</a>
<%
end if
pagelist=temp2
for i=1 to pageBlock
pagelist=temp2+i
if lastpg < pagelist > 0 then
exit for
end if
if int(pagelist) <> int(cpage) then
%>
<a href="couplet_list.asp?sort1=<%=sotr1%>&sort2=<%=sort2%>&page=<%=pagelist%>"><%=pagelist%></a>
<%
else
%>
<%=pagelist%>
<%
end if
next
post=temp2+pageBlock + 1
if temp1 < temp3 then
%>
<a href="couplet_list.asp?sort1=<%=sort1%>&sort2=<%=sort2%>&page=<%=post%>">다음</a>
<%
end if
%></td></tr>
<tr><td colspan=4 align="center">
<%
if cpage > 1 then
%>
<a href="couplet_list.asp?sort1=<%=sort1%>&sort2=<%=sort2%>&page=<%=cpage-1%>">이전</a>
<%
end if
%>
<a href="couplet_list.asp?sort1=<%=sort1%>&sort2=<%=sort2%>">[목록]</a>
<a href="write.asp?sort1=<%=sort1%>&sort2=<%=sort2%>&page=<%=post%>&methodl=write">[쓰기]</a>
<%
if lastpg-cpage>0 then
%>
<a href="couplet_list.asp?sort1=<%=sort1%>&sort2=<%=sort2%>&page=<%=cpage+1%>">다음</a>
<%
end if
%> |
|
|
|