<% Dim arrRs, arrCha, log_num, PageSize, goPage, objcount, arrIp, macIP Dim lec_num lec_num = trimReq("lec_num") 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 DiscussTake(cnt, takeDate) Dim discussTakeText If cnt = 0 Then discussTakeText = "미참여" Else discussTakeText = left(takeDate,10) End if DiscussTake = discussTakeText End Function Function DiscussMark(scoreDate) Dim discussMarkText If isNull(scoreDate) Then discussMarkText = "-" Else discussMarkText = left(scoreDate,10) End if DiscussMark = discussMarkText End Function Function DiscussPoint(score,endDt) eDt = DateAdd("d",21,CDate(endDt & " 17:00:00")) If eDt <= Now() Then DiscussPoint = score Else DiscussPoint = "-" End if End Function %>

나의학점관리나의학점관리/토론참여

<%'수강중인리스트%>
<%Call getHiddens(Array("nowPage", "goPage", "startNum") , Array("", goPage, ""))%>
<% 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.시험채점일 '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% 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(45, i)) =< 0 And datediff("d",Now(), arrRs(46, i)) >= 0 then if AuthLoginFlag then '공인인증서 로그인 사용여부(common.asp 상수) 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 = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" else jsAction = "auth_login("& arrRs(0, i) &"); return false;" end if else jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if else jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if else 'jsAction = "alert('토론 참여기간이 아닙니다');" jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if '테스트 모드 체크(common.asp 설정) if TestModeFlag or request.ServerVariables("REMOTE_HOST") = TestModeIP or request.ServerVariables("REMOTE_HOST") = "119.206.29.243" or request.ServerVariables("REMOTE_HOST") = "210.207.177.191" or fnc_testID(Request.Cookies(appVendorDB)("member_id")) then jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if %> <%=arrRs(17, i)%>

<%=left(arrRs(45, i),10)%>~<%=left(arrRs(46, i),10)%>

<%=DiscussTake(arrRs(56, i), arrRs(57, i))%>

<%=DiscussMark(arrRs(58,i))%>

<% 'arrRs(60, i)%><%'=arrRs(60, i)%> <%=DiscussPoint(arrRs(60,i),left(arrRs(46, i),10))%>
<%'수강중인리스트%>
<%=printPagingType2(pageCnt, goPage, 10, list_footer)%>