|
|
|
| |
| |
|
 |
|
|
<%
i = 1
Do until DbRec.EOF Or i>DbRec.PageSize
name = (DbRec("name"))
wdate = left(DbRec("wdate"),10)
title = replace(DbRec("title"),""","'")
If Len(name) > 5 Then
name = Mid(name,1,6) & "....."
End If
If Len(title) > 22 Then
title = Mid(title,1,23) & "......"
End If
%>
| <%=DbRec("testid")%> |
<% if DbRec("re_level") > 0 then %>
<% wid = 4 * DbRec("re_level") %>
<% end if %>
&read=<%=DbRec("readnum")%>pagec=<%=session("currentpage")%>" onFocus="this.blur()"><%=title%>
|
<%=left(DbRec("wdate"),10)%> |
"><%=name%> |
<%=DbRec("readnum")%> |
<%
DbRec.Movenext
i = i + 1
Loop
%>
|
|
<%
mychoice = 10
total_block = int(totpage / mychoice)
if int(totpage) mod mychoice = 0 then
total_block=total_block-1
end if
if request("block") <> "" then
nowblock = request("block")
else
nowblock=0
end if
%>
PAGE:
<% if totpage > 0 then %>
<% if Cint(nowblock) >0 then %>
<% curpage=(int(nowblock*mychoice) - (mychoice-1)) %>
[이전Page]
<% end if %>
<% if Cint(total_block) <> Cint(nowblock) Then %>
<% for Gopage = 1 to mychoice %>
<% if CurPage <> Gopage then %>
<% end if %>
[<%=(int(nowblock*mychoice) + Gopage)%>]
<% next %>
<% else %>
<% for Gopage = 1 to (totpage mod mychoice) %>
<% if CurPage <> Gopage then %>
<% end if %>
[<%=(int(nowblock*mychoice) + Gopage)%>]
<% next %>
<% end if %>
<% curpage=(int(nowblock*mychoice) + Gopage) %>
<% if (Cint(total_block) > 0) and (Cint(nowblock) < Cint(total_block)) then %>
[다음Page]
<% end if %>
<% end if %>
|
 |
|
|
