<% '------------------------------------------------------------------------------- 'Template '------------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------------- 'Config '------------------------------------------------------------------------------- Public Sub Config() Page.S = fn.dic("s") Page.Cate = "1050000" End Sub '------------------------------------------------------------------------------- 'Local Function '------------------------------------------------------------------------------- function LocalCheck(no) if no = 0 then LocalCheck = "icon_non_check.gif" else LocalCheck = "icon_check.gif" end if end 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%> <% ' 체험ID처리 elseif US.GETS("WEBID")="mbeginner" or US.GETS("WEBID")="mbiz1" then%> <%else if US.GETS("LECTYPE") = "TELENG" then response.redirect "2online_study_tel.htm" end if ' if US.GETS("WEBID") = "anypro" or US.GETS("WEBID") = "maven01" or US.GETS("WEBID") = "maven02" or US.GETS("WEBID") = "maven03" or US.GETS("WEBID") = "maven04" then ' response.redirect "online_study.htm" ' end if dim ssql,arr_schedule,rs,rs2,ssql1,db1,arr_rs2,webid,courseNm ,courseIdx,useridx,fromHistory,isTrial,tidx,tnm,pidx,pnm courseIdx = trim(fn.form("courseIdx")) ' 수강코스 선택한 경우처리 fromHistory = trim(fn.form("fromHistory")) ' 과거수강내역 조회를 클릭한 경우 'yes' isTrial = 0 ' 무료체험수강인지 check? webid = session("webid") useridx = session("idx") set db = new dbclass if courseIdx = "" then ' 처음 loading시 ' trial인지 체크 db.sql = "select c.*, a.*, b.* from consult_ec a inner join course_apply_info b on a.idx = b.app2_useridx " db.sql = " inner join category c on b.app2_courselevel = c.cateidx " db.sql = " where b.app2_isTrial=1 and a.webid='"&webid&"' and b.app2_state='A' order by b.app2_isTrial desc,b.app2_endDate desc" ' db.view set rs = db.execrs() : db.clear() if not (rs.eof or rs.bof) then ' 무료수강 체험인경우 => 아직시작하지 않았거나 (NULL), 수강만료일까지는 보여줌 if isnull(rs("app2_endDate")) or rs("app2_endDate")>=date then courseNm = lcase(rs("cateinfo")) courseIdx = rs("cateidx") isTrial = 1 end if end if ' trial이 아니면 몰프만료일 기준으로 가져오기 if isTrial=0 then db.sql = "SELECT TOP 1 B.레벨키 as 과정코드, B.레벨 as 과정명 " db.sql = "FROM 이교재_판매 A " db.sql = "INNER JOIN 이교재 B ON A.품목키=B.품목키 " db.sql = "WHERE A.유저코드='"&useridx&"' and A.판매구분='판매' and A.삭제=0 AND A.몰프만료일 >='"&date&"' " db.sql = "ORDER BY A.몰프만료일 DESC;" ' if webid="koeh0123" then db.view set rs = db.execrs() : db.clear() if not rs.eof then ' 정상적인 등록상태이면 몰프 만료일이 아직 지나지 않은경우 초기화 courseNm = lcase(rs("과정명")) courseIdx = rs("과정코드") end if end if else ' 수강코스 선택시 courseNm = lcase(trim(fn.form("courseNm"))) end if dim strHuki ' 강사후기 작성가능? strHuki = "false" ' 강사후기 작성가능? (수강중인 경우만) set db = new dbclass db.sql = "select top 1 app2_enddate from course_apply_info " db.sql = "where app2_useridx='"&useridx&"' and app2_state='A' and (app2_endDate is null or app2_endDate+1>=getdate()) " ' db.view set rs = db.execrs() : db.clear() if not (rs.eof or rs.bof) then strHuki = "true" set rs = nothing ' 담임/파트너 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 = '"&useridx&"' " 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 'response.write tid&"/"&tnm&"/"&pid&"/"&pnm set db = nothing ' if webid="tomail2001" then courseNm="pre-intermediate" : courseIdx="40" : useridx="10006" ' if webid="inter" then courseNm="intermediate" : courseIdx="41" : useridx="10003" : response.redirect "online_study_r.htm" ' if webid="pre-inter" then courseNm="pre-intermediate" : courseIdx="40" : useridx="10004" : response.redirect "online_study_r.htm" ' if webid="beginner" then courseNm="beginner" : courseIdx="39" : useridx="10010" : 'response.redirect "online_study.htm" ' if webid="business" then courseNm="business1" : courseIdx="44" : useridx="11593" : response.redirect "online_study_r.htm" ' ==================================== ' 2011.11.1 이혜진원장님 요청(이민호) ' pre-inter, business1 open ' ==================================== if (courseNm="" or courseNm="pre-intermediate") and webid="reemn67" then courseNm="pre-intermediate" : courseIdx="40" : useridx="10004" : webid="pre-inter" if courseNm="business1" and webid="reemn67" then courseNm="business1" : courseIdx="44" : useridx="11593" : webid="business" dim chapter select case LCase(courseNm) case "beginner" : chapter = "001^002^003^004^005^006^007^008^009^Midterm^010^011^012^013^014^015^016^017^018^Final" case "pre-intermediate" : chapter = "001^002^003^004^005^006^007^008^009^Midterm^010^011^012^013^014^015^016^017^018^Final" case "intermediate" : chapter = "001^002^003^004^005^006^007^008^009^Midterm^010^011^012^013^014^015^016^017^018^Final" case "advanced" : chapter = "001^002^003^004^005^006^007^008^009^Midterm^010^011^012^013^014^016^015^017^018^Final" case "business1" : chapter = "001^002^003^004^005^006^007^008^009^010^011^012^013^014^016^015^017^018^019^020^021^022^023^024" case "business2" : chapter = "001^002^003^004^005^006^007^008^009^010^011^012^013^014^016^015^017^018^019^020^021^022^023^024" case "business3" : chapter = "001^002^003^004^005^006^007^008^009^010^011^012^013^014^016^015^017^018^019^020^021^022^023^024" end select %>

<%if fromHistory<>"yes" then%>

<%end if%> <% if courseNm = "" then %>

수강증인 온라인 학습이 없습니다.

<% Exit Sub end if dim arrChapter : arrChapter = split(chapter,"^") dim fgsql , regisql,chapterNm ,strstate dim db3,rs3 '/////////////////////////////////////////////////////////////////////온라인 과정 첫 시작시 진도 내용 등록 set db3 = new dbclass 'courseIdx set db= new dbclass if isArray(arrChapter) and ubound(arrChapter) > 0 then for i = 0 to ubound(arrChapter) if arrChapter(i) = "Midterm" or arrChapter(i) = "Final" then else fgsql = " select * from 이과정상세 where 유저코드="&useridx&" and MID = '"&webid fgsql = fgsql&"' and 과정명 ='"&coursenm&"' and 챕터코드='"&arrChapter(i)&"'" db.clear() db.sql = fgsql 'response.write "" 'response.write fgsql set rs = db.execrs() if rs.eof or rs.bof then chapterNm = "Chapter"&int(arrChapter(i)) if arrChapter(i) = "001" then strstate ="진행" else strstate ="대기" end if regisql = " insert into 이과정상세 (과정코드 , 유저코드 , MID , 과정명 , 챕터코드,챕터명 , 상태 )" regisql = regisql & " values( "&courseIdx&" , "&useridx&" , '"&webid&"' ,'"&courseNm&"'" regisql = regisql & " , '"&arrChapter(i)&"' , '"&chapterNm&"' , '"&strstate&"')" 'response.write regisql db3.clear() db3.sql = regisql db3.execrs() else 'response.write rs("챕터코드") end if 'if rs.eof or rs.bof then end if 'if arrChapter(i) = "Midterm" or arrChapter(i) = "Final" then next end if 'if isArray(arrChapter) and ubound(arrChapter) > 0 then set db = nothing set db3 = nothing '////////////////////////////////////////////////////////////////////////////////////////////////////// dim exSendM : exSendM = True '' 중간시험 응시유무 dim exSendF : exSendF = True '' 기말시험 응시유무 dim exOpenM : exOpenM = False '' 중간고사 승인유무 dim exOpenF : exOpenF = False '' 기말고사 승인유무 dim exSendE : exSendE = False '' evaluation report 승인유무 set db = new dbclass db.sql = "select * from 이과정상세 where 유저코드='"&useridx&"' and MID='" & webid & "' and 과정명='" & coursenm & "' order by 챕터코드;" 'db.sql = "select * from 이과정상세 where MID='jjokopie' and 과정명='Beginner' ;" 'db.view() set rs = db.execrs() set db = nothing '////////////////////////////////////////////////////////////////////////////////////////////////////// ' 설문조사를 하였는지 체크 dim svTF : svTF = false if right(trim(US.GETS("WEBNAME")),2)="SB" then ' 스타벅스 직원은 출강이므로 설문안함 svTF = true else set db = new dbclass db.sql = " select COUNT(*) from 설문지_rst where isDelete=0 AND 구분='정규' and 유저코드 ='"&useridx&"' and 과정코드='"&courseidx&"' " ' if webid="taschen1225" then db.view() set rs2 = db.execrs() : db.clear() set db = nothing if rs2(0)>0 then svTF = true set rs2 = nothing ' 중간고사 완료처리하면 설문하지 않도록 처리 set db = new dbclass db.sql = "select ex_skipsurvey from exam_result where ex_webid ='"&webid&"' and ex_levelNm = '"&courseNm&"' and ex_term='Midterm' order by ex_skipsurvey desc, ex_approval desc " ' if webid="taschen1225" then db.view() set rs2 = db.execrs() set db = nothing if not ( rs2.eof or rs2.bof) then if rs2("ex_skipsurvey")=true then svTF = true end if set rs2 = nothing ' if webid="jangjinkyu" then response.write svTF end if svTF = lcase(svTF) %>

<% if fromHistory<>"yes" then ' 교재판매일자+90일 이내의 과정만 가져오기(해당 기간까지만 복습가능) dim arr1, rsTmp set db = new dbclass ' db.sql = "select distinct 과정코드,과정명 from 이과정상세 where 유저코드 ='"&useridx&"' and MID ='"&webid&"' "_ ' & " and (학습완료일 >= '"&date-90&"' or 챕터코드='001' and 상태='진행') order by 과정코드 asc" ' maven1,2,3으로 시작하면 뒤에 a,b제거 else 그대로처리(business) ' db.sql = "SELECT distinct B.레벨키 as 과정코드, CASE WHEN lower(LEFT(B.품목명,5))='maven' THEN lower(LEFT(B.품목명,6)) ELSE lower(B.품목명) END as 과정명 " db.sql = "SELECT distinct B.레벨키 as 과정코드, lower(B.레벨) as 과정명 " db.sql = "FROM 이교재_판매 A " db.sql = "INNER JOIN 이교재 B ON A.품목키=B.품목키 " db.sql = "WHERE A.유저코드='"&useridx&"' and A.판매구분='판매' and A.삭제=0 AND 몰프만료일 >='"&date&"' " db.sql = "ORDER BY B.레벨키;" ' db.view() set rsTmp = db.execrs() if not (rsTmp.eof or rsTmp.bof) then arr1 = rsTmp.GetRows() db.clear() set db = nothing dim courseStr : courseStr="" dim courseTmp if isArray(arr1) then for i = 0 to ubound(arr1, 2) ' courseStr = courseStr & "" courseTmp = fn.courseChgNm(arr1(1,i)) courseStr = courseStr & "" next end if %>

<%end if%>

제출,채점,결과 확인

미제출,미채점,결과 미확인

<%if courseIdx=39 or courseIdx=40 then%><%end if%> <%if lcase(left(courseNm,8))<>"business" then%><%end if%> <% i = 1 do until rs.eof %> <%if exSendM then %> <%if rs("상태") = "대기" then%> <%if courseIdx=39 or courseIdx=40 then%><%end if%> <%else%> <%if courseIdx=40 and i>18 then%> <%elseif courseIdx=39 or courseIdx=40 then%> <%end if%> <%end if%> <%else%> <%if courseIdx=39 or courseIdx=40 then%><%end if%> <% end if%> <%if exSendM then %> <%'' 대기 상태거나 비즈니스 이면 - 표시(비즈니스는 문법 없고 eBook Show)%> <%if rs("상태") = "대기" then%> <%else%> <%end if%> <%if lcase(left(courseNm,8))<>"business" and rs("상태") = "대기" then%> <%elseif lcase(left(courseNm,8))<>"business" then%> <%end if%> <%else%> <%if lcase(left(courseNm,8))<>"business" then%><%end if%> <% end if%> <% set db = new dbclass db.sql = "SELECT 챕터,라이팅타입,작성일 FROM 이과정코멘트 WHERE 유저코드 = "&userIdx&" AND 과정명 = '"&courseNm&" ' "_ & " AND LEFT(챕터,3) = '"&rs("챕터코드")&"' AND LEN(챕터)>3 AND RIGHT(챕터,6)<>'review' and 라이팅타입<>'memo' ORDER BY LEN(챕터),챕터,라이팅타입" ' db.view set rs2 = db.execrs() db.clear() dim chapterNo : chapterNo= "" dim btComment, ntComment dim btWriteDate dim ntWriteDate dim lastWriteDate : lastWriteDate = " " if not ( rs2.eof or rs2.bof) then do until rs2.eof chapterNo = rs2("챕터") btWriteDate = " " : ntWriteDate = " " if rs2("라이팅타입")="btlast" then btComment = true : btWriteDate=left(rs2("작성일"),10) : rs2.movenext if rs2.eof then ntComment = false elseif rs2("챕터")=chapterNo then ntComment = true : ntWriteDate=left(rs2("작성일"),10) : rs2.movenext else ntComment = false end if else btComment = false : ntComment = true : ntWriteDate=left(rs2("작성일"),10) rs2.movenext end if if btComment and ntComment then if btWriteDate > ntWriteDate then lastWriteDate = btWriteDate else lastWriteDate = ntWriteDate elseif btComment then lastWriteDate = btWriteDate elseif ntComment then lastWriteDate = ntWriteDate end if %> <% 'response.write strsql if btComment then%> <%else%> <% end if%> <% if ntComment then%> <%else%> <%end if %> <% loop end if set db = nothing %> <%' 정규 프로그램(비즈니스 제외)은 3번 레슨 후 1번의 리뷰가 있음 if lcase(left(courseNm,8))<>"business" and (i=3 or i=6 or i=9 or i=12 or i=15 or i=18) then%> <% dim wReview : wReview = 0 ' 리뷰를 작성했는지 여부 dim strsql strsql = "SELECT 작성일 " strsql = strsql & " FROM 이과정코멘트 " strsql = strsql & " WHERE (유저코드 = "&userIdx&") AND (과정명 = '"&courseNm&" ') AND (챕터 = '"&rs("챕터코드")&"review') AND (라이팅타입 = 'btlast')" 'response.write strsql set db = new dbclass db.sql = strsql set rs2 = db.execrs() if not ( rs2.eof or rs2.bof) then %> <% wReview = 1 else %> <% end if set db = nothing %> <% strsql = "SELECT 작성일 " strsql = strsql & " FROM 이과정코멘트 " strsql = strsql & " WHERE (유저코드 = "&userIdx&") AND (과정명 = '"&courseNm&" ') AND (챕터 = '"&rs("챕터코드")&"review') AND (라이팅타입 = 'ntlast')" 'response.write strsql set db = new dbclass db.sql = strsql set rs2 = db.execrs() if not ( rs2.eof or rs2.bof) then %> <% wReview = 1 else %> <% end if set db = nothing if wReview then%> <%else%> <%end if%> <%else%> <%end if%> <% if lcase(mid(courseNm,1,8)) <> "business" and i = 9 then%> <% set db = new dbclass db.sql = "select * from exam_result where ex_webid ='"&webid&"' and ex_levelNm = '"&courseNm&"' and ex_term='Midterm' order by ex_approval desc" 'if webid="ttozzi" then db.view() set rs2 = db.execrs() if not ( rs2.eof or rs2.bof) then exSendM = rs2("ex_Send") exOpenM = rs2("ex_approval") else exSendM = False exOpenM = False end if ' 특정인에게 chapter10이후 전체오픈처리 if US.GETS("WEBID")="lottelwj" then exSendM=true exOpenM=false end if set db = nothing %> <%if rs("상태") = "완료" then%> <% else%> <%end if%> <% end if %> <%dim FinalOpen%> <%if lcase(mid(courseNm,1,8)) <> "business" and isTrial=0 and i=18 and rs("상태") = "완료" then : FinalOpen = true end if%> <%if lcase(mid(courseNm,1,8)) = "business" and isTrial=0 and i=24 and rs("상태") = "완료" then : FinalOpen = true end if%> <% i=i+1 if isTrial=1 then exit do rs.movenext loop%> <% if lcase(mid(courseNm,1,8)) <> "business" and isTrial=0 then%> <% set db = new dbclass db.sql = "select a.*,b.ev_approval from exam_result a " db.sql = "left outer join 이과정평가 b on a.ex_useridx=b.ev_useridx and a.ex_levelnm=b.ev_levelnm " db.sql = "where a.ex_webid ='"&webid&"' and a.ex_levelNm = '"&courseNm&"' and a.ex_term='Final' and a.ex_send=1; " set rs2 = db.execrs() if not ( rs2.eof or rs2.bof) then exSendF = rs2("ex_Send") exOpenF = rs2("ev_approval") else exSendF = False exOpenF = False end if set db = nothing %> <%if FinalOpen then%> <%else%> <% end if end if %> <% if lcase(mid(courseNm,1,8)) = "business" then ' 비즈니스의경우 evaluation report 승인확인 후 show set db = new dbclass db.sql = "select ev_approval FROM 이과정평가 WHERE ev_webid ='"&webid&"' and ev_levelNm = '"&courseNm&"' and ev_approval=1; " set rs2 = db.execrs() if not rs2.eof then exSendF = true exOpenF = true end if set rs2=nothing set db = nothing end if %> <%if FinalOpen and exOpenF and exSendF then %> <%else%> <% end if %>

Chapter

Completion

Progress

Warm up

Study

eBOOK

Grammar

BT H/W

NT H/W

Study result

Submit

Done