<% course="tcatycoon" step=1 lev=0 sec=20 mun_su = trim(request("mun_su")) if mun_su <> "" then mun_su = cint(mun_su) end if correct_su1 = 0 dim PartNum1, PartNum2, PartNum3, PartNum4, PartNum5, PartNum6, PartNum7, PartNum8, PartNum9 DIM muncnt, tmpsound, arr_exp, isAudio isAudio = false idir="http://gva.ybmsisa.com/"&course&"/step"&step&"/checkup/" adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/checkup" '관련된 문제 추출 Sql = "Select idx, select_example, select_content from lecture_checkup where intro_idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") order by number" Set chk = Server.CreateObject("ADODB.Recordset") chk.Open Sql, cybercon, 1 arr_corr_ans = split(total_corr_ans, "/") arr_user_ans = split(total_user_ans, "/") %> "221.142.252" Then %> bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false' <% End If %>bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<% '관련된 문제 추출 If chk.BOF And chk.EOF Then response.write "문제가 입력되지 않았습니다." Else chk.MOVEFIRST a = 0 Do Until chk.EOF Set mun = server.createobject("ADODB.Recordset") If chk("select_example") = 1 Then '객관식 문제 가져오기 sql = "select * from lecture_chk_ga where idx = "& fncdbvalue(chk("idx")) &" order by part, num" mun.open sql, cybercon, 1 part = mun("part") a = a + 1 Select Case part case 1 PART1 case 2 PART2 case 3 PART3 case 4 PART4 case 5 PART5 case 6 PART6 case 7 PART7 End Select End If mun.close Set mun = Nothing chk.movenext Loop End IF chk.close Set chk = Nothing cybercon.close Set cybercon = Nothing %>

<% '정답여부 표시 테이블(문제번호, 제출한답, 정답, 정답여부) SUB OXTable(num, user_ans, corr_ans) %>

<%=num%> 번 문제

제출한 답 : (<%=UCASE(user_ans)%>)

정 답 : (<%=UCASE(corr_ans)%>)

정답 여부 : <%if strcomp(user_ans, corr_ans, 1)=0 then%>O<%else%>X<%end if%>

<% END SUB SUB ChronoAndSound(partnum) %>

<% END SUB SUB MakeAudio(strID, width, height, AutoStart, FileName) %> <% END SUB SUB PartHeader(partnum) Select Case part case 1 : strPART = "I" : case 2 : strPART = "II" : case 3 : strPART = "III" : case 4 : strPART = "IV" case 5 : strPART = "V" : case 6 : strPART = "VI" : case 7 : strPART = "VII" End Select %>

Part <%=strPART%>

<% END SUB SUB PART1 explain = mun("explain") arr_exp = split(explain, "//") if ubound(arr_exp)>3 then exp_sound = arr_exp(4) else end if %><% Sql = "select con_header, sound, start_num, relation_num from lecture_chk_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num")) Set chk_ji = cybercon.execute(Sql) If Not(chk_ji.eof) Then sound = trim(chk_ji("sound")) End if chk_ji.close SET chk_ji = nothing if partnum1 <> 99 then if not isAudio then CALL MakeAudio("SPlay", 0, 0, "False", adir&"/"&sound) CALL ChronoAndSound(1) isAudio = true end if CALL PartHeader(1) muncnt = 0 partnum1 = 99 End If CALL OXTable(mun("num"), arr_user_ans(mun("num")-1), arr_corr_ans(mun("num")-1)) %>

<%=trim(mun("num"))%>.

" width="200" height="150">

(A) <%=trim(mun("exam1"))%>

(B) <%=trim(mun("exam2"))%>

(D) <%=trim(mun("exam4"))%>

<%CALL MakeAudio("Player"&trim(mun("num")), 75, 45, "False", adir&"/"&trim(mun("sound")))%>

<% CALL ExplainTable(mun("explain")) END SUB SUB PART2 explain = mun("explain") arr_exp = split(explain, "//") if ubound(arr_exp)>3 then exp_sound = arr_exp(4) else end if%> <% Sql = "select con_header, sound, start_num, relation_num from lecture_chk_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num")) Set chk_ji = cybercon.execute(Sql) If Not(chk_ji.eof) Then sound = trim(chk_ji("sound")) End if chk_ji.close SET chk_ji = nothing if partnum2 <> 99 then if not isAudio then CALL MakeAudio("SPlay", 0, 0, "False", adir&"/"&sound) CALL ChronoAndSound(2) isAudio = true end if CALL PartHeader(2) muncnt=0 partnum2 = 99 End If CALL OXTable(mun("num"), arr_user_ans(mun("num")-1), arr_corr_ans(mun("num")-1)) %>

<%=trim(mun("num"))%>.

(A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>

<%CALL MakeAudio("Player"&trim(mun("num")), 75, 45, "False", adir&"/"&trim(mun("sound")))%>

<% CALL ExplainTable(mun("explain")) END SUB 'Part3 SUB PART3 explain = mun("explain") arr_exp = split(explain, "//") if ubound(arr_exp)>3 then exp_sound = arr_exp(4) else end if Sql = "select con_header, sound, start_num, relation_num, explain, content from lecture_chk_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num")) Set chk_ji = cybercon.execute(Sql) If Not(chk_ji.eof) Then sound = trim(chk_ji("sound")) arr_exp3 = split(chk_ji("explain"),"//") content = TRIM(chk_ji("content")) End if chk_ji.close SET chk_ji = nothing if partnum3 <> 99 then if not isAudio then CALL MakeAudio("SPlay", 0, 0, "False", adir&"/"&sound) CALL ChronoAndSound(3) isAudio = true end if CALL PartHeader(3) CALL Passage("", content, arr_exp3(0), 3) muncnt=0 partnum3 = 99 End If CALL OXTable(mun("num"), arr_user_ans(mun("num")-1), arr_corr_ans(mun("num")-1)) %>

<%=mun("num")%>.

<%=trim(mun("content"))%>
(A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>
<% if trim(mun("exam4"))<>"" then%> (D) <%response.write trim(mun("exam4")) end if%>

<% CALL ExplainTable(mun("explain")) END SUB 'Part4 SUB PART4 explain = mun("explain") arr_exp = split(explain, "//") if ubound(arr_exp)>3 then exp_sound = arr_exp(4) else end if Sql = "select con_header, sound, start_num, relation_num, explain, content from lecture_chk_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num")) Set chk_ji = cybercon.execute(Sql) If Not(chk_ji.eof) Then sound = trim(chk_ji("sound")) content = trim(chk_ji("content")) arr_exp4 = split(chk_ji("explain"),"//") End if chk_ji.close SET chk_ji = nothing if partnum4 <> 99 then if not isAudio then CALL MakeAudio("SPlay", 0, 0, "False", adir&"/"&sound) CALL ChronoAndSound(4) isAudio = true end if CALL PartHeader(4) CALL Passage("", content, arr_exp4(0), 4) muncnt=0 partnum4 = 99 End If CALL OXTable(mun("num"), arr_user_ans(mun("num")-1), arr_corr_ans(mun("num")-1)) %>

<%=mun("num")%>.

<%=trim(mun("content"))%>
(A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>
(D) <%=trim(mun("exam4"))%>

<% CALL ExplainTable(mun("explain")) END SUB 'Part5 SUB PART5 If partnum5 <> 99 Then muncnt=0 CALL PartHeader(5) partnum5 = 99 End If CALL OXTable(mun("num"), arr_user_ans(mun("num")-1), arr_corr_ans(mun("num")-1)) %>

<%=mun("num")%>.

<%=trim(mun("content"))%>
(A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>
(D) <%=trim(mun("exam4"))%>

<% CALL ExplainTable(mun("explain")) END SUB SUB PART6 if partnum6 <> 99 then muncnt=0 CALL PartHeader(6) partnum6 = 99 End If Sql = "select con_header, start_num, relation_num from lecture_chk_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num")) Set chk_ji = cybercon.execute(Sql) If Not(chk_ji.eof) Then %>

<%=replace(chk_ji("con_header"),chr(10)&chr(13),"
")%>

<% End if chk_ji.close SET chk_ji = nothing arrtmp = split(trim(mun("explain")), "//") Qspace = arrtmp(3) CALL OXTable(mun("num"), arr_user_ans(mun("num")-1), arr_corr_ans(mun("num")-1)) %>

<%=trim(mun("content"))%>

<%=mun("num")%>.

(A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>
(D) <%=trim(mun("exam4"))%>

<% CALL ExplainTable(mun("explain")) END SUB SUB PART7 if partnum7 <> 99 then muncnt=0 CALL PartHeader(7) partnum7 = 99 End If %> <% Sql = "select con_header, content, image, start_num, relation_num, explain from lecture_chk_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num")) Set chk_ji = cybercon.execute(Sql) If Not(chk_ji.eof) Then%>

<%=replace(chk_ji("con_header"),chr(10)&chr(13),"
")%>

<% IMAGE = RIGHT(TRIM(chk_JI("IMAGE")), 3) IF IMAGE = "GIF" OR IMAGE = "JPG" THEN IMAGE = trim(chk_ji("image")) ELSE IMAGE = "" END IF CALL Passage(IMAGE, TRIM(chk_ji("content")), split(chk_ji("explain"), "//")(0), 7) %> <% End If chk_ji.close SET chk_ji = nothing CALL OXTable(mun("num"), arr_user_ans(mun("num")-1), arr_corr_ans(mun("num")-1)) %>

<%=mun("num")%>.

<%=trim(mun("content"))%>
(A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>
(D) <%=trim(mun("exam4"))%>

<% CALL ExplainTable(mun("explain")) END SUB '지시문 SUB Passage(IMAGE, content, EXPLAIN, partnum) %>

<% IF IMAGE <> "" THEN%> <% END IF IF TRIM(content) <> "" THEN%> <% END IF IF TRIM(EXPLAIN)<>"" THEN%> <% END IF%>

<%if partnum<=4 then%>

<%end if%><%=replace(content, chr(13),"
")%>

<%=replace(EXPLAIN, chr(13),"
")%>

<% END SUB '설명 테이블 SUB ExplainTable(explain) arr_exp = SPLIT(explain, "//") IF ISARRAY(ARR_EXP) THEN %>

<% if trim(arr_exp(5))<>"" then%> <% end if if trim(arr_exp(2))<>"" then%> <% end if if trim(arr_exp(1))<>"" then%> <% end if if trim(arr_exp(0))<>"" then%> <% end if%>

<%=replace(arr_exp(5), chr(13), "
")%>

<%=replace(arr_exp(2), chr(13), "
")%>

<%=replace(arr_exp(1), chr(13), "
")%>

<%=replace(arr_exp(0), chr(13), "
")%>

<% END IF END SUB %>