<% Response.Expires = -1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" DIM arrVocaJu, arrVocaJi idir="http://gva.ybmsisa.com/"&course&"/step"&step&"/voca/" adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/voca" CALL GetInfo() cybercon.close SET cybercon = nothing %> "221.142.252" Then %>bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false'<% End If %> topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgcolor="#ffffff"> <%for qcnt=0 to ubound(arrVocaJu,2) user_answer = trim(request.form("ans"&(qcnt+1))) corr_answer = trim(arrVocaJu(3,qcnt)) user_answer = replace(user_answer, ", ", "/") user_answer = replace(user_answer, ",", "/") %> <%next%>

<% arr_word = split(arrVocaJi, "//") IF ISARRAY(arr_word) THEN %>

<% FOR i=0 to UBOUND(arr_word)%>

<% NEXT%>

<% END IF%>

<%CALL OXTableLayer(CheckCorrect(user_answer, corr_answer), 10)%><%=arrVocaJu(0, qcnt)%>. <%response.write GenSortAnsQuiz(arrVocaJu(1,qcnt), arrVocaJu(0,qcnt))%>

<%=split(arrVocaJu(5, qcnt), "//")(1)%>

<% SUB GetInfo() Set voca = Server.CreateObject("ADODB.Recordset") strSQL="select num, content, answer_count, answer, sound, explain from lecture_review_ju where idx in (select idx from lecture_review where intro_idx =(select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&")) order by num" voca.Open strSql, cybercon, adOpenForwardOnly, adLockReadOnly if voca.EOF then else arrVocaJu = voca.GetRows end if voca.close strSQL="select content from lecture_review_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)&") order by start_num" voca.Open strSql, cybercon, adOpenForwardOnly, adLockReadOnly if voca.EOF then else arrVocaJi = voca("content") end if voca.close SET voca = nothing END SUB Function GenSortAnsQuiz(str,number) s = "" v = "" ans_count = 1 str = replace(str,chr(13),"
") str = replace(str," "," ") for i = 1 to len(str) select case mid(str,i,1) case "[" s = s & "" ans_count = ans_count + 1 exit for else v = v & mid(str,i,1) end if next v = "" case else s = s & mid(str,i,1) end select next GenSortAnsQuiz = s End Function SUB OXTableLayer(isCorrect, leftpx) %>

<% END SUB FUNCTION CheckCorrect(u_ans, c_ans) IF strcomp(u_ans, c_ans, 1) = 0 THEN CheckCorrect = TRUE ELSE CheckCorrect = FALSE END IF END FUNCTION %>