나의학점관리/과제참여

<%'수강중인리스트%> <%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.과정구분, 24.출석일, '25.과제체출체크, 26.과제채점일, 27.시험응시체크, 28.시험채점일 '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% If lec_num = trim(arrRs(5, i)) AND log_num = trim(arrRs(0, i)) Then If arrRs(24, i) = 0 Then %> <% Else %> <% End If End If %> <% objCount = objCount-1 Next End if %>

번호	과정구분	과정명	제출기간	제출현황	채점현황	점수
<%=objcount%>	<% If arrRs(22, i) = "2" Then response.Write "환급" Else response.Write "일반" End if %>	<% Dim jsAction If ( DateDiff("d",Now(), arrRs(43, i)) =< 0 And datediff("d",Now(), arrRs(44, i)) >= 0 ) Or (Not isNull(arrRs(25, i)) AND datediff("d",now(), arrRs(19, i)) > 0 ) then if AuthLoginFlag then '공인인증서 로그인 사용여부 if Request.Cookies(appVendorDB)("orcs_yn") <> "Y" then if (arrIP(0, 0) = "Y" AND instr(arrIP(1, 0), macIp)) or (arrIP(2, 0) = "Y" AND instr(arrIP(3, 0), macIp)) or (arrIP(4, 0) = "Y" AND instr(arrIP(5, 0), macIp)) then 'MACIP 확인 jsAction = "location.href='?lec_num="& arrRs(5, i) &"&log_num="& arrRs(0, i) &"&work_date1="& arrRs(43, i) &"&work_date2="& arrRs(44, i) &"&goPage="& goPage &"';" else jsAction = "auth_login("& arrRs(0, i) &"); return false;" end if else jsAction = "location.href='?lec_num="& arrRs(5, i) &"&log_num="& arrRs(0, i) &"&work_date1="& arrRs(43, i) &"&work_date2="& arrRs(44, i) &"&goPage="& goPage &"';" end if else jsAction = "location.href='?lec_num="& arrRs(5, i) &"&log_num="& arrRs(0, i) &"&work_date1="& arrRs(43, i) &"&work_date2="& arrRs(44, i) &"&goPage="& goPage &"';" end if elseIf isNull(arrRs(25, i)) AND datediff("d",now(), arrRs(19, i)) < 0 Then jsAction = "" else 'jsAction = "alert('과제 제출기간이 아닙니다.'); return false;" jsAction = "location.href='?lec_num="& arrRs(5, i) &"&log_num="& arrRs(0, i) &"&work_date1="& arrRs(43, i) &"&work_date2="& arrRs(44, i) &"&goPage="& goPage &"';" end if if request.ServerVariables("REMOTE_HOST") = TestModeIP or request.ServerVariables("REMOTE_HOST") = "119.206.29.243" or fnc_testID(Request.Cookies(appVendorDB)("member_id")) then jsAction = "location.href='?lec_num="& arrRs(5, i) &"&log_num="& arrRs(0, i) &"&work_date1="& arrRs(43, i) &"&work_date2="& arrRs(44, i) &"&goPage="& goPage &"';" end if %> <%=arrRs(17, i)%>	<%=left(arrRs(43, i),10)%>~<%=left(arrRs(44, i),10)%>	<%=WorkTake(arrRs(24, i), arrRs(55, i))%>	<%=WorkMark(arrRs(25,i))%>	<%'=arrRs(11, i)%> <%=workPoint(arrRs(31, i),left(arrRs(44, i),10))%>
<% Server.Execute("/2tSub06/viewW1.html") %>
<% Server.Execute("/2tSub06/viewW1RS.html") %>

<%'수강중인리스트%>