123
<%
Dim Idx : Idx = "8"
Dim strSql, Rs, arrList, k, subcd, grade, orgscore, avgscore, perscore
strSql=" IBIZ_EXAM_GRADE_LIST_SVC "&Idx&""
Set Rs = Con_eclass.query(strSql)
If Not Rs.EOF Then
arrList= Rs.GetRows()
Else
arrList = null
End If
Set Rs = Nothing
' Dim KOR(3,9), MAT1(3,9), MAT2(3,9), ENG(3,9)
Dim str_kor, str_mat1, str_mat2, str_eng
Dim tpl
tpl = "" & vbcrlf
tpl = tpl & "| 최고점 | " & vbcrlf
tpl = tpl & " @org@ | " & vbcrlf
tpl = tpl & " @avg@ | " & vbcrlf
tpl = tpl & " @per@ | " & vbcrlf
tpl = tpl & "
" & vbcrlf
If Not IsNull(arrList) Then
For k=0 To UBound(arrList,2)
subcd = arrList(2, k) '영역
grade = arrList(3, k) '등급
orgscore = arrList(4, k) '원점수
avgscore = arrList(5, k) '표준점수
perscore = arrList(6, k) '백분율
If IsNull(orgscore) Then orgscore = "-"
If IsNull(avgscore) Then avgscore = "-"
If IsNull(perscore) Then perscore = "-"
If orgscore = "" Then orgscore = "-" '원점수
If avgscore = "" Then avgscore = "-" '표준점수
If perscore = "" Then perscore = "-" '백분율
If subcd = "11" then '언어
If grade = "0" then
str_kor = tpl
str_kor = replace(str_kor, "@org@", orgscore)
str_kor = replace(str_kor, "@avg@", avgscore)
str_kor = replace(str_kor, "@per@", perscore)
Else
str_kor = str_kor & " " & vbcrlf
str_kor = str_kor & " | "& grade &" | " & vbcrlf
str_kor = str_kor & " "& orgscore &" | " & vbcrlf
str_kor = str_kor & " "& avgscore &" | " & vbcrlf
str_kor = str_kor & " "& perscore &" | " & vbcrlf
str_kor = str_kor & "
"
End if
elseIf subcd = "12" then '수리(가)
If grade = "0" then
str_mat1 = tpl
str_mat1 = replace(str_mat1, "@org@", orgscore)
str_mat1 = replace(str_mat1, "@avg@", avgscore)
str_mat1 = replace(str_mat1, "@per@", perscore)
Else
str_mat1 = str_mat1 & " " & vbcrlf
str_mat1 = str_mat1 & " | "& grade &" | " & vbcrlf
str_mat1 = str_mat1 & " "& orgscore &" | " & vbcrlf
str_mat1 = str_mat1 & " "& avgscore &" | " & vbcrlf
str_mat1 = str_mat1 & " "& perscore &" | " & vbcrlf
str_mat1 = str_mat1 & "
"
End if
elseIf subcd = "13" then '수리(나)
If grade = "0" then
str_mat2 = tpl
str_mat2 = replace(str_mat2, "@org@", orgscore)
str_mat2 = replace(str_mat2, "@avg@", avgscore)
str_mat2 = replace(str_mat2, "@per@", perscore)
Else
str_mat2 = str_mat2 & " " & vbcrlf
str_mat2 = str_mat2 & " | "& grade &" | " & vbcrlf
str_mat2 = str_mat2 & " "& orgscore &" | " & vbcrlf
str_mat2 = str_mat2 & " "& avgscore &" | " & vbcrlf
str_mat2 = str_mat2 & " "& perscore &" | " & vbcrlf
str_mat2 = str_mat2 & "
"
End if
elseIf subcd = "14" then '외국어
If grade = "0" then
str_eng = tpl
str_eng = replace(str_eng, "@org@", orgscore)
str_eng = replace(str_eng, "@avg@", avgscore)
str_eng = replace(str_eng, "@per@", perscore)
Else
str_eng = str_eng & " " & vbcrlf
str_eng = str_eng & " | "& grade &" | " & vbcrlf
str_eng = str_eng & " "& orgscore &" | " & vbcrlf
str_eng = str_eng & " "& avgscore &" | " & vbcrlf
str_eng = str_eng & " "& perscore &" | " & vbcrlf
str_eng = str_eng & "
"
End If
End If
Next
End If
%>
321
