<% '마이페이지 수강신청이 없으면 제어 Dim sql ,rs %> <% Dim arrRs, arrCha, log_num, PageSize, goPage, objcount log_num = trimReq("log_num") PageSize = trimReq("PageSize") If len(PageSize) = 0 Then PageSize = 40 goPage = trimReq("goPage") If len(goPage) = 0 Then goPage = 1 arrRs = LectureMemberList(Request.Cookies(appVendorDB)("member_id"), "", "", PageSize, goPage) %>
<%'수강중인리스트%> <%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.과정구분 '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% objCount = objCount-1 Next End if %>
번호 과정명 진도율
<%=objcount%> <%=arrRs(17, i)%> <%=arrRs(8, i)%>%
<%'수강중인리스트%>
<%'=printPagingType2(pageCnt, goPage, 10, list_footer)%>