Editing: t11detail_stu.asp.bak

<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%>��§ҹ��/��������´ <% checky=ys_year_edu '��˹��ա���֡��������� 'Response.write "<tr><td>"&ys_year_edu&"bbb"&checky sqlrp1="select * from rp_activity_relate where id_table='11' and id_status='1' order by id_order,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 orsrp1.movefirst t1=1 do while not orsrp1.eof Response.write "<tr><td width=250>"&t1&". "&orsrp1("activity_name")&"</td>" 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="1" 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='11' and status_del='1' order by id_activity asc" 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 ors_ac_r.movefirst a=1 Do While Not ors_ac_r.eof If a>1 Then Response.write "<tr><td width=250><td>" End If %> <!--#include file="rp_fech_semeter.asp"--> <% 'Response.write "<td colspan=3>" 'Response.write "<table><tr><td>" 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>"&orsres("result_name")&""&ors_ac_r("id_activity")&"</td>" 'Response.write "<td width=150 align=center>" b1=curri_r_y+ys_year_edu b1=b1-1 b=b1&""&curri_r_s '�Ҵ��ѧ a=yeary&""&semetery '���Ե��§ҹ c=curri_r_y2+ys_year_edu-1&""&curri_r_s2 '��͹�ѹ d= ys_year_edu&""&ys_semeter'����Ѩ�غѹ 'response.write "<br>"&b&"b-<br>"&a&"a-<br>"&c&"c-<br>"&d 'If b>=a Then 'Response.write "<td width=150 align=center bgcolor=#66cc00>green" 'elseif c<=a then 'Response.write "<td width=150 align=center bgcolor=#ffff00>yello" 'elseif c>a then 'Response.write "<td width=150 align=center bgcolor=#cc0000>red" 'Else Response.Write "<td bgcolor=#cc0000>" 'end if Response.Write "<td align=center>" 'Call checka(b,a,c,d) Response.write 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='11' 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='11' 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 "bb" '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����Ǩ�ͺ��� �ա�����ҧἹ��������ѧ����׹�ѹ����� sqlrpt="select * from rp_thesis_progress where id_activity='"&ors_ac_r("id_activity")&"'" Set orsrpt=server.createobject("adodb.recordset") orsrpt.open sqlrpt,conn,1,3 If Not orsrpt.eof Then Response.write "<td>" 'Response.write " ��§ҹ����� "&ors_ac_r("date_stu_confirm")&"</td>" Response.write ors_ac_r("date_stu_confirm")&"</td>" 'Else Response.write "<td>" End if %><td> <!--#include file="detail_stu_evidence.asp"--> </td> <% End If 'Else Response.write "<td>Planed"&ors_ac_r("id_activity")&"<br>"&semetery&"/"&yeary&"<td></td><td></td>" Else '�ѧ����׹�ѹ����觼š�����¹ �����Ἱ������¹���� Response.write "<td align=center bgcolor=#ccff99>�ҧἹ����<br>"&semetery&"/"&yeary&"<td></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"> <% '�֧�ѹ������Ѻ�ѹ�������§ҹ������������������§ҹ�� sql_daterange="select * from progress_report_thesis where id_progress_report='"&ors_ac_r("id_progress_report")&"'" Set ors_daterange=server.createobject("adodb.recordset") ors_daterange.open sql_daterange,conn,1,3 If Not ors_ac_r.eof Then date_plan_end=ors_daterange("date_plan_end") datebegin=ors_daterange("datebegin") dateend=ors_daterange("dateend") End if '�֧�ѹ������Ѻ�ѹ�������§ҹ 'Response.write dcheck&"/"&datebegin&"/"&dateend If dcheck>=date_plan_end then If dcheck>=datebegin And dcheck<=dateend then%> <button class="btn-oth" type="submit" role="button" style="margin-right:20px;">View</button> <% else 'ElseIf dcheck>=date_plan_end then %> <button class="btn-oth" type="submit" role="button" style="margin-right:20px;" >��§ҹ��</button> <% End If End if %> </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>