File Manager

<%@ Language=VBScript %>
<%  'Option Explicit

'Response.ContentType = "application/vnd.ms-word"
'Response.AddHeader "Content-Disposition", "attachment; filename = report_progress.doc"
%>

#customers td, #customers th {
  border: 0px solid #ddd;
  padding: 8px;
}

#customers th {
  padding-top: 12px;
  padding-bottom: 12px;
  text-align: left;
  background-color: #4CAF50;
  color: white;
}
</style>

<link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon">

<table width="200%" border="0">

  <tr> 
    
    <td width="77%" align="left" valign="top">
<table width="200%" border="0" cellspacing="0">
    <tr>

<td align="left" valign="top">
<%
date1=datepart("d",date)
			month1=month(now())
			y=year(now())
			y=543+y
y=right(y,2)
			if date1=1 then
							date1="01" 
							elseif date1=2 then
							date1="02"
							elseif date1=3 then
							date1="03"
							elseif date1=4 then
							date1="04"
							elseif date1=5 then
							date1="05"
							elseif date1=6 then
							date1="06"
							elseif date1=7 then
							date1="07"
							elseif date1=8 then
							date1="08"
							elseif date1=9 then
							date1="09"
							end if
		if month1=1 then
							month1="01" 
							elseif month1=2 then
							month1="02"
							elseif month1=3 then
							month1="03"
							elseif month1=4 then
							month1="04"
							elseif month1=5 then
							month1="05"
							elseif month1=6 then
							month1="06"
							elseif month1=7 then
							month1="07"
							elseif month1=8 then
							month1="08"
							elseif month1=9 then
							month1="09"
							end if
			dcheck=y&""&month1&""&date1
'*****************************************************************

<%
id_stug=request("id_sg")

'*****************************************************************
  'if session("tb_preview") =2 or session("id_stu1") = id_stu  then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
 'pern=session("username")
		 ' per="2"
		 ' tb="student"
		 ' sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  'set orsnc=server.createobject("adodb.recordset")
		  'orsnc.open sqlnc,conn,1,3
		  
%>
<br>

<table  border="0" align="center" cellpadding="0" cellspacing="0" width="100%">
            <tr > <td>
             
			  <%

sql_data="select * from student_group where id_stugroup='"&id_stug&"' "
	 set ors_data=server.createobject("adodb.recordset")
	 ors_data.open sql_data,conn,1,3
	 if not ors_data.eof then
%>
            </tr>

                    <h2 class="media-heading text-uppercase">��������´��������˹�� �Ҥ���¹��� <%
			sqlall1="select * from progress_report_thesis where dateend_check>='"&dcheck&"'"
			Set orsall1=server.createobject("adodb.recordset")
			orsall1.open sqlall1,conn,1,3
'Response.write sqlall1
			If Not orsall1.eof Then	
				Response.write orsall1("semeter")&"/"&orsall1("year_edu")
				semeter=orsall1("semeter")
				year_edu=orsall1("year_edu")
			End if
					
					
					
					
					%></h2>
                    
          
<%

id_stugroup=ors_data("id_stugroup")
			  sql_all="select * from student_group where id_stugroup='"&ors_data("id_stugroup")&"' "
		set ors_all=server.createobject("adodb.recordset")
		ors_all.open  sql_all,Conn,1,3
		if not ors_all.eof Then
			ys_semeter=ors_all("id_begin_semeter")
			ys_year_edu=ors_all("id_begin_year")
		'response.write ""
			sql_curri="select * from curriculum where id_curriculum='"&ors_all("id_curriculum")&"'"
			set ors_curri=server.createobject("adodb.recordset")
			ors_curri.open sql_curri,conn,1,3
				if not ors_curri.eof then
					id_curriculum=ors_all("id_curriculum")
				response.write  ors_curri("curriculum_full")&" "
				end If
				id_type_curri=ors_all("id_type_curri")
			sqlt="select * from type_curriculum where id_type_curri='"&ors_all("id_type_curri")&"'"
		   set orst=server.createobject("adodb.recordset")
		   orst.open sqlt,conn,1,3
				if not orst.eof then
				response.write orst("type_curri_th")
				end if
					response.write  "  ���  "&ors_all("no_stugroup")&"&#160;"
					id_major=ors_all("id_major")
				sql_major="select * from major  where id_major='"&id_major&"'"
				set ors_major=server.createobject("adodb.recordset")
					ors_major.open sql_major,conn,1,3
					if not ors_major.eof then
						response.write ors_major("major_th")
					end If
			Response.write " (�ա���֡���á��� "&ors_all("id_begin_year")&")"
		end if
		%></p>  
                 
            </td></tr>
<tr bgcolor=#ffcc66><td width=1%>���<td width=5%>����-ʡ��<td width=23% >���ͻ�ԭ�ҹԾ���<td width=5% >����֡����ѡ<td width=5% >����֡������(�����)<td width=2% >GRD <%=semeter%>/<%=year_edu%> <td width=4% >GRD ����<td width=8% >ʶҹС�÷ӻ�ԭ�ҹԾ���<td width=22%>�ŢͧἹ <%=semeter%>/<%=year_edu%><td align=center width=10%>Ἱ�Ҥ���¹�Ѵ�<td width=10% align=center>������������� ����ͧ��� �ҡ��ѡ�ٵ�

<%'<tr bgcolor=#e5e5e5><td>�Ԩ������ѡ<td>�Ԩ��������	<td>��<td>��������´	<td>�ѭ������ػ��ä<td>�Ԩ������ѡ<td>�Ԩ��������
	sql="select * from student where id_status_edu=1 and id_stugroup='"&id_stugroup&"' order by id_stu"

set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
		if not ors.eof Then
		ors.movefirst
					a=1
			do while not ors.eof
					bg1=a mod 2
					      if bg1=0 then
							bg="#f5f5f5"
							else bg="#ffffff"
						   end if
					response.write "<tr bgcolor="&bg&"><td align=center valign=top>"&a&"."
					'response.write "<td><div align=left>"&ors("id_stu")
					response.write "<td valign=top><div align=left valign=top>"&ors("name_stu")&"  "&ors("sur_stu")
					
'���ͻ�ԭ�ҹԾ��� ���Ҩҡ thesis_plan_activity ��� id_table=11 ��� id_activity_r �����ѹ������з���ش
sql_thesis="select id_stu,id_activity,id_table,id_activity_r from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=11 and id_status= 0 and id_result=1 order by id_activity_r"
Set ors_thesis=server.createobject("adodb.recordset")
ors_thesis.open sql_thesis,conn,1,3
If Not ors_thesis.eof Then
	ors_thesis.movelast
	id_activity=ors_thesis("id_activity")
	'Response.write id_activity
		sql_thesis1="select thesis_name,id_activity,id_status,date_report,advisor_name1,advisor_name2 from rp_thesis_progress where id_activity='"&ors_thesis("id_activity")&"'"
		Set ors_thesis1=server.createobject("adodb.recordset")
		ors_thesis1.open sql_thesis1,conn,1,3
		If Not ors_thesis1.eof Then
			Response.write "<td valign=top>"
			Response.write ors_thesis1("thesis_name")
			Response.write "<td valign=top>"
			Response.write ors_thesis1("advisor_name1")
			Response.write "<td valign=top>"
			Response.write ors_thesis1("advisor_name2")
		End If 'ors_thesis1
		
End If 'ors_thesis
'GRD ����Ѩ�غѹ
Response.write "<td valign=top align=left>"
sql_grdn="select id_stu,id_activity,id_table,id_activity_r from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=14 and id_progress_report="&orsall1("id_progress_report")&""
Set ors_grdn=server.createobject("adodb.recordset")
ors_grdn.open sql_grdn,conn,1,3

If Not ors_grdn.eof Then
	
		Response.write "ŧ����¹"'&ors_grdn("id_activity")
		sql_grd3="select * from rp_grd where id_report='"&ors_grdn("id_activity")&"'"
		Set ors_grd3=server.createobject("adodb.recordset")
		ors_grd3.open sql_grd3,conn,1,3
		If Not ors_grd3.eof Then
			sql_grd4="select * from rp_grd_grade where id_grade='"&ors_grd3("id_grade")&"'"
			Set ors_grd4=server.createobject("adodb.recordset")
			ors_grd4.open sql_grd4,conn,1,3
			If Not ors_grd4.eof Then
			'Response.write sql_grdn
			Response.write "("&ors_grd4("grade_name")&")"
			
			
			End If
		Else 
			Response.write "(-)"'&ors_grdn("id_activity")	
		End If 'ors_grd1

End if

'GRD ����
sql_grd="select id_stu,id_activity,id_table,id_activity_r from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=14 and id_result=1 and id_status=0"
Set ors_grd=server.createobject("adodb.recordset")
ors_grd.open sql_grd,conn,1,3
gradsum=0
If Not ors_grd.eof Then
	ors_grd.movefirst
	Do While Not ors_grd.eof
	id_activity=ors_grd("id_activity")
	'Response.write id_activity
		sql_grd1="select * from rp_grd where id_report='"&ors_grd("id_activity")&"'"
		Set ors_grd1=server.createobject("adodb.recordset")
		ors_grd1.open sql_grd1,conn,1,3
		If Not ors_grd1.eof Then
			sql_grd2="select * from rp_grd_grade where id_grade='"&ors_grd1("id_grade")&"'"
			Set ors_grd2=server.createobject("adodb.recordset")
			ors_grd2.open sql_grd2,conn,1,3
			If Not ors_grd2.eof Then
			gradsum=ors_grd2("grade_name")+gradsum
			
			
			End If
			
		End If 'ors_grd1
	ors_grd.movenext
	Loop 'ors_grd
	Response.write "<td valign=top align=center>"
	Response.write gradsum
End if

'��ԭ�ҹԾ�����������������
Response.write "<td valign=top>"
sql_ar="select * from rp_activity_relate where id_table=11 and id_status= 1 order by id_order"
Set ors_ar=server.createobject("adodb.recordset")
ors_ar.open sql_ar,conn,1,3
If Not ors_ar.eof Then
	ors_ar.movefirst
	Do While Not ors_ar.eof
	sql_thesis="select id_stu,id_activity,id_table,id_activity_r,id_progress_report from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and id_table=11 and id_result=1 and id_activity_r='"&ors_ar("id_activity_r")&"' order by id_progress_report"
	Set ors_thesis=server.createobject("adodb.recordset")
	ors_thesis.open sql_thesis,conn,1,3
	If Not ors_thesis.eof Then
	ors_thesis.movelast
	id_activity=ors_thesis("id_activity")
	'Response.write id_activity
		'sql_thesis1="select thesis_name,id_activity,id_status,date_report,advisor_name1,advisor_name2 from rp_thesis_progress where id_activity='"&ors_thesis("id_activity")&"'"
		'Set ors_thesis1=server.createobject("adodb.recordset")
		'ors_thesis1.open sql_thesis1,conn,1,3
		'If Not ors_thesis1.eof Then
			
			Response.write "-"&ors_ar("activity_name")&"<br>"
			'Response.write "<td valign=top>"
			'Response.write ors_thesis1("advisor_name1")
			'Response.write "<td valign=top>"
			'Response.write ors_thesis1("advisor_name2")
		'End If 'ors_thesis1
		
End If
ors_ar.movenext
loop
End If 'ors_ar
'///��ԭ�ҹԾ��������������������
'�������ҹ�ҷ�������� + �ѭ������ػ��ä
Response.write "<td align=left valign=top>"
Response.write "<table width='100%'>"
sqlt="select * from rp_table where id_status=1 order by id_order"
Set orst=server.createobject("adodb.recordset")
orst.open sqlt,conn,1,3
	If Not orst.eof Then
	Response.write "<tr bgcolor=#ffffcc><td width='20%' valign=top>�Ԩ������ѡ<td width='20%' valign=top>�Ԩ��������<td width='20%'valign=top>��<td width='20%'valign=top>��������´<td width='20%'valign=top>�ѭ������ػ��ä"
	orst.movefirst
	Do While Not orst.eof
		'Response.write sqlt&""&orst("id_order")&"<br>"
	'Response.write "<tr><td colspan=5>"&orst("table_sum")&"<br>"

sqltpa="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and status_del=1 and id_table = '"&orst("id_table")&"' order by id_activity_r"
		Set orstpa=server.createobject("adodb.recordset")
		orstpa.open sqltpa,conn,1,3
		If Not orstpa.eof Then

aa=1	
		id_progress_report=orstpa("id_progress_report")
			orstpa.movefirst
			Do While Not orstpa.eof 
			'Response.write sqltpa&"<br>"

sqlprt="select * from progress_report_thesis where semeter='"&semeter&"' and year_edu='"&year_edu&"' and id_progress_report='"&orstpa("id_progress_report")&"'"
			Set orsprt=server.createobject("adodb.recordset")
			orsprt.open sqlprt,conn,1,3
			
			if not orsprt.eof Then
					
						orsprt.movefirst
						
							Do while Not orsprt.eof
							'Response.write "<tr><td>"&aa&"."
							Response.write "<tr >"
							aa=aa+1
							'Response.write sqlprt&"<br>"
							'Response.write "����relate"&orstpa("id_activity")
							'Response.write "<td>"&orstpa("id_activity")
								sqlrar="select * from rp_activity_relate where id_activity_r='"&orstpa("id_activity_r")&"' and id_status=1"
								Set orsrar=server.createobject("adodb.recordset")
								orsrar.open sqlrar,conn,1,3
								If Not orsrar.eof Then
								    Response.write "<td valign=top>-"&orst("table_sum")
									Response.write "<td valign=top>"&orsrar("activity_name")
										If orst("id_table")=14 Then '�����ӹǹ˹��¡Ե
											sqlrpt1="select * from rp_grd where id_report='"&orstpa("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 " ("&orsrpt2("grade_name")&" ˹��¡Ե)"
													End if
											End if
										ElseIf orst("id_table")=12 Then '������Ԫ� sit in
											
												Response.write "<td valign=top>"&orstpa("activity_name")
											
										End If

'Response.write "</td>"
										'�š�ô��Թ�ҹ
										If orstpa("id_status")="0" then
										sqlres="select * from rp_result2 where id_result='"&orstpa("id_result")&"'"
										Set orsres=server.createobject("adodb.recordset")
										orsres.open sqlres,conn,1,3
											If Not orsres.eof Then
												id_activity=orstpa("id_activity")

Response.write "<td valign=top>"&orsres("result_name")
												Response.write "<td valign=top>"&orstpa("activity_result")
												Response.write "<td valign=top>"&orstpa("activity_problem")

End If
										Else
												'Response.write "<td><td>"
										End if
										'�š�ô��Թ�ҹ

End If
								'Response.write "<br>"
						orsprt.movenext
						loop
					
				End If
				
		orstpa.movenext
		loop
		End If
	orst.movenext
	loop
	End If
Response.write "</tr></table>"
'//�������������觻ѭ������ػ��ä�����ҧ��

'����Ѵ价��������
If semeter=1 Then
			semeter1=semeter+1
			ElseIf semeter= 2 Then
			semeter1=1
			year_edu1=year_edu+1
			End if
Response.write "<td align=left valign=top>"
Response.write "<table width='100%'>"
sqlt="select * from rp_table where id_status=1 order by id_order"
Set orst=server.createobject("adodb.recordset")
orst.open sqlt,conn,1,3
	If Not orst.eof Then
	Response.write "<tr bgcolor=#ffff00><td width='50%' valign=top>�Ԩ������ѡ<td width='50%' valign=top>�Ԩ��������"
	orst.movefirst
	Do While Not orst.eof
		sqltpa="select * from thesis_plan_activity where id_stu='"&ors("id_stu")&"' and status_del=1 and id_table = '"&orst("id_table")&"' order by id_activity_r"
		Set orstpa=server.createobject("adodb.recordset")
		orstpa.open sqltpa,conn,1,3
		If Not orstpa.eof Then

aa=1	
		id_progress_report=orstpa("id_progress_report")
			orstpa.movefirst
			Do While Not orstpa.eof 
			'Response.write sqltpa&"<br>"
			
			sqlprt="select * from progress_report_thesis where semeter='"&semeter1&"' and year_edu='"&year_edu1&"' and id_progress_report='"&orstpa("id_progress_report")&"'"
			Set orsprt=server.createobject("adodb.recordset")
			orsprt.open sqlprt,conn,1,3
			'Response.write sqlprt&"<br>"
			if not orsprt.eof Then
					
						orsprt.movefirst
						
							Do while Not orsprt.eof
							'Response.write "<tr><td>"&aa&"."
							Response.write "<tr >"
							aa=aa+1
							'Response.write sqlprt&"<br>"
							'Response.write "����relate"&orstpa("id_activity")
							'Response.write "<td>"&orstpa("id_activity")
								sqlrar="select * from rp_activity_relate where id_activity_r='"&orstpa("id_activity_r")&"' and id_status=1"
								Set orsrar=server.createobject("adodb.recordset")
								orsrar.open sqlrar,conn,1,3
								If Not orsrar.eof Then
								    Response.write "<td valign=top width='50%'>-"&orst("table_sum")
									Response.write "<td valign=top>"&orsrar("activity_name")
								
								End If 'ors_rar
								
						'Response.write "<br>"
						orsprt.movenext
						loop
				
				End If
				
		orstpa.movenext
		loop
		End If
	orst.movenext
	loop
	End If
Response.write "</table>"
'//����Ѵ价��������

a=a+1
			ors.movenext
			loop

End If 'if ors.eof
%>

</table>

<%'
end if
%>
    
      </td>
    
	</tr>
           </table>
		     <%	'else '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է�
	'end if '���Է�
%>

</td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th 
      tel.02-649-5000 ext 17600</td>
  </tr>
</table>

File Manager

Editing: rp_thesis_progress_individual_sem2in.asp.bak