<% session.codePage = default_CodePage response.charSet = default_charSet macIP = Request.Cookies("macIP") Dim arrRs, arrCha, log_num, goPage,rs Dim endPage, fileNames, fN(50) Dim startLecDate, endLecDate, viewDate, viewColor, schQuiz, viewQuiz, schQuizResult, viewQuiz2, isQuiz Dim quizViewCnt : quizViewCnt = 1 Dim bookCode Dim SlctTestDate, studyYNFlag Dim macIP Dim log_lecnum, test_fg : test_fg = 0 Dim work_fg : work_fg = 0 Dim note_fg : note_fg = 0 Dim discuss_fg : discuss_fg = 0 Dim arr_Date Dim start_date Dim end_date Dim test_flag , test2_flag ,disp_fg disp_fg = 0 log_num = trimReq("log_num") If trimReq("B") <> "" Then log_num = trimReq("B") End If sub chk_test() '================================================= '시험일정에 맞게 상단에 표시 '================================================= Dim sql2 If request.Cookies(appVendorDB)("member_id") <> "" then sql2 = " select * from mem_study_log where mem_id = '"& request.Cookies(appVendorDB)("member_id")&"' and (( DATEDIFF(HH, dateadd(HH,10,SELTEST1DATE), GETDATE()) >= 0 AND DATEDIFF(SS, dateadd(HH,34,SELTEST1DATE), GETDATE()) <= 0) or (( DATEDIFF(HH, dateadd(HH,10,SELTEST2DATE), GETDATE()) >= 0 AND DATEDIFF(SS, dateadd(HH,34,SELTEST2DATE), GETDATE()) <= 0)) ) " Set rs = conn.execute(sql2) If not rs.eof Then test_fg = 1 End If rs.close() sql2 = " select * from mem_study_log where mem_id = '"& request.Cookies(appVendorDB)("member_id")&"' " Set rs = conn.execute(sql2) If not rs.eof Then Do While Not rs.eof= true If CDate(rs("note_date1")) <= Now() And CDate(Left(CStr(rs("note_date2")),10) & " 23:59:59") >= Now() then note_fg = 1 End if If CDate(rs("work_date1")) <= Now() And CDate(Left(CStr(rs("work_date2")),10) & " 23:59:59") >= Now() then work_fg = 1 End if If CDate(rs("discuss_date1")) <= Now() And CDate(Left(CStr(rs("discuss_date2")),10) & " 23:59:59") >= Now() then discuss_fg = 1 End If rs.movenext loop End If rs.close() End If End sub sub visit_count3( ByVal num ) Dim sql2 sql2 = " select lec_num from mem_study_log where log_num='"& num &"'" Set rs = conn.execute(sql2) If Not rs.eof Then log_lecnum = rs(0) End If rs.close() dim vReferer, vIP, vTarget, vDW,vBrowser,vOS vReferer = request.ServerVariables("HTTP_REFERER") vIP = request.ServerVariables("REMOTE_ADDR") vTarget = request.ServerVariables("SCRIPT_NAME") & "?" & request.ServerVariables("QUERY_STRING") vDW = weekday(date) dim vSeason select case month(date) case 3,4,5 vSeason = 1 case 6,7,8 vSeason = 2 case 9,10,11 vSeason = 3 case 12,1,2 vSeason = 4 end select dim temp temp = request.ServerVariables("HTTP_USER_AGENT") temp = split(temp,";") if ubound(temp) > 1 then vBrowser = temp(1) vOS = temp(2) vOS = replace(vOS,")","") vBrowser = trim(vBrowser) vOS = trim(vOS) vBrowser = replace(vBrowser,"'","''") vOS = replace(vOS,"'","''") end If sql2 = " insert into visit_counter3(vIP, vYY, vMM, vDD, vHH, vMT, vDW, vSeason, vBrowser, vOS, vReferer, vTarget, lecNum) values(" sql2 = sql2 & " '"& vIP &"' " sql2 = sql2 & " , "& year(date) &" " sql2 = sql2 & " , "& month(date) &" " sql2 = sql2 & " , "& day(date) &" " sql2 = sql2 & " , "& hour(now) &" " sql2 = sql2 & " , "& minute(now) &" " sql2 = sql2 & " , "& vDW &" " sql2 = sql2 & " , "& vSeason &" " sql2 = sql2 & " , '"& vBrowser &"' " sql2 = sql2 & " , '"& vOS &"' " sql2 = sql2 & " , '"& vReferer &"' " sql2 = sql2 & " , '"& vTarget &"' " sql2 = sql2 & " , '"& log_lecnum &"')" conn.execute sql2 end sub If log_num <> "" Then call visit_count3(log_num) End If goPage = trimReq("goPage") If len(goPage) = 0 Then goPage = 1 arrRs = LectureMemberList(Request.Cookies(appVendorDB)("member_id"),"on", "", 20, goPage) schQuiz = SubChapterQuiz() schQuizResult = SubChapterQuizResult(log_num) bookCode = BookSubjectList() Dim sql, arrIP arrIP = MemberMACIP() Function BookSubjectLink(bookCode) Dim bookSubject : bookSubject = "-" Dim b If IsArray(bookCode) Then For b=0 To UBound(bookCode, 2) If bookCode = bookCode(0,b) then bookSubject = "" & bookCode(1,b) & "" Exit For End If Next End If Response.Write bookSubject %> <% End Function function fnc_historyView( ByVal log_num, ByVal sch_num ) Dim SQL, oRs, rtnValue SQL = " SELECT " SQL = SQL & " CASE WHEN A.SLEA_PAGENUM = (SELECT MAX(SLEA_PAGENUM) FROM SCH_LEARNING WHERE SCH_NUM = '"& sch_num &"') THEN " SQL = SQL & " (SELECT SLEA_SOURCE FROM SCH_LEARNING WHERE SCH_NUM = '"& sch_num &"' AND SLEA_PAGENUM = 1) " SQL = SQL & " ELSE " SQL = SQL & " (SELECT SLEA_SOURCE FROM SCH_LEARNING WHERE SCH_NUM = '"& sch_num &"' AND SLEA_PAGENUM = A.SLEA_PAGENUM) " SQL = SQL & " END AS SOURCE " SQL = SQL & " FROM SCH_LEARNING A " SQL = SQL & " WHERE A.SCH_NUM = '"& sch_num &"' " SQL = SQL & " AND A.SLEA_PAGENUM = " SQL = SQL & " ( " SQL = SQL & " SELECT MAX(PAGE_NUM) FROM LEC_LISTENED WITH(NOLOCK) " SQL = SQL & " WHERE SCH_NUM = '"& sch_num &"' " SQL = SQL & " AND LOG_NUM = '"& log_num &"' " SQL = SQL & " ) " set oRs = conn.Execute(SQL) if not oRs.EOF then rtnValue = oRs(0) else rtnValue = "" end if fnc_historyView = rtnValue end function %>
Loading...
학점취득 현황 학점
총출석률 %
 
[공지] 범용공인인증서 의무사용 2013-01-22
[공지] 범용공인인증서 의무사용 2013-01-22
[공지] 범용공인인증서 의무사용 2013-01-22
[공지] 범용공인인증서 의무사용 2013-01-22
[공지] 범용공인인증서 의무사용 2013-01-22
<%'수강중인리스트%> " > <%Call getHiddens(Array("nowPage", "goPage", "startNum") , Array("", goPage, ""))%> <%Call getHiddens(Array("num", "lec_num", "istype", "is_cancel", "res_cancel") , Array("", "", "", "", ""))%> <%Call getHiddens(Array("logNum") , Array(log_num))%> <% 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 Dim h, g Dim arrLisCnt, arrSubFile, sch_time, sch_source,att_n_cnt att_n_cnt = 0 If IsArray(arrRs) Then 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.과정구분 '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% Dim jsHref Dim jsAction if arrRs(29, i) = "on" then '강좌오픈 'response.write request.Cookies(appVendorDB)("member_admin") if AuthLoginFlag and request.Cookies(appVendorDB)("member_admin") = "0" then '공인인증서 로그인 사용여부(rtCommon.inc 변수) If session("orcs_yn") = "Y" Then '공인인증서 로그인 jsHref = "?log_num="& arrRs(0, i) &"&goPage="& goPage&"" jsAction = "" Else '.wite(arrRs(96, 0)) if arrRs(96, 0) = "1" then 'IP로그인 허용 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 확인 jsHref = "#none" jsAction = "onclick=alert('로그인이 허용된 IP("& request.ServerVariables("REMOTE_ADDR") &")입니다. 확인을 누르시면 강의를 수강하실 수 있습니다.'); location.href='?log_num="& arrRs(0, i) &"&goPage="& goPage&"'; return false;" else jsHref = "#none" jsAction = "onclick=if(confirm('로그인이 허용된 IP와 일치하지 않습니다\n현재 PC의 IP를 수강가능 IP로 등록하시겠습니까?')) location.href='/2tUtil/2tIPaddrAppend.html'; return false;" end if else jsHref = "#none" jsAction = "onclick=auth_login("& arrRs(0, i) &"); return false;" end if end if else jsHref = "/2tSub07/index00.html?log_num="& arrRs(0, i) &"&goPage="& goPage&"" ' jsAction = "onclick="& chr(34) &"getLectureDetailSLB('iframe','"& arrRs(0, i) &"');"& chr(34) & " " ' 2013. 2. 1. 페이지이동로직 추가 jsAction = "onclick="& chr(34) &"getLectureDetail('"& arrRs(0, i) &"','OpenNew');"& chr(34) &" " end if else jsHref = "#none" jsAction = "onclick=alert('결제완료 이후에 이용해주세요.\n\n감사합니다.'); return false;" end if %> <% Next End if %>
과정명 개강일 종강일 강의교수 교재 시험 신청일 수업일 바로가기
<%=retLecName(arrRs(17, i),"title")%> <%=left(arrRs(18, i),10)%> <%=left(arrRs(19, i),10)%> <%=arrRs(62, i)%> <%=BookSubjectLink(arrRs(63, i))%> <% 'arrRs(11, i) 과제성적 감춤%> <% 'arrRs(10, i) 시험성적 감춤%> <%=left(arrRs(7, i),10)%> >
<%=printPagingType2(pageCnt, goPage, 10, list_footer)%>
<%If getChk()Then%>
  
<%End If%> <%'수강중인리스트%>
<% if request.ServerVariables("REMOTE_HOST") <> TestModeIP Then %> " /> <% Else %> log_num : ch_num :
sch_num : lec_num2 :
kiganDate : lec_code :
studyYNFlag : gpage :
mem_id : " /> <% End If %>