Editing: thesis_progress_student_list_ext.asp

<!-- <tr> <td colspan=3 bgcolor=#FFCC00>Ἱ�����§ҹ������¹/��ԭ�ҹԾ���</td>--> <div class="table-responsive"> <table class="table table-striped table-bordered"> <% 'sqlrp="select * from rp_table_stugroup where id_stugroup='"&ors_data("id_stugroup")&"' and id_status=1 order by id_order,id_table,id_manage" sqlrp="select * from rp_table_stugroup where id_stugroup='"&ors_data("id_stugroup")&"' and id_status=1 order by id_order" Set orsrp=server.createobject("adodb.recordset") orsrp.open sqlrp,conn,1,3 'Response.write sqlrp If Not orsrp.eof Then numu=1 orsrp.movefirst Do While Not orsrp.eof id_table=orsrp("id_table") 'Response.write id_table sqlrpt="select * from rp_table where id_table='"&id_table&"' and id_status=1" Set orsrpt=server.createobject("adodb.recordset") orsrpt.open sqlrpt,conn,1,3 If Not orsrpt.eof then If id_table=1 Then '����������§ҹ��������˹�ҡ�÷ӻ�ԭ�ҹԾ��� %> <tr ><td bgcolor="#FFCC00"> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><tr><td> <%sqlrp1="select * from "&orsrpt("table_name")&" where id_stu='"&id_stu&"' " set orsrp1=server.createobject("adodb.recordset") orsrp1.open sqlrp1,conn,1,3 if not orsrp1.eof then orsrp1.movefirst t1=1 do while not orsrp1.eof If orsrp1("id_status_register")=1 Then sqldate="select * from rp_activity where id_activity='"&orsrp1("id_activity")&"' and id_table='1'" Set orsdate=server.createobject("adodb.recordset") orsdate.open sqldate,conn,1,3 If Not orsdate.eof Then Response.write "<p style=margin-left: 40px>���駷�� "&t1 Response.write ". ��������Ԩ���� �ѹ��� "&orsdate("d_activity")&"-"&orsdate("m_activity")&"-"&orsdate("y_activity") End if Else 'Response.write ". �����������Ԩ���� " End if Response.write "</p>" t1=t1+1 orsrp1.movenext Loop Else Response.write "No Data" End if elseIf id_table=11 Then '����������§ҹ��������˹�ҡ�÷ӻ�ԭ�ҹԾ��� %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %> <!--#include file="t11detail_stu.asp"--> <% ElseIf id_table=2 Then '��§ҹ��������˹����ѧ�ͺ����ç %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><tr><td> <%sqlrp2="select * from "&orsrpt("table_name")&" where id_stu='"&id_stu&"' " set orsrp2=server.createobject("adodb.recordset") orsrp2.open sqlrp2,conn,1,3 if not orsrp2.eof then orsrp2.movefirst t2=1 do while not orsrp2.eof If orsrp2("id_status_register")=1 Then sqldate="select * from rp_activity where id_activity='"&orsrp2("id_activity")&"' and id_table='2'" Set orsdate=server.createobject("adodb.recordset") orsdate.open sqldate,conn,1,3 If Not orsdate.eof Then Response.write "<p style=margin-left: 40px>���駷�� "&t2 Response.write ". ��������Ԩ���� �ѹ��� "&orsdate("d_activity")&"-"&orsdate("m_activity")&"-"&orsdate("y_activity") t2=t2+1 End if Else 'Response.write " �����������Ԩ���� " End if Response.write "</p>" orsrp2.movenext Loop Else Response.write "No Data" End if ElseIf id_table=3 Then %> <!-- ����� QE 3. �����š���ͺ QE--> <%if id_curriculum=2 then%> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %> <!--#include file="t3detail_stu.asp"--> <%'sqlchkqe="select * from qe_regis2 where id_stu='"&id_stu&"' " 'set orschkqe=server.createobject("adodb.recordset") 'orschkqe.open sqlchkqe,conn,1,3 'if not orschkqe.eof then 'orschkqe.movefirst 'do while not orschkqe.eof 'if orschkqe("qe_result_semeter")=1 or orschkqe("qe_result_semeter")=5 then 'sqlchkg="select * from qe_grade where qe_grade='"&orschkqe("qe_result_semeter")&"'" 'set orschkg=server.createobject("adodb.recordset") 'orschkg.open sqlchkg,conn,1,3 'if not orschkg.eof then 'response.write "<tr><td>("&orschkg("qe_qname") & " ����� " 'end if 'sqlchkse="select * from qe_schedule where qe_schedule='"&orschkqe("qe_schedule")&"'" ' set orschkse=server.createobject("adodb.recordset") ' orschkse.open sqlchkse,conn,1,3 ' if not orschkse.eof then ' response.write orschkse("qe_semeter")&"/" ' response.write orschkse("qe_year_edu")&")" ' end if ' end if 'orschkqe.movenext 'Loop 'Else Response.write "<tr><td>-" 'end if %> </td></tr> <!--<tr ><td > <table border=0>--> <% 'sqlall="select * from qe_regis where id_stu='"&id_stu&"' order by qe_id desc" 'set orsall=server.createobject("adodb.recordset") 'orsall.open sqlall,conn,1,3 'l1=0 'if not orsall.eof then 'orsall.movefirst 'do while not orsall.eof 'l1=l1+1 'if l1 mod 2 = 0 then 'bg1="#EBEBEB" 'else 'bg1="#FDFDFD" 'end if ' sqlq1="select * from qe where qe_id='"&orsall("qe_id")&"'" ' set orsq1=server.createobject("adodb.recordset") ' orsq1.open sqlq1,conn,1,3 ' if not orsq1.eof then ' qe_day=orsq1("qe_day") ' qe_month=orsq1("qe_month") ' qe_year=orsq1("qe_year") 'sqlc="select * from qe_course where qe_course='"&orsq1("qe_course")&"'" ' set orsc=server.createobject("adodb.recordset") ' orsc.open sqlc,conn,1,3 ' if not orsc.eof then ' coursen=orsc("qe_cname") ' end if ' sqlq="select * from qe_schedule where qe_schedule='"&orsq1("qe_schedule")&"'" ' set orsq=server.createobject("adodb.recordset") ' orsq.open sqlq,conn,1,3 ' if not orsq.eof then ' 'sqlt="select * from qe_type_test where id_type_test='"&orsq("id_type_test")&"'" ' 'set orst=server.createobject("adodb.recordset") ' 'orst.open sqlt,conn,1,3 ' 'if not orst.eof then ' if session("type_login")<>2 then ' ' response.write "<tr bgcolor="&bg1&"><td>"&orsq("qe_semeter")&"/"&orsq("qe_year_edu") ' end if ' 'response.write "<td>"&orst("type_test") ' end if 'end if 'if session("type_login")<>2 then ''response.write "<td>"&coursen&"</td><td>"&qe_day&"-"&qe_month&"-"&qe_year&" </td>"'<td>"&orsall("qe_date")&"</td>" 'end if 'sqlg="select * from qe_grade where qe_grade='"&orsall("qe_result")&"'" ' set orsg=server.createobject("adodb.recordset") ' orsg.open sqlg,conn,1,3 ' if not orsg.eof then 'response.write "<td>"&orsg("qe_qname")&"</td>" ' end if %> <% 'response.write "</tr>" 'end if 'orsall.movenext 'loop 'else 'response.write "<tr><td colspan=4>No QE test</td></tr>" 'end if end if 'if id_curriculum=2 then %> </td> </tr> <!-- �� QE --> <% ElseIf id_table=4 Then '4. exitexam %> <tr><td bgcolor=#b9e9a9> <%'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %> <!--#include file="t4detail_stu.asp"--> <!--[<a href=add_exitexam_form.asp>����������</a>]--> <% 'sqle="select * from rp_exitexam where id_stu='"&id_stu&"' " 'set orse=server.createobject("adodb.recordset") 'orse.open sqle,conn,1,3 'if not orse.eof then 'orse.movefirst 'nao=1 'do while not orse.eof 'sqlet="select * from rp_exitexam_type where 'id_exitexam_type='"&orse("id_exitexam_type")&"'" 'set orset=server.createobject("adodb.recordset") 'orset.open sqlet,conn,1,3 'if not orset.eof then 'response.write "<tr><td>"&nao&". "&orset("exitexam_type") & " ����� " 'response.write orse("d_pass")&"-" 'response.write orse("m_pass")&"-" 'response.write orse("y_pass")&"" 'Response.write "[��ѡ�ҹ]" 'Else 'response.write "<tr><td>"&nao&"."&orset("exitexam_type") 'end if 'nao=nao+1 'orse.movenext 'Loop 'Else 'Response.write "<tr><td>No Data" 'end if ElseIf id_table=5 Then '5. �ʹͼŧҹ %> <tr><td bgcolor=#b9e9a9> <%'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><!--#include file="t5detail_stu.asp"--> <% ElseIf id_table=6 Then '���������Ъ���Ԫҡ�� %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %> <!--#include file="t6conattend.asp"--> <% ElseIf id_table=7 Then '�վ���캷���� rp_article %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><!--#include file="t7detail_stu.asp"--> <% ElseIf id_table=8 Then 'softskill %> <tr><td bgcolor=#b9e9a9> <%' Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><!--#include file="t8detail_stu.asp"--> <% ElseIf id_table=15 Then 'softskill66 %> <tr><td bgcolor=#b9e9a9> <%' Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><!--#include file="t15detail_stu.asp"--> <% ElseIf id_table=9 Then '��§ҹ��������˹����ѧ�ͺ����ç %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><!--#include file="t7detail_stu.asp"--> <% ElseIf id_table=10 Then '��§ҹ��������˹����ѧ�ͺ����ç %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %><!--#include file="t7detail_stu.asp"--> <% ElseIf id_table=12 Then 'sit in %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") '���繡�ô֧�ҡ�Ԩ��������Դ�����Ե����ɹ� %><!--#include file="t12sitin.asp"--> <% ElseIf id_table=13 Then '�����������Ԩ������ѡ�ٵ� %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") %> <!--#include file="t13parCurri.asp"--> <% ElseIf id_table=14 Then 'GRD %> <tr><td bgcolor=#b9e9a9> <% 'Response.write numu&"."&orsrpt("table_sum")&"("&orsrpt("table_name")&")" Response.write numu&"."&orsrpt("table_sum") &" [�ҧἹ��������˹��¡Ե����Ѻ�ͺ�ҡ���Ҵ��¹Ф�]" %><!--#include file="t14grd.asp"--> <% End If End If '����ô֧�����Ũҡ���͵��ҧࡳ�� orsrp.movenext numu=numu+1 Loop End if' ���ͧ���͹䢡�è�����֡�� %>