<% dbConnect = "Provider=SQLOLEDB;Data Source=14.0.84.102;Initial Catalog=timescampus;user ID=timescampus75;password=tc75*dbs;" set db = server.createObject("ADODB.Connection") db.open dbConnect code = request("code") BOOK_CODE = request("BOOK_CODE") SQL = "SELECT * FROM" & " " & code & " where AEX2_2='Y' order by NID desc" Set rs = Server.CreateObject("ADODB.Recordset") savedir1 = "http://www.timescampus.co.kr/admin_managent/admin_managent/newsbord/"&code&"_files" 'response.write SQL rs.PageSize = 10 rs.Open SQL,db,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") %>

영자신문 교재

<% qq = "SELECT * FROM T_TB_TEXTBOOK where BOOK_CODE='" & BOOK_CODE &"'" 'Response.write qq Set book = Server.CreateObject("ADODB.Recordset") book.Open qq, dbConnect, 1 BOOK_MON = book("BOOK_MON") BOOK_TUE = book("BOOK_TUE") BOOK_WED = book("BOOK_WED") BOOK_THU = book("BOOK_THU") BOOK_FRI = book("BOOK_FRI") %>

<% if nowblock>0 Then %> [이전<%=numPerPage%>개] <% 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 [다음<%=numPerPage%>개] <% end If %>