%
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
brd_kind = trim(request("brd_kind"))
if brd_kind = "" then
brd_kind = "main"
end if
sql = " select brd_no, brd_deep, brd_name, brd_title, brd_indate, brd_count from board where brd_kind='main' "
sql = sql & "order by brd_seq1 desc, brd_seq2 asc "
set rs=server.createobject("ADODB.recordset")
rs.open sql,db,1
if request("page")="" then
page=1
else
page=request("page")
end if
rs.pagesize=10
totalpage=rs.pagecount
if rs.bof or rs.eof then
else
rs.absolutepage=page
end if
%>
|
|
|
|
> ȸ»ç¼Ò°³ > °øÁö»çÇ× |
|
|
¹øÈ£ |
Á¦¸ñ |
ÀÛ¼ºÀÚ |
ÀÛ¼ºÀÏ |
Á¶È¸¼ö |
<%if rs.recordcount=0 then%>
µî·ÏµÈ °Ô½Ã¹°ÀÌ ¾ø½À´Ï´Ù. |
<%
Else
pagesize=rs.pagesize
recordcnt=rs.recordcount
num = recordcnt-((page-1)*pagesize)
i=1
do until rs.eof or i>rs.pagesize or rs.bof
nbsp=""
if trim(rs("brd_title")) <> "" then
brd_title=Restore(trim(rs("brd_title")))
titleCnt = len(brd_title)
if titleCnt > 60 then
brd_title = mid(brd_title,1,60)
end if
else
brd_title="Á¦¸ñ¾øÀ½"
end if
if rs("brd_deep") <> 0 then
for p=1 to cInt(rs("brd_deep"))
nbsp = nbsp & " "
next
end if
%>
<%=num%> |
<%=linkUrl%>"><%=brd_title%> |
<%=trim(rs("brd_name"))%> |
<%=mid(rs("brd_indate"),1,10)%> |
<%=trim(rs("brd_count"))%> |
<%
num=num-1
i=i+1
rs.movenext
loop
End If
%>
|
<%
PageBlock=10
TheRest=page mod PageBlock
if TheRest=0 then
StartPage=page-PageBlock +1
else
StartPage=page-TheRest+1
end if
if startPage-PageBlock>0 then
%>
[ÀÌÀü]
<%
end if
for Start=StartPage to startPage+PageBlock-1
if Start<=rs.PageCount then
if Cint(page)=Cint(Start) then
response.write " " & Start
else
response.write " "&Start&""
end if
end if
next
If startPage+PageBlock <= rs.PageCount then
%>
[´ÙÀ½]
<%end if%>
|
|
|
|
|