<% '------------------------------------------------------------------------------- 'Template '------------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------------- 'Config '------------------------------------------------------------------------------- Public Sub Config() Page.S = fn.dic("s") Page.Cate = "1050000" End Sub '------------------------------------------------------------------------------- 'Local Function '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- 'Content '------------------------------------------------------------------------------- Public Sub RenderContent() %> <%if US.GETS("WEBID") = "" then%> <%elseif US.GETS("WEBID")<>"" and (US.GETS("LECTYPE")<>"MEMBER" and US.GETS("LECTYPE")<>"TELENG") then%> <%else if US.GETS("LECTYPE") = "TELENG" then response.redirect "2topic_tel_list.htm" end if ' 담임/파트너 dim tidx,pidx,tnm,pnm set db = new dbclass db.sql = "select top 1 b.idx as tidx, b.name as tnm, c.idx as pidx, c.name as pnm from course_apply_info a " db.sql = "left outer join vi_teacher b on a.app2_tid=b.id " db.sql = "left outer join teacher c on b.partner=c.id " db.sql = "where app2_userIdx = '"&session("idx")&"' " db.sql = "order by app2_sugangDate desc;" set rs = db.execrs() : db.clear() if not rs.eof then tidx = rs("tidx") : tnm = rs("tnm") : pidx = rs("pidx") : pnm = rs("pnm") end if set db = nothing Set Listing = new ListClass Listing.SetLow = 10 Listing.Columm = " * " Listing.Short = " T_suDay DESC, T_suTime1 DESC " Listing.Table = " vi_토픽목록 " ' 당일+14일 이내만 조회 ' 매월 19일까지는 다음달 스케쥴 조회불가 dim lastDate ' 현재월의 말일산출 lastDate = dateserial(year(date),month(date)+1,1)-1 if day(date())<=15 then Listing.CountSql = "select count(*) from vi_토픽목록 where webid='" & us.gets("WEBID") & "' and T_delFg=0 and T_suday<='"&lastDate&"' " Listing.Condition = " webid=''" & us.gets("WEBID") & "'' AND T_delFg=0 and T_suday
<% i=0 dim webid, useridx do until rs.eof webid=rs("webid") useridx=rs("t_uidx") %> <% i=i+1 : rs.MoveNext : loop%>
수업일시 주제 콘텐츠 질문 답변 강사1 Comments 강사2 Comments VIEW
<%=rs("T_suDay")&" "&rs("T_suTime1")%> "> <%=rs("t_title")%> <%if rs("T_makeType")=1 and isnull(rs("T_contentsDate")) then response.write "수강생
작성" elseif rs("T_makeType")=1 and not isnull(rs("T_contentsDate")) then response.write "
O
" else response.write "" end if %> 		<%if isnull(rs("T_questionDate")) then response.write "×" else response.write "
O
"%>		 <%if isnull(rs("T_answerDate")) then response.write "×" else response.write "
O
"%>		 <%=rs("T_btNm")%> <%if isnull(rs("T_btWriteDate")) then%> <%else%>O<%end if%> <%=rs("T_ntNm")%> <%if isnull(rs("T_ntWriteDate")) then%> <%else%>O<%end if%> ','<%=rs("T_no")%>')">Class Notes <%if rs("T_no")/24 = fix(rs("T_no")/24) then%>
);">Evaluation<%end if%>
<%=Listing.Paging2("")%>
<% Set Listing = Nothing %>
<%=tnm%>
<%if pnm<>"" then%>
<%=pnm%>
<%end if%>
<%end if%> <% End Sub %>