<%
code=request("code")
SQL = "SELECT * FROM "&code&" ORDER BY NID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize=10
rs.Open Sql, dbConnect, 1
if Request("pageNo")<>"" then
Session("curpage")=Request("pageNo")
else
Session("curpage")=1
end if
if Not(rs.EOF or rs.BOF) then
rs.AbsolutePage=Session("curpage")
numPerPage=10
totalpage=rs.PageCount
totalblock=int(totalpage / numPerPage)
if totalblock=(totalpage / numPerPage) then
totalblock=totalblock-1
end if
if Request("pageNo")<>"" then
if Request("pageNo") Mod numPerPage=0 then
nowblock=int((Request("pageNo")/numPerPage))-1
else
nowblock=int((Request("pageNo")/numPerPage))
end if
else
nowblock=0
end if
end if
NID=rs("NID")
%>
<%
i = 1
Do until rs.EOF or i>rs.PageSize
REG_DATE=rs("REG_DATE")
temp=split(REG_DATE,"-")
%>
<%
rs.MoveNext
i=i+1
loop
%>
<%if nowblock>0 then%>
<% end if %>
<%if totalblock <> nowblock then %>
<% for k=1 to numPerPage %>
<% if (int(nowblock*numPerPage)+k=int(Session("curpage"))) then %>
<%=(int(nowblock*numPerPage)+k)%>
<% else %>
<%=(int(nowblock*numPerPage)+k)%>
<% end if %>
<% next %>
<% else %>
<%
remainder=totalpage mod numPerPage
if remainder=0 then
remainder=numPerPage
end if
for k=1 to remainder
if (int(nowblock*numPerPage)+k=int(Session("curpage"))) then %>
<%=(int(nowblock*numPerPage)+k)%>
<% else %>
<%=(int(nowblock*numPerPage)+k)%>
<% end if %>
<% next %>
<%end if %>
<% if (totalblock>0) and (nowblock
<% end if %>