<% 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, popup disp_fg = 0 log_num = trimReq("log_num") popup = trimReq("popup") 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 ' if Request.ServerVariables("REMOTE_ADDR") = "218.151.10.27" Then 'Response.write LectureMemberList2(Request.Cookies(appVendorDB)("member_id"),"on", "", 50, goPage) arrRs = LectureMemberList2(Request.Cookies(appVendorDB)("member_id"),"on", "", 50, goPage) 'End IF 'arrRs = LectureMemberList(Request.Cookies(appVendorDB)("member_id"),"on", "", 50, goPage) 'Response.end 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 Dim arrList1, arrList2,arrList3, arrLec,arrPop ''공지사항 strSql = " SELECT top 5 num, title, convert(varchar(10), regDate, 120) as regDate, datediff(d, regDate, getdate()), etc3 " strSql = strSql & " FROM bbs " strSql = strSql & " WHERE bbs_name='notice01' AND own_id='"& appVendorDB &"' ORDER BY rootNum DESC, stepKey ASC " set rs = conn.execute(strSql) if(not(rs.bof or rs.eof)) then arrList1 = rs.getRows end if rs.close %> <%if popup = "on" then%>

부지런히 목표를 향해
달려가는 <%=request.Cookies(appVendorDB)("mem_name")%>님,
바른교육평생교육원이 함께합니다.

<%end if%>
Loading...
 
<%if appVendorDB = "korea005_licens" then%> <%elseif appVendorDB = "cyber2_license" then%> <%else%>
*

시험 합격 후 14일 이내로 자격증을 신청해 주시기 바랍니다. (발급기간 경과시 해당 학습내용이 자동으로 초기화가 됩니다.)


*

자격증 취득후 갱신이 필요없는 평생자격증입니다. (바우처 기관에서 사용가능합니다.)


*

자격증에 협회 자격 일련번호가 기재되기 때문에 사진이 들어가지 않습니다.


*

자격증 신청 후 과정은 신청▷입금대기중▷심사중▷준비중▷발급완료 단계입니다. (심사중은 제작 과정에 있는 자격증 진행사항 포함입니다.)

    배송 물량 증가 시기에는 발송 완료/배송 완료되더라도 준비중으로 확인될 수 있습니다.

<%end if%>
<%'수강중인리스트%> <% 'if request.ServerVariables("REMOTE_HOST") = "121.186.19.33" Or request.ServerVariables("REMOTE_HOST") = "183.98.135.141" Or request.ServerVariables("REMOTE_HOST") = "222.105.165.167" Then ' gogo_url = "/kcp/sett/order_test_back.asp" 'Else gogo_url = "/kcp/sett/order_test.asp" 'end if %> <%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 att_n_cnt = Ubound(arrRs, 2) 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.과정구분 '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% if arrRs(29, i) = "on" then '강좌오픈 if AuthLoginFlag and request.Cookies(appVendorDB)("licmember_admin") = "0" then '공인인증서 로그인 사용여부(rtCommon.inc 변수) If session("orcs_yn") = "Y" Then '공인인증서 로그인 ' jsHref = "?log_num="& arrRs(0, i) &"&goPage="& goPage&"" jsHref = "#none" ' jsAction = "" jsAction = "post_goto('/2tSub06/index01.html',{'B':'"& arrRs(0, i) &"','goPage':'"& goPage&"'},'');" Else jsHref = "#none" 'If request.ServerVariables("REMOTE_ADDR") = "121.186.52.164" Then 'jsAction = "onclick="& chr(34) &"getLectureDetail('"& arrRs(0, i) &"','N');"& chr(34) &" " 'Else jsAction = "onclick="& chr(34) &"getLectureDetail('"& arrRs(0, i) &"','OpenNew');"& chr(34) &" " 'End If end if else jsHref = "#none" ' jsAction = "onclick="& chr(34) &"getLectureDetailSLB('iframe','"& arrRs(0, i) &"');"& chr(34) & " " ' 2013. 2. 1. 페이지이동로직 추가 'If request.ServerVariables("REMOTE_ADDR") = "121.186.52.164" Then 'jsAction = "onclick="& chr(34) &"getLectureDetail('"& arrRs(0, i) &"','N');"& chr(34) &" " 'Else jsAction = "onclick="& chr(34) &"getLectureDetail('"& arrRs(0, i) &"','OpenNew');"& chr(34) &" " 'End If end if else jsHref = "#none" jsAction = "onclick=alert('결제완료 이후에 이용해주세요.\n\n감사합니다.'); return false;" end if %> <% Next End if %>
번호 자격명 신청내용 결제 상태
<%=i+1%>
<%=arrRs(17, i)%>
한국자격검정교육원
자격증
<%'=retLecName(arrRs(17, i),"title")%><%=arrRs(17, i)%> <%If request.ServerVariables("REMOTE_HOST") = "121.186.19.331" Then%>
<%=arrRs(126, i) %>,<%=arrRs(127, i)%> <%End If%> 		<%=arrRs(136, i) %> <% 'Response.write arrRs(121, i) If CInt(arrRs(121, i)) >= 60 Then response.write "합격" Else response.write "-" End if %> 생년월일:<%=arrRs(139, i)%>
배송지: <%=arrRs(138, i)%> 		결제 : <%=arrRs(132, i) %>
<%=arrRs(134, i) %> <%=arrRs(135, i) %>
예금주 : <% if arrRs(137, i) <> "" then response.write arrRs(137, i) else response.write "한국자격검정평가진흥원" end if %> 		<%If arrRs(126, i) > 0 and arrRs(127, i) > 0 Then%> <% if arrRs(133, i) = "NoBank" then response.write "무통장" elseif arrRs(133, i) = "card" then response.write "카드" elseif arrRs(133, i) = "KAKAO_BANK" then response.write "카카오뱅크" elseif arrRs(133, i) = "KAKAO_CARD" then response.write "카카오카드" elseif arrRs(133, i) = "moblie" then response.write "모바일" elseif arrRs(133, i) = "virtual" then response.write "가상계좌" else response.write "-" end if %> <%If arrRs(8,i) > 59 And arrRs(47,i) > 59 and arrRs(31,i) > 59 Then%> <% sql_lic = " select count(is_state) as set_lic, is_state from settlement_license where lec_num = '"& arrRs(5,i) &"' and mem_id = '"& Request.Cookies(appVendorDB)("member_id") &"' and is_del = 'no' group by is_state" If request.ServerVariables("REMOTE_HOST") = "121.186.19.33" Then 'response.write sql_lic End If 'response.end Set rs_lic = conn.execute(sql_lic) 'response.write rs_lic("is_state") %> <%If Not rs_lic.bof And Not rs_lic.eof Then%> <%If Replace(rs_lic("is_state")," ","") = "on" Then%>
입금확인중
<%ElseIf Replace(rs_lic("is_state")," ","") = "ok" Then%> <%ElseIf Replace(rs_lic("is_state")," ","") = "20" or Replace(rs_lic("is_state")," ","") = "21" or Replace(rs_lic("is_state")," ","") = "rtn" Then%> <%ElseIf Replace(rs_lic("is_state")," ","") = "yes" Then%> <%End If%> <%else%> <%If arrRs(5, i) = "436" Or arrRs(5, i) = "435" Or arrRs(5, i) = "403" Or arrRs(5, i) = "422" Or arrRs(5, i) = "586" Or arrRs(5, i) = "428" Or arrRs(5,i)="508" Or arrRs(5,i)="591" Or arrRs(5,i)="594" Or arrRs(5,i)="478" Or arrRs(5,i)="479" Then%>
<%else%> <%End If%> <%if arrRs(131,i) > 0 then%> <%if isNull(arrRs(36,i)) then%> - <%else%>
<%end if%> <%else%>
<%end if%> <%End If%> <%Else%> - <%End If%> <%elseif arrRs(126, i) > 0 or arrRs(127, i) > 0 Then%> <%If arrRs(8,i) > 59 And (arrRs(47,i) > 59 or arrRs(31,i) > 59) Then%> <% sql_lic = " select count(is_state) as set_lic, is_state from settlement_license where lec_num = '"& arrRs(5,i) &"' and mem_id = '"& Request.Cookies(appVendorDB)("member_id") &"' and is_del = 'no' AND is_state <> 'no' group by is_state" If request.ServerVariables("REMOTE_HOST") = "121.186.19.33" Then 'response.write sql_lic End If 'response.end Set rs_lic = conn.execute(sql_lic) %> <%If Not rs_lic.bof And Not rs_lic.eof Then%> <%If Replace(rs_lic("is_state")," ","") = "on" Then%>
입금대기중
<%ElseIf Replace(rs_lic("is_state")," ","") = "ok" Then%> <%ElseIf Replace(rs_lic("is_state")," ","") = "20" or Replace(rs_lic("is_state")," ","") = "21" or Replace(rs_lic("is_state")," ","") = "rtn" Then%> <%ElseIf Replace(rs_lic("is_state")," ","") = "22" Then%> <%ElseIf Replace(rs_lic("is_state")," ","") = "yes" Then%> <%End If%> <%else%> <%If arrRs(5, i) = "436" Or arrRs(5, i) = "435" Or arrRs(5, i) = "403" Or arrRs(5, i) = "422" Or arrRs(5, i) = "586" Or arrRs(5, i) = "428" Or arrRs(5,i)="508" Or arrRs(5,i)="591" Or arrRs(5,i)="478" Or arrRs(5,i)="479" Then%>
<%else%> <%if arrRs(131,i) > 0 then%> <%if isNull(arrRs(36,i)) then%> - <%else%>
<%end if%> <%else%>
<%if arrRs(5, i) = "548" then%> <%else%> <%end if%>
<%end if%> <%End If%> <%End If%> <%Else%> - <%End If%> <%else%> - <%end if%>
<%'=printPagingType2(pageCnt, goPage, 10, list_footer)%>
<%If getChk()Then%>
  
<%End If%> <%'수강중인리스트%>
자격증신청<%'=att_n_cnt%> 자격증취득 후기글

무통장입금(가상계좌)
입금하실 은행을 선택하시면, 학우님의 고유 계좌번호(가상계좌)가 자동으로 생성이 됩니다.
7일 이내에 입금이 확인되지 않으면 학우님의 주문은 자동 취소됩니다.
주문하신 분과 입금하시는 분이 달라도 정상적으로 입금 확인이 이루어 집니다.
*자격증 신청 후 과정 : 입금대기중▷심사중/입금확인시 심사중으로 표시되며, 심사중은 제작과정 포함 단계입니다.

<% 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 %>