<% Response.Expires = -1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" DIM arrVoca adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/review" 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(arrVoca,2) user_answer = trim(request.form("ans"&(qcnt+1))) corr_answer = trim(arrVoca(3,qcnt)) user_answer = replace(user_answer, ", ", "/") user_answer = replace(user_answer, ",", "/") %> <%next%>

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

	<%=replace(arrVoca(3,qcnt), "/", ", ")%>
	<%=split(arrVoca(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 arrVoca = voca.GetRows 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 %>