<% '//////////////////////////////////////////////////////////// '////////////////////////// TOPIC result ///////////////////// '//////////////////////////////////////////////////////////// set db =new dbclass db.sql = "select * from ÀÌ°úÁ¤Æò°¡ where ev_webid='"&US.GETS("WEBID")&"' and ev_levelNm='TOPIC' and ev_approval=1 order by ev_topicCnt DESC" Set rs = db.execrs() %> <% do until rs.eof %> <% rs.moveNext loop %>

Date	Performance Evaluation	Result
<%=left(rs("ev_writeDate"),10)%>	Evaluation	)" style="cursor:pointer">

<% set db = nothing '//////////////////////////////////////////////////////////// '////////////////////////// Á¤±Ô result ///////////////////// '//////////////////////////////////////////////////////////// dim strsql1 ,strsql2,exidx ,imsiLevel ,temptable imsiLevel = "" temptable = true dim db2,rs2,db3,rs3,arrLevel set db =new dbclass set db2 =new dbclass ' Àüü ·¹º§ °¡Á®¿À±â db.sql = "select CateName, CateIdx from category where delfg=0 and cateCode1>1" Set rs = db.execrs() If Not (rs.eof or rs.bof) Then arrLevel = rs.GetRows() if isArray(arrLevel) then for i = 0 to ubound(arrLevel,2) ' ·¹º§ title Ãâ·Â db.clear() db.sql = " select * from exam_result where ex_webid ='"&US.GETS("WEBID")&"' and ex_levelNm='"&arrLevel(0,i)&"' order by ex_levelidx " set rs = db.execrs() if not (rs.eof or rs.bof) then %> <% do until rs.eof set ULD = new usclass strsql2 = " select ex_exidx,ex_cate ,ex_cor , count(ex_cor)*3 as score from exam " strsql2 = strsql2 &" where ex_cor='O' and ex_exidx = "&rs("ex_idx") strsql2 = strsql2 &" group by ex_exidx,ex_cate ,ex_cor " db2.clear() db2.sql = strsql2 'db2.view() set rs2 = db2.execrs() if not (rs2.eof or rs2.bof) then do until rs2.eof ULD.Sets rs2("ex_cate"),rs2("score") rs2.movenext : loop end if if rs("ex_levelidx") <> imsiLevel then %> <% imsiLevel = rs("ex_levelidx") end if 'dim S01,S02,S03,S04,S05,S06,S07,tot,percent if IsNumeric(ULD.Gets("01")) then S01 = int(ULD.Gets("01")) else S01 = 0 end if if IsNumeric(ULD.Gets("02")) then S02 = int(ULD.Gets("02")) else S02 = 0 end if if IsNumeric(ULD.Gets("03")) then S03 = int(ULD.Gets("03")) else S03 = 0 end if if IsNumeric(ULD.Gets("04")) then S04 = int(ULD.Gets("04")) else S04 = 0 end if if IsNumeric(ULD.Gets("05")) then S05 = int(ULD.Gets("05")) else S05 = 0 end if if IsNumeric(ULD.Gets("06")) then S06 = int(ULD.Gets("06")) else S06 = 0 end if if IsNumeric(ULD.Gets("07")) then S07 = int(ULD.Gets("07")) else S07 = 0 end if tot = S01+S02+S03+S04+S05+S06+S07+1 percent = int( ( tot/100 ) * 100 ) dim pS01,pS02,pS03,pS04 dim termTitle,ex_term,ex_levelNm,ex_levelidx ex_term = rs("ex_Term") ex_levelNm = rs("ex_levelNm") ex_levelidx = rs("ex_levelidx") if ex_term = "Midterm" then termTitle = "Midterm" end if if ex_term = "Final" then termTitle = "Final" end if ex_levelNm = lcase(ex_levelNm) if ex_levelNm="beginner" and ex_term="Midterm" then pS01 = int ((s01 /24) * 100) pS02 = int ((s02 /24) * 100) pS03 = int ((s03 /27) * 100) pS04 = int ((s04 /24) * 100) elseif ex_levelNm="beginner" and ex_term="Final" then pS01 = int ((s01 /24) * 100) pS02 = int ((s02 /24) * 100) pS03 = int ((s03 /27) * 100) pS04 = int ((s04 /24) * 100) elseif ex_levelNm="pre-intermediate" and ex_term="Midterm" then pS01 = int ((s01 /24) * 100) pS02 = int ((s02 /24) * 100) pS03 = int ((s03 /27) * 100) pS04 = int ((s04 /24) * 100) elseif ex_levelNm="pre-intermediate" and ex_term="Final" then pS01 = int ((s01 /24) * 100) pS02 = int ((s02 /24) * 100) pS03 = int ((s03 /27) * 100) pS04 = int ((s04 /24) * 100) elseif ex_levelNm="intermediate" and ex_term="Midterm" then pS01 = int ((s01 /30 ) * 100) pS02 = int ((s02 /21 ) * 100) pS03 = int ((s03 /18 )* 100) pS04 = int ((s04 /30 ) * 100) elseif ex_levelNm="intermediate" and ex_term="Final" then pS01 = int ((s01 /30 ) * 100) pS02 = int ((s02 /21 ) * 100) pS03 = int ((s03 /18 )* 100) pS04 = int ((s04 /30 ) * 100) elseif ex_levelNm="advanced" and ex_term="Midterm" then pS01 = int ((s01 /30 ) * 100) pS02 = int ((s02 /21 ) * 100) pS03 = int ((s03 /18 )* 100) pS04 = int ((s04 /30 ) * 100) elseif ex_levelNm="advanced" and ex_term="Final" then pS01 = int ((s01 /30) * 100) pS02 = int ((s02 /24) * 100) pS03 = int ((s03 /15) * 100) pS04 = int ((s04 /30) * 100) end if %> <% db2.clear() set ULD = nothing rs.moveNext : loop %> <% set db3 =new dbclass db3.sql = "select * from ÀÌ°úÁ¤Æò°¡ where ev_webid='"&US.GETS("WEBID")&"' and ev_levelNm='"&ex_levelNm&"' and ev_approval=1;" Set rs3 = db3.execrs() if not rs3.eof then %> <% end if set rs3=nothing set db3 = nothing %>

Date	Test Name	Listening Comprehension	<%if rs("ex_levelidx")<41 then response.write "Pronunciation" else response.write "Vocabulary"%>	Grammar	Reading Comprehension	Total	Result
<%= mid(rs("ex_sendDate"),1,10)%>	<%=rs("ex_Term")%> Test	<%=S01%>	<%=S02%>	<%=S03%>	<%=S04%>	<%=tot%>
<%=left(rs3("ev_writeDate"),10)%>	Evaluation Report

<%else%> <% end if next end if set db2 = nothing set db = nothing %> <% dim webid : webid = US.GETS("webid") dim Tname, Ename,Uname,prdate,strtmp,SCBT,SSpeaking,Level,pr_idx,identi set db = new dbclass db.sql = "select identi FROM webuser where webid='" & webid & "'" set rs = db.execrs() : db.clear() if not(rs.bof or rs.eof) then identi = rs(0) strtmp = "select * , (select Name from branch where idx= pr_branch ) as Brname " strtmp = strtmp &" FROM placement_result where (pr_webid='"&webid&"' or (pr_identi='"&identi&"' and LEN(pr_identi)=13)) " strtmp = strtmp &" and (select count(*) from placement where pr_idx =pla_pridx) > 0 " strtmp = strtmp &" order by pr_date DESC " db.sql = strtmp 'db.view() set rs = db.execrs() db.clear() set db = nothing %> <% dim overMonth : overMonth = true if not(rs.eof or rs.bof) then %> <% dim ULD dim arr_score dim strsql3 do until rs.eof set ULD = new usclass pr_idx = rs("pr_idx") prdate = rs("pr_date") ' 30ÀÏ¿¡ Çѹø¾¿¸¸ ÀÀ½Ã°¡´ÉÇϵµ·Ï üũ if overMonth = true and prdate+30 > date() then overMonth = false strsql3 = " select pla_pridx,pla_cate ,pla_cor , count(pla_cor)*3 as score " strsql3 = strsql3 & " from placement inner join placement_result on pla_pridx = pr_idx " strsql3 = strsql3 & " where pla_pridx='"&pr_idx&"' and pla_cor='O' " strsql3 = strsql3 & " group by pla_pridx,pla_cate ,pla_cor " set db =new dbclass db.sql = strsql3 'db.view set rs2 = db.execrs() if not (rs2.eof or rs2.bof) then do until rs2.eof ULD.Sets rs2("pla_cate"),rs2("score") rs2.movenext : loop end if set db = nothing dim S01,S02,S03,S04,S05,S06,S07,tot,percent if IsNumeric(ULD.Gets("01")) then S01 = int(ULD.Gets("01")) else S01 = 0 end if if IsNumeric(ULD.Gets("02")) then S02 = int(ULD.Gets("02")) else S02 = 0 end if if IsNumeric(ULD.Gets("03")) then S03 = int(ULD.Gets("03")) else S03 = 0 end if if IsNumeric(ULD.Gets("04")) then S04 = int(ULD.Gets("04")) else S04 = 0 end if if IsNumeric(ULD.Gets("05")) then S05 = int(ULD.Gets("05")) else S05 = 0 end if if IsNumeric(ULD.Gets("06")) then S06 = int(ULD.Gets("06")) else S06 = 0 end if if IsNumeric(ULD.Gets("07")) then S07 = int(ULD.Gets("07")) else S07 = 0 end if tot = S01+S02+S03+S04+S05+S06+S07+1 percent = int( ( tot/130 ) * 100 ) dim Slist01,Slist02,Sgv01,SRead Slist01 = S01 Slist02 = S02 Sgv01 = S03+S04+S05 SRead = S06+S07 dim pSlist01,pSlist02,pSgv01,pSRead pSlist01 = ( Slist01/36 ) * 100 pSlist02 = ( Slist02/30 ) * 100 pSgv01 = ( Sgv01 /45) * 100 pSRead = ( SRead / 18 ) * 100 %> <% set ULD = nothing rs.movenext : loop %>

Date	Listening (Comprehension)	Listening(for Specific Information)	Grammar Vocabulary	Reading	Total	Result
<%=mid(prdate,1,10)%>	<%=S01%>/36	<%=S02%>/30	<%=Sgv01%>/45	<%=SRead%>/18	<%=tot%>/130(<%=percent%>%)

<% end if %>

PLACEMENT TEST ÀÀ½ÃÇϱâ(ÇÑ ´Þ¿¡ 1ȸ¸¸ ÀÀ½Ã °¡´ÉÇÕ´Ï´Ù.)

<%'end if%>

<%=fn.sitecheckin()%> "> "> ">

"> ">

"> "> ">

<% '//////////////////////////////////////////////////////////// '////////////////////////// Speaking TEST ///////////////////// '//////////////////////////////////////////////////////////// set db =new dbclass db.sql = "SELECT * FROM oralTest WHERE isDel=0 AND state=2 AND userIdx='"&US.GETS("IDX")&"' order by oralChasu desc;" 'db.view Set rs = db.execrs() %> <% do until rs.eof %> <% rs.moveNext loop %>

Date	Test Name	Result
<%=left(rs("oralDate"),10)%>	Speaking Test	)" style="cursor:pointer">

<% set db = nothing %>