Editing: t14grd.asp

<tr><td> <div class="table-responsive"> <table class="table table-striped table-bordered"> <tr align=center><td width=35%>�Ԩ����<td width=12%>�������ҷ���<td width=21%>ʶҹ�<td width=11%>�ѹ�����§ҹ<td width=11%>���<td width=10%>��§ҹ��/��������´ <% sqlrp1="select * from rp_activity_relate where id_table='14' and id_status='1' order by id_activity_r " 'sqlrp1="select * from rp_thesis_progress where id_activity='"&id_activity&"' " '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 t1=1 orsrp1.movefirst checky=ys_year_edu '��˹��ա���֡��������� do while not orsrp1.eof Response.write "<tr><td width=280><p style=margin-left: 40px>"&t1&". "&orsrp1("activity_name") checky1=ys_year_edu-1 If orsrp1("curri_r_s")>0 Then '�óշ����Ե����֡�ҵ����� 2 'Response.write "<tr><td>"&orsrp1("curri_r_y") If ys_semeter=2 Then 'checky=ys_year_edu 'Response.write "<tr><td>"&ys_year_edu If orsrp1("curri_r_s")=2 Then suggest_semeter="1" ys_year_edu1=ys_year_edu+orsrp1("curri_r_y") 'Response.write "s2+"&ys_year_edu ElseIf orsrp1("curri_r_s")=1 Then suggest_semeter="2" ys_year_edu1=ys_year_edu+orsrp1("curri_r_y")-1 ElseIf orsrp1("curri_r_s")=3 Then suggest_semeter="2" ys_year_edu1=ys_year_edu+orsrp1("curri_r_y") End If Response.write "<td align=center>"&suggest_semeter&"/"&ys_year_edu1 ys_year_edu1=0 Else checky=ys_year_edu-1 checky=checky+orsrp1("curri_r_y") Response.write "<td align=center>"&orsrp1("curri_r_s")&"/"&checky End if Else Response.write "<td>" checky=0 End if sql_ac_r="select * from thesis_plan_activity where id_stu='"&id_stu&"' and id_activity_r='"&orsrp1("id_activity_r")&"' and id_table='14'" Set ors_ac_r=server.createobject("adodb.recordset") ors_ac_r.open sql_ac_r,conn,1,3 If Not ors_ac_r.eof Then 'Response.write "<tr><td width=280>"&t1&". "&orsrp1("activity_name") sqlrpt1="select * from rp_grd where id_report='"&ors_ac_r("id_activity")&"' " Set orsrpt1=server.createobject("adodb.recordset") orsrpt1.open sqlrpt1,conn,1,3 If Not orsrpt1.eof Then sqlrpt2="select * from rp_grd_grade where id_grade='"&orsrpt1("id_grade")&"' " Set orsrpt2=server.createobject("adodb.recordset") orsrpt2.open sqlrpt2,conn,1,3 If Not orsrpt2.eof Then Response.write "<br> ("&orsrpt2("grade_name")&" ˹��¡Ե)" 'Else Response.write "<td>" End if 'Response.write " ��§ҹ����� "&ors_ac_r("date_stu_confirm")&"</td>" 'Else Response.write "<td>" End if ors_ac_r.movefirst a=1 Do While Not ors_ac_r.eof If a>1 Then Response.write "<tr><td><td>" End if %> <!--#include file="rp_fech_semeter.asp"--> <% If ors_ac_r("id_status")="0" then sqlres="select * from rp_result2 where id_result='"&ors_ac_r("id_result")&"'" Set orsres=server.createobject("adodb.recordset") orsres.open sqlres,conn,1,3 If Not orsres.eof Then id_activity=ors_ac_r("id_activity") 'Response.write "<td width=180>"&orsres("result_name")&""&ors_ac_r("id_activity")&"</td>" Response.write "<td width=150 align=center>"&orsres("result_name")&"<br>"&semetery&"/"&yeary '5��Ǩ�ͺ��� �ա�����ҧἹ��������ѧ����׹�ѹ����� If ors_ac_r("id_result")="0" Then '�������� '������ա�����ҧἹ������� id_status=1 �ѧ����׹�ѹ����� �����ѹ�������� sqlb="select * from thesis_plan_activity where id_stu='"&id_stu&"' and id_activity_r='"&orsrp1("id_activity_r")&"' and id_table='14' and status_del='1' and id_result='2'" Set orsb=server.createobject("adodb.recordset") orsb.open sqlb,conn,1,3 If orsb.eof Then '��͡�����ҧ���� ���ҧἹ ��������ա�����ҧἹ���� sqlb1="select * from thesis_plan_activity where id_stu='"&id_stu&"' and id_activity_r='"&orsrp1("id_activity_r")&"' and id_table='14' and status_del='1' and id_result='1'" '�� ������������ҧ���Թ��� Set orsb1=server.createobject("adodb.recordset") orsb1.open sqlb1,conn,1,3 If orsb1.eof then If id_type<>"teacher" then 'Response.write "<td colspan=4 align=center>" %> <form name="form4" method="post" action="add_thesis_progress_student_form.asp"> <input type="hidden" name="id" value=<%=id_thesis%>> <input type="hidden" name="id_activity_r" value=<%=orsrp1("id_activity_r")%>> <input type="hidden" name="id_table" value=<%=orsrp1("id_table")%>> <div class="form-group"> <button type="submit" class="templatemo-blue-button">���ҧἹ����</button> </div> </form><% End if End if End if End If response.write "</td>" '�Դ��÷Ѵ�����ʶҹС�÷�Ἱ������¹ '5����Ǩ�ͺ��� �ա�����ҧἹ��������ѧ����׹�ѹ����� Response.write "<td width=280>" sqlrpt="select * from rp_grd where id_report='"&ors_ac_r("id_activity")&"' " Set orsrpt=server.createobject("adodb.recordset") orsrpt.open sqlrpt,conn,1,3 If Not orsrpt.eof Then Response.write ors_ac_r("date_stu_confirm")&"</td>" 'Else Response.write "<td>" End if %><td> <!--#include file="detail_stu_evidence.asp"--> <% 't1=t1+1 End If Else 'Response.write "<td>���������ҧ���Թ���"&ors_ac_r("id_activity")&"<td></td><td></td>" Response.write "<td align=center bgcolor=#ccff99>Planned<br>"&semetery&"/"&yeary&"<td><td></td>" End If %><td width=80> <form name="form12" method="post" action="report_thesis_progress_student_form.asp"> <input type="hidden" name="id_activity" value=<%=ors_ac_r("id_activity")%>> <input type="hidden" name="id_stu" value=<%=id_stu%>> <div class="col-xs-12"> <button class="btn-oth" type="submit" role="button" style="margin-right:20px;">View</button></div> </form></td> <% Response.write "</tr>" a=a+1 ors_ac_r.movenext 'Response.write "<tr><td>" loop Else '����ѧ������ҧἹ����������� If id_type<>"teacher" then Response.write "<td align=center>" %> <form name="form3" method="post" action="add_thesis_progress_student_form.asp"> <input type="hidden" name="id" value=<%=id_thesis%>> <input type="hidden" name="id_activity_r" value=<%=orsrp1("id_activity_r")%>> <input type="hidden" name="id_table" value=<%=orsrp1("id_table")%>> <div class="form-group"> <button type="submit" class="templatemo-blue-button">���ҧἹ</button> </div> </form><% End If End if Response.write "</p>" t1=t1+1 orsrp1.movenext Loop Else Response.write "No Data" End if %> </table> </div>