<% ' ::: 전체 수업참여 정보 ::: ' %> <% Dim intResult %> <% Dim arrRs, arrCha, log_num, mem_id Dim endPage, fileNames, fN(50) Dim startLecDate, endLecDate, viewDate, viewColor, schQuiz, viewQuiz, schQuizResult, studyYNFlag Dim quizViewCnt : quizViewCnt = 1 Sub load() log_num = trimReq("log_num") mem_id = trimReq("mem_id") arrRs = LectureMemberList(mem_id,"", "", 20, 1) schQuiz = SubChapterQuiz() schQuizResult = SubChapterQuizResult(log_num) End Sub Sub printLecture() Dim i, j, k, l, arrLow, chkChapter, isChapter, subChapterCount, listenedCount, fdir Dim arrSubChapter, r, f, chDir, subChapterFiles, m, icon_img Dim listen_percent, listen_see, listen_duration, lis_date, lis_ip Dim h, g Dim arrLisCnt, arrSubFile If IsArray(arrRs) Then For i = 0 To Ubound(arrRs,2) k = 0 '--------------------------------------------------------------------------------------------------------------------------------------------- '1.과정수강번호, 2.수강번호, 3.아이디, 4.구분, 5.패키지번호, 6.단과번호, 7.결제번호, 8.등록일, 9.진도율, 10.진도점수, 11.시험점수, 12.과제점수, 13.총점수, 14.수료구분, '15.과정코드 16.카트코드, 17.단과과정코드, 18.단과과정명, 19.수강시작일, 20.수강종료일, 21.최초수업일, 22.마지막수업일, 23.과정구분 '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% 'If log_num = trim(arrRs(0, i)) Then arrCha = LectureList(arrRs(5, i)) arrSubChapter = ChapterAllList(arrRs(5, i)) 'arrLow = subLowAllList(arrRs(5, i)) arrSubFile= LectureListened2_n(mem_id, arrRs(0, i)) %>

<%=arrRs(17, i)%>

<% If IsArray(arrCha) Then For j = 0 To Ubound(arrCha, 2) If arrRs(3, i) = "ALL" or arrRs(3, i) = "All" or (arrRs(3, i) = "See" ) Then viewDate = ListenGigan(arrRs(18, i), arrCha(2, j)) viewColor = "" If endLecDate < Date() Then viewColor = "day" %> <% End If Next End if %> <% If IsArray(arrSubChapter) Then Do While k <= Ubound(arrSubChapter, 2) If trim(arrCha(0, j)) = trim(arrSubChapter(0, k)) Then listen_percent = 0 listen_see = 0 listen_duration = 0 lis_date = "" icon_img = "n" lis_ip = "" If IsArray(arrSubFile) Then For m=0 To UBound(arrSubFile, 2) If arrCha(0, j) = arrSubFile(3, m) And trim(arrSubChapter(2, k))=Trim(arrSubFile(4,m)) Then listen_percent = arrSubFile(6,m) listen_see = arrSubFile(7,m) listen_duration = arrSubFile(8,m) lis_date = arrSubFile(9,m) lis_ip = arrSubFile(10,m) If listen_percent=>100 Then icon_img = "p" Exit For End If Next End If 'viewQuiz = "" If IsArray(schQuiz) Then For m=0 To UBound(schQuiz, 2) If trim(arrSubChapter(2, k))=Trim(schQuiz(0,m)) Then viewQuiz = "" If IsArray(schQuizResult) Then For g=0 To UBound(schQuizResult, 2) If trim(arrSubChapter(2, k))=Trim(schQuizResult(1,g)) Then viewQuiz = "" quizViewCnt = quizViewCnt +1 End If Next End If Exit For End If Next End If %> <% k = k + 1 Else Exit Do End if Loop End If If arrCha(2, j) = "8" then %> <% ElseIf arrCha(2, j) = "15" Then %> <% End If viewQuiz = "" %> <%=arrCha(2, j)%> <% 'listen_percent%> 중간 기말

<% 'End if %> <% Next End if End Sub %> <% Call load() %> <%Call printLecture()%>