File Manager

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<title>�к����ʹ�����͡�ú�����</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<link href="bsri2006.css" rel="stylesheet" type="text/css">
<link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0">
  <tr> 
    <td colspan="2"><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif"><div align="right"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>| 
        <a href="http://www.swu.ac.th" target=_blank>SWU</a> | <a href="http://bsri.swu.ac.th" target=_blank>BSRI</a> 
        |<a href="chaPW.asp"><strong>Change 
        Password</strong></a>|<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    <td width="20%" align="left" valign="top" bgcolor="#FFCCCC"></td>
    <td width="77%" align="left" valign="top">
	<table  border="0" cellspacing="0" align=center width=100%>

<%
'*****************************************************************

session("tb_name")="course"
%>

<%
'*****************************************************************
 ' if session("tb_preview") <> 1 or session("tb_edit")=2 then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

pern=session("username")
		  per="2"
		  tb="course"
		  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
				'if not orsnc.eof then
		  
%>
	<tr><td colspan=7><strong><div align=center><br><br>�����š��ŧ����¹���Ե<br><br>
	<tr><td colspan=7>
	<%
	id_stu=request("id")
	 if id_stu="" then
			  id_stu=session("id_stu1")
			  end if
	sqls="select * from student where id_stu='"&id_stu&"'"
	set orss=server.createobject("adodb.recordset")
	orss.open sqls,conn,1,3
				if not orss.eof then
					response.write orss("id_stu")&"<strong> [<a href=detail_stu.asp?id_stu="&orss("id_stu")&">"&orss("name_stu")&" "&orss("sur_stu")&"</a>]</strong> "

set ors4=server.createobject("adodb.recordset")
									 sql4="select * from student_group where id_stugroup='"&orss("id_stugroup")&"'"
									 ors4.open sql4,Conn,1,3
									 if not ors4.eof then

sqlc="select * from curriculum where id_curriculum='"&ors4("id_curriculum")&"'"
									set orsc=server.createobject("adodb.recordset")
									orsc.open sqlc,conn,1,3
									if not orsc.eof then
										   sqlt="select * from type_curriculum where id_type_curri='"&ors4("id_type_curri")&"'"
										   set orst=server.createobject("adodb.recordset")
										   orst.open sqlt,conn,1,3
										   if not orst.eof then
										   'response.write ors4("id_stugroup")
									%>

<%  =orsc("curriculum_sum")%>   <%=orst("type_curri_th")%> ��� <%=ors4("no_stugroup")%>
										<%
										end if
								end if
								end if
								if not orsnc.eof then
'response.write "  [<a href=add_thesis_stu_form.asp?id_stu="&orss("id_stu")&"><strong>������ԭ�ҹԾ���</a>]<br><br>"
end if
'��Ǩ�ͺ����繹��Ե����ѧ���¹��診 �������Ңͧ������
if id_stu=orss("id_stu") then 
  if orss("id_status_edu")=1 then
'response.write "  [<a href=add_thesis_stu_form.asp?id_stu="&orss("id_stu")&"><strong>������ԭ�ҹԾ���</a>]<br><br>"
end if
end if
'response.write id_stu&"aa"
%>

<tr> 
                                <td colspan="8" bgcolor="#e0a8fd"><div align="left"><strong>����֡���Ԫҡ��</div></td>
                              </tr>
                            
							  <%
							  sqla="select * from advisor_student where id_stugroup='"&orss("id_stugroup")&"'"
							  set orsa=server.createobject("adodb.recordset")
							  orsa.open sqla,conn,1,3
							  
							  if not orsa.eof then
							 idn=0
							 orsa.movefirst
							   
							  do while not orsa.eof
							 ' response.write "<tr bgcolor=#F9F2FF><td>"&orsa("id_num")
							 
												  sqll="select * from lecturer where id_lecturer='"&orsa("id_lecturer")&"' "
												  set orsl=server.createobject("adodb.recordset")
												  orsl.open sqll,conn,1,3
												  if not orsl.eof then
														response.write "<tr><td>"&orsl("name_lec")&"  "&orsl("sur_lec")&"  "&orsa("id_year")
														
												  end if
								response.write "</tr>"
								'idn=orsa("id_num")
							  orsa.movenext
							  loop
							  else
							  response.write "<tr><td colspan=3>No Advisor</tr>"
							  idn=0
							  end if
'							  response.write "<tr><td>a<td>a"
							  %>

</table><br>
<table border="0" cellspacing="0" align=center width=100%>
<%
'/////////////////
if id_stu=orss("id_stu") then 
  if 1=orss("id_status_edu") then
chk_stu_edit=1
end if
end if
'///////////////////
response.write "<tr><td colspan=3>���ŧ����¹"
if orss("id_status_edu")=1 then
response.write "[<a href=course_open.asp?id="&id_stu&">����Ԫҷ����ѧ�Դ�͹</a>]"
end if
response.write "</td><td ></td>"
							response.write "<tr  align=center><td  bgcolor=#BDACBB><strong>���Ѻ </strong><td "&orss("id_stugroup")&" bgcolor=#EE7BD7 colspan=3><strong>ŧ����¹��ԧ"
							response.write "<tr bgcolor=#F7C1EC align=center><td width='80%' bgcolor=#E2DCE1>����Ԫ�<td width='10%'>�ա���֡��<td width='10%'>�š�����¹"
sqlpe="select * from plan_edu where id_stugroup="&orss("id_stugroup")&""
set orspe=server.createobject("adodb.recordset")
orspe.open sqlpe,conn,1,3
a=1
	if not orspe.eof then

orspe.movefirst 
		do while not orspe.eof
		b=a mod 2
if b=0 then
bg2="#E6E6E6"
else bg2="#FCFCFC"
end if	
	a=a+1	
			sqlco="select * from course where id_course='"&orspe("id_course")&"'"
			set orsco=server.createobject("adodb.recordset")
			orsco.open sqlco,conn,1,3
			if not orsco.eof then
				response.write "<tr bgcolor="&bg2&" ><td>"&orsco("id_course_th")&" "&orsco("course_th")
			end if
				sqlt="select * from course_regis where id_student='"&id_stu&"' and id_course='"&orspe("id_course")&"'"
				set orst=server.createobject("adodb.recordset")
				orst.open sqlt,conn,1,3
				
				if not orst.eof then

orst.movefirst
					do while not orst.eof 
					
						sqlse="select * from course_schedule where id_schedule='"&orst("id_schedule")&"'"
						set orsse=server.createobject("adodb.recordset")
						orsse.open sqlse,conn,1,3
							response.write "<td>"
							if not orsse.eof then
							response.write orsse("id_academic_semeter")&"/"&orsse("id_academic_year")
							end if
						sqlc="select * from course where id_course='"&orst("id_course")&"'"
						set orsc=server.createobject("adodb.recordset")
						orsc.open sqlc,conn,1,3
								if not orsc.eof then
											sql_g="select * from grade where id_grade='"&orst("grade")&"'"
											set ors_g=server.createobject("adodb.recordset")
											ors_g.open sql_g,conn,1,3
											if not ors_g.eof then
					response.write "<td>"&ors_g("ngrade")
											end if
								end if
					
				orst.movenext
							loop
				else 
				response.write "<td colspan=2>-"
				end if
				orspe.movenext
loop
else
response.write "<tr><td>No Educate Plan"
	end if
'����Ԫҷ�����¹������������Ѻ
response.write "<tr bgcolor=#C0C0C0><td colspan=3 align=center>�Ԫ����͡ 2 �Ԫ� 6 ˹��¡Ե"
				sqlt8="select * from course_regis where id_student='"&id_stu&"'"
				set orst8=server.createobject("adodb.recordset")
				orst8.open sqlt8,conn,1,3
				
				if not orst8.eof then

orst8.movefirst
					do while not orst8.eof 
					       sqlpe8="select * from plan_edu where id_stugroup="&orss("id_stugroup")&" and id_course='"&orst8("id_course")&"'"
							set orspe8=server.createobject("adodb.recordset")
							orspe8.open sqlpe8,conn,1,3
							a=1
							if orspe8.eof then
						sqlse8="select * from course where id_course='"&orst8("id_course")&"'"
						set orsse8=server.createobject("adodb.recordset")
						orsse8.open sqlse8,conn,1,3

response.write "<tr >"
							response.write "<td >"&orsse8("id_course_th")&" "&orsse8("course_th")&" "&orsse8("credit")
							sql9="select * from course_category where id_course='"&orsse8("id_course")&"'"
							set ors9=server.createobject("adodb.recordset")
							ors9.open sql9,conn,1,3
							if not ors9.eof then
									id_category=ors9("id_category")
									sql10="select * from category_course where id_category='"&ors9("id_category")&"'"
									set ors10=server.createobject("adodb.recordset")
									ors10.open sql10,conn,1,3
									if not ors10.eof then
											response.write "-"&ors10("category")
									end if
							end if
						sqlc8="select * from course_schedule where id_schedule='"&orst8("id_schedule")&"'"
						set orsc8=server.createobject("adodb.recordset")
						orsc8.open sqlc8,conn,1,3
								if not orsc8.eof then
									
									response.write "<td>"&orsc8("id_academic_semeter")&"/"&orsc8("id_academic_year")
								end if
								
								sqlgrade="select * from course_regis where id_student='"&id_stu&"' and id_course='"&orst8("id_course")&"'"
								set orsgrade=server.createobject("adodb.recordset")
								orsgrade.open sqlgrade,conn,1,3
								if not orsgrade.eof then
											sql_g="select * from grade where id_grade='"&orsgrade("grade")&"'"
											set ors_g=server.createobject("adodb.recordset")
											ors_g.open sql_g,conn,1,3
											if not ors_g.eof then
					response.write "<td>"&ors_g("ngrade")
											end if
								end if
								end if
				orst8.movenext
							loop
				else 
				'response.write "<td colspan=2>-"
				end if

'������Ԫҷ�����¹������������Ѻ

'��иҹ�Ǻ����ի��
			%>
			<%

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

%>
</table>	
	
	
	</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>
</body>
</html>

File Manager

Editing: register_sche_indi.asp.bak