<% sql_where = " where c_Idx = '"& c_idx &"'" sql_orderby = " order by testNo asc, subjectNo asc, partNo asc, chapterNo asc" sql = "select * from °ú¸ñÅ×À̺í¸í " sql = sql & sql_where Set rs = objConn.execute(sql) ' oriTestNo = "1" ' oriSubjectNo = "1" ' oriPartNo = "1" testQcount = 0 subjectQcount = 0 partQcount = 0 totalQcount = 0 If Not(rs.eof Or rs.bof) Then i = 1 Do Until rs.eof idx = rs("idx") testNo = rs("testNo") subjectNo = rs("subjectNo") partNo = rs("partNo") qCount = rs("qCount") 'PART ÇÕ°è If i > 1 And oriPartNo <> partNo Then %> <% partQcount = 0 End If 'SUBJECT ÇÕ°è If i > 1 And oriSubjectNo <> subjectNo Then %> <% subjectQcount = 0 End If 'TEST ÇÕ°è If i > 1 And oriTestNo <> testNo Then %> <% testQcount = 0 End If oriTestNo = testNo oriSubjectNo = subjectNo oriPartNo = partNo %> <% testQcount = testQcount + qCount 'testÇÕ°è subjectQcount = subjectQcount + qCount 'subjectÇÕ°è partQcount = partQcount + qCount 'partÇÕ°è totalQcount = totalQcount + qCount 'ÃÑ ÇÕ°è i = i + 1 rs.movenext Loop '¸Ç ¾Æ·¡ row´Â À§ °è»ê¹ýÀ¸·Î ¾ÈµÊ.¸¦ À§ÇÔ(S) 'PART ÇÕ°è If i > 1 And oriPartNo = partNo Then %> <% End If 'SUBJECT ÇÕ°è If i > 1 And oriSubjectNo = subjectNo Then %> <% End If 'TEST ÇÕ°è If i > 1 And oriTestNo = testNo Then %> <% End If '¸Ç ¾Æ·¡¸¦ À§ÇÔ(E) %> <% Else %> <% End If rs.close Set rs = Nothing %>
¹øÈ£ tNo test¸í sNo subject¸í pNo part¸í cNo chapter¸í »ç¿ë¿©ºÎ ÃâÁ¦¼ö ºñ°í
PART ÇÕ°è <%=partQcount%>  
SUBJECT ÇÕ°è <%=subjectQcount%>  
TEST ÇÕ°è <%=testQcount%>  
<%=rs("idx")%> " name="testNo" value="<%=rs("testNo")%>" size="1" style="text-align:right;"> " name="testName" value="<%=rs("testName")%>" size="15" maxlength="40"> " name="subjectNo" value="<%=rs("subjectNo")%>" size="1" style="text-align:right;"> " name="subjectName" value="<%=rs("subjectName")%>" size="15" maxlength="40"> " name="partNo" value="<%=rs("partNo")%>" size="1" style="text-align:right;"> " name="partName" value="<%=rs("partName")%>" size="15" maxlength="40"> " name="chapterNo" value="<%=rs("chapterNo")%>" size="1" style="text-align:right;"> " name="chapterName" value="<%=rs("chapterName")%>" size="15" maxlength="40"> " size="1" value="<%=rs("qCount")%>" style="text-align:right;">
PART ÇÕ°è <%=partQcount%>  
SUBJECT ÇÕ°è <%=subjectQcount%>  
TEST ÇÕ°è <%=testQcount%>  
ÃÑ ÇÕ°è <%=totalQcount%>  
µî·ÏµÈ Á¤º¸°¡ ¾ø½À´Ï´Ù.