<% 'course="tcatycoon" 'step=1 'lev=0 'sec=18 number = trim(request("number")) if number <> "" then number = cint(number) else response.end end if userans = trim(request("userans")) if LEN(number) = 1 then userans = spe_ch_clear(userans) else userans = "" 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" '관련된 문제 추출 Set chk = Server.CreateObject("ADODB.Recordset") 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)&") and number = "&fncdbvalue(number)&" order by number" chk.Open Sql, cybercon, adOpenStatic 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 CALL MakeAudio("SPlay", 0, 0, "true", "") 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"))&" and start_num + relation_num - 1 >="& 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, adir&"/"&sound) isAudio = true end if CALL PartHeader(1) muncnt = 0 partnum1 = 99 End If CALL OXTable(mun("num"), userans, mun("answer")) %>
<%=trim(mun("num"))%>.
" width="200" height="150">
(A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>
(D) <%=trim(mun("exam4"))%>
 ');" style="cursor:hand"><%'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"))&" and start_num + relation_num - 1 >="& 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, adir&"/"&sound) isAudio = true end if CALL PartHeader(2) muncnt=0 partnum2 = 99 End If CALL OXTable(mun("num"), userans, mun("answer")) %>
<%=trim(mun("num"))%>. (A) <%=trim(mun("exam1"))%>
(B) <%=trim(mun("exam2"))%>
(C) <%=trim(mun("exam3"))%>
 ');" style="cursor:hand"><%'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"))&" and start_num + relation_num - 1 >="& 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, adir&"/"&sound) isAudio = true end if CALL PartHeader(3) CALL Passage("", content, arr_exp3(0), 3) muncnt=0 partnum3 = 99 End If CALL OXTable(mun("num"), userans, mun("answer")) %>
<%=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"))&" and start_num + relation_num - 1 >="& 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, adir&"/"&sound) isAudio = true end if CALL PartHeader(4) CALL Passage("", content, arr_exp4(0), 4) muncnt=0 partnum4 = 99 End If CALL OXTable(mun("num"), userans, mun("answer")) %>
<%=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"), userans, mun("answer")) %>
<%=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"))&" and start_num + relation_num - 1 >="& 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"), userans, mun("answer")) %>
<%=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"))&" and start_num + relation_num - 1 >="& 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"), userans, mun("answer")) %>
<%=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 %>