<% Dim arrRs, arrCha, log_num, PageSize, goPage, objcount, chkTest, arrIp, macIP log_num = trimReq("log_num") PageSize = trimReq("PageSize") If len(PageSize) = 0 Then PageSize = 10 goPage = trimReq("goPage") If len(goPage) = 0 Then goPage = 1 arrRs = LectureMemberList(Request.Cookies(appVendorDB)("member_id"), "", "", PageSize, goPage) arrIp = MemberMACIP() macIP = Request.Cookies("macIP") Function TestTake(cnt, takeDate) Dim testTakeText If cnt = 0 Then testTakeText = "미응시" Else testTakeText = left(takeDate,10) End if testTake = testTakeText End Function 'Function TestMark(scoreDate, tr_num, lec_num, testCnt) ' Dim testMarkText ' If isNull(scoreDate) Then ' testMarkText = "-" ' Else ' testMarkText = left(scoreDate,10) ' testMarkText = testMarkText & " " ' testMarkText = testMarkText & "" ' End if ' testMark = testMarkText 'End Function Function TestMark(scoreDate, tr_num, lec_num, testCnt,endDt) Dim testMarkText,sDt,eDt If isNull(scoreDate) Then testMarkText = "-" Else testMarkText = left(scoreDate,10) testMarkText = testMarkText & " " If testCnt = 1 Then 'sDt = DateAdd("d",8,CDate(endDt)) sDt = DateAdd("d",7,CDate(Left(endDt,10) & " 15:00:00")) eDt = DateAdd("d",9,CDate(Left(endDt,10))) 'If (sDt <= Now() And eDt >= CDate(Left(CStr(Now()),10)) ) Then testMarkText = testMarkText & "" 'End If 'sDt = DateAdd("d",13,CDate(Left(endDt,10) & " 15:00:00")) 'eDt = DateAdd("d",14,CDate(endDt)) 'If sDt <= Now() And eDt >= Now() Then ' testMarkText = testMarkText & "" 'End If Else sDt = DateAdd("d",3,CDate(Left(endDt,10) & " 15:00:00")) eDt = DateAdd("d",6,CDate(Left(endDt,10))) 'If (sDt <= Now() And eDt >= CDate(Left(CStr(Now()),10)) ) Then testMarkText = testMarkText & "" 'End If 'sDt = DateAdd("d",8,CDate(Left(endDt,10) & " 15:00:00")) 'eDt = DateAdd("d",9,CDate(endDt)) 'If sDt <= Now() And eDt >= Now() Then ' testMarkText = testMarkText & "" 'End If End If testMarkText = testMarkText & "" End if testMark = testMarkText End Function Function TestPoint(endDt,jumsu,testCnt) Dim sDt, eDt '한예현 수정 TestPoint = "-" If testCnt = 1 Then eDt = DateAdd("d",7,CDate(Left(endDt,10) & " 15:00:00")) 'If eDt <= Now() Then TestPoint = jumsu 'End if Else eDt = DateAdd("d",3,CDate(Left(endDt,10) & " 15:00:00")) 'If eDt <= Now() Then TestPoint = jumsu 'End if End If End Function %>

나의학점관리나의학점관리 / 중간,기말시험참여

<%'수강중인리스트%> <%Call getHiddens(Array("nowPage", "goPage", "startNum","menu_num") , Array("", goPage, "", trimReq("menu_num")))%> <%Call getHiddens(Array("step1_num", "step2_num") , Array(trimReq("step1_num"), trimReq("step2_num")))%> <% Dim i, j, chkChapter, isChapter If IsArray(arrRs) Then If goPage = 1 Then objCount = resCnt Else objCount = resCnt - ((goPage*PageSize)-PageSize) End If For i = Lbound(arrRs, 2) To Ubound(arrRs, 2) '--------------------------------------------------------------------------------------------------------------------------------------------- '1.과정수강번호, 2.수강번호, 3.아이디, 4.구분, 5.패키지번호, 6.단과번호, 7.결제번호, 8.등록일, 9.진도율, 10.진도점수, 11.시험점수, 12.과제점수, 13.총점수, 14.수료구분, '15.과정코드 16.카트코드, 17.단과과정코드, 18.단과과정명, 19.수강시작일, 20.수강종료일, 21.최초수업일, 22.마지막수업일, 23.과정구분 '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% objCount = objCount-1 Next End if %>
번호 과정구분 과정명 응시기간 응시현황 채점현황 점수 응시
<%=objcount%> <% If arrRs(22, i) = "2" Then response.Write "환급" Else response.Write "일반" End if %> <%=arrRs(17, i)%> <% If arrRs(64, i) <> "" Then %>

중간고사 선택일:<%=left(arrRs(64, i),10)%>

<% Else %>

<%=left(arrRs(39, i),10)%>~<%=left(arrRs(40, i),10)%>

<% End If %> <% If arrRs(65, i) <> "" Then %>

기말고사 선택일:<%=left(arrRs(65, i),10)%>

<% Else %>

<%=left(arrRs(41, i),10)%>~<%=left(arrRs(42, i),10)%>

<% End If %>

<%=TestTake(arrRs(26, i), arrRs(37, i))%>

<%=TestTake(arrRs(35, i), arrRs(38, i))%>

<%=TestMark(arrRs(27,i), arrRs(30,i), arrRs(5,i), 1,left(arrRs(40, i),10))%>

<%=TestMark(arrRs(36,i), arrRs(54,i), arrRs(5,i), 2,left(arrRs(42, i),10))%>

<%=TestPoint(arrRs(40,i),arrRs(32, i),1) %>

<%=TestPoint(arrRs(42,i),arrRs(47, i),2)%>

<%'If arrRs(26, i) > cntTest1 AND arrRs(26, i) = 0 AND arrRs(8, i) >= 80 AND datediff("d",now(), arrRs(19, i)) < 0 Then%>

<%'End If%>
<%'수강중인리스트%>
<%=printPagingType2(pageCnt, goPage, 10, list_footer)%>