%
dim pridx : pridx = request.querystring("pridx")
dim brName, Tname, Ename,Uname,prdate,strtmp,SCBT,SSpeaking,Level
set db = new dbclass
strtmp = "select * , (select Name from branch where idx= pr_branch ) as Brname "
strtmp = strtmp &" FROM placement_result where pr_idx='"&pridx&"' "
strtmp = strtmp &" order by pr_date DESC "
db.sql = strtmp
'db.view()
set rs = db.execrs()
if not (rs.eof or rs.bof) then
brName = rs("brname")
Tname = rs("pr_tname")
Ename = rs("pr_Ename")
Uname = rs("pr_Uname")
prdate = rs("pr_date")
SCBT = rs("pr_cbt")
SSpeaking = rs("pr_speaking")
Level = rs("pr_leve")
end if
db.clear()
set db = nothing
dim ULD : set ULD = new usclass
dim arr_score
set db = new dbclass
strtmp = " select pla_pridx,pla_cate ,pla_cor , count(pla_cor)*3 as score "
strtmp = strtmp &" from placement where pla_pridx='"&pridx&"' and pla_cor='O' "
strtmp = strtmp &" group by pla_pridx,pla_cate ,pla_cor "
db.sql = strtmp
'db.view()
set rs = db.execrs()
if not (rs.eof or rs.bof) then
do until rs.eof
ULD.Sets rs("pla_cate"),rs("score")
rs.movenext : loop
end if
db.clear()
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
%>
Maven Language Center |
16th Fl, Jaeneung Education Bldg. 192-11 Euljiro 1-ga, Jung-gu, Seoul, Korea |
Tel: +82 2 737 1105 www.themavens.co.kr |
<%=Uname%>´ÔÀÇ Placement Test °á°úÀÔ´Ï´Ù. |
DATE : <%=fn.yyyymmdd(prdate)%>
|
ÁöÁ¡¸í |
<%=Brname%> |
´ã´çÁ÷¿ø |
<%=Ename%> |
Skill Areas |
Score |
Categories |
Degree Achievement |
Listening |
<%=(Slist01+Slist02)%>/66 |
Comprehension |
for Specific Information |
|
|
Gr. & Vocab |
<%=Sgv01%>/45 |
|
|
Idioms & Expressions |
<%=S05%>/15 |
Reading |
<%=SRead%>/18 |
|
|
TOTAL : <%=tot%>/130(<%=percent%>%)
|
CBT |
Speaking |
Level |
<%=percent%>% |
<%if SSpeaking <> "" then response.write SSpeaking&"/60pts" else response.write "" end if%> |
<%=Level%> |
<%
set ULD = nothing
%>