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 width="100%" border="0" cellspacing="0">
<%

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

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

</td>
  </tr>
  <tr>

<td width="892" align="left" valign="top"><div align="center">
	<%if session("tb_edit")=2 then%>[ <a href="add_curri_form.asp">+������ѡ�ٵ�+</a>]
	<%end if%><br><strong>��͡��������´Ἱ������¹<br><br>
	
  <table align=center>
    <td width="143"><tr> 
    <%

id_curriculum_manage=request("id_curriculum_manage")
'detail_studyplan=request.form("detail_studyplan")
id_category=request("id_category")
session("id_category")=id_category
'response.write id_curriculum_manage&"---"&detail_studyplan&"----"&id_category

%>
    <table border=0>
      <%
sql_data="select * from study_plan where id_curriculum_manage='"&id_curriculum_manage&"' and id_category='"&id_category&"'"
	 set ors_data=server.createobject("adodb.recordset")
	 ors_data.open sql_data,conn,1,3

if  not ors_data.eof  then
'�բ���������
'�ʴ���������´��ѡ�ٵè��
sqlall="select * from curriculum_manage where id_curriculum_manage='"&id_curriculum_manage&"'"
set orsall=server.createobject("adodb.recordset")
orsall.open sqlall,conn,1,3
id_curriculum=orsall("id_curriculum")

sql_o_po="select * from curriculum where id_curriculum='"&id_curriculum&"'"

set ors_o_po=server.createobject("adodb.recordset")
	  ors_o_po.open sql_o_po,conn,1,3
response.write "<tr><td colspan=4><strong>"&id_curriculum_manage&"�дѺ"&ors_o_po("curriculum_full")&""

response.write "  Ẻ  ["
id_type_curr=orsall("id_type_curri")

set ors_tc=server.createobject("adodb.recordset")
	 sqlmark_tc="select * from type_curriculum where id_type_curri='"&id_type_curr&"'"
	 ors_tc.open sqlmark_tc,Conn,1,3

response.write ors_tc("type_curri_th")&"]"
		id_edu_bg=orsall("id_edu_bg")
		
     sql_pre="select * from education_bg where id_edu_bg='"&id_edu_bg&"'"
	  set ors_pre=server.createobject("adodb.recordset")
	  ors_pre.open sql_pre,conn,1,3		
response.write "�زԡ���֡��  ["&ors_pre("edu_th_full")	
id_major=orsall("id_major")
     sql_sta="select * from major where id_major='"&id_major&"'"
	  set ors_sta=server.createobject("adodb.recordset")
	  ors_sta.open sql_sta,conn,1,3
response.write "  ]  �Ң�  ["&ors_sta("major_th")&"]</td></tr>"
'����ش����ʴ���������´��ѡ�ٵ�
'������鹡���ʴ���Ǵ��л�����
sql_a="select * from category_course where id_category='"&id_category&"'"
set ors_a=server.createobject("adodb.recordset")
ors_a.open sql_a,conn,1,3
if not ors_a.eof then
ors_a.movefirst
do while not ors_a.eof
response.write "<tr><td colspan=4>-"&ors_a("category_group")&""&ors_a("category_group_name")&"   �Ԫ�"&ors_a("category")&"  "
ors_a.movenext
loop

else
response.write "<tr><td>No Course</td></tr>"
end if
response.write "��͸Ժ��["&ors_data("detail_studyplan")&"] [<a href=edit_detail_sp.asp?id_curriculum_manage="&id_curriculum_manage&"&id_category="&id_category&">�����������´</a>]</td></tr>"
'����ش����ʴ���Ǵ��л�����
				'response.write "<tr><td colspan=4>������Ǵ��л�����["&id_category&"]��͸Ժ��["&ors_data("detail_studyplan")&"]</td></tr>"

sql_in="select * from study_plan2 where id_curriculum_manage='"&id_curriculum_manage&"' "
				set ors_in=server.createobject("adodb.recordset")
				ors_in.open sql_in,conn,1,3
								if not ors_in.eof then
								ors_in.movefirst
								do while not ors_in.eof 
								'�������Ԫҷ���� � sp2 �������� ��Ǵ��л�������� �͡�����
										 'response.write "<tr><td>"&ors_in("id_course_eng")&"111</td></tr>"
										 sql_co="select * from course_category where id_course='"&ors_in("id_course")&"' and id_category='"&id_category&"'"
										 set ors_co=server.createobject("adodb.recordset")
										 ors_co.open sql_co,conn,1,3
													if not ors_co.eof then
																		sql_se="select * from course where id_course='"&ors_co("id_course")&"'"
																		set ors_se=server.createobject("adodb.recordset")
																		ors_se.open sql_se,conn,1,3
																		    if not ors_se.eof then
																					response.write "<tr><td>"&ors_se("id_course_th")&"   ("&ors_se("id_course_eng")&")</td>"
																					response.write "<td >"&ors_se("course_th")&"</td>"
																					response.write "<td >"&ors_se("credit")&"</td><td>[<a href=del_course_sp.asp?id_curriculum_manage="&id_curriculum_manage&"&id_course_eng="&ors_in("id_course_eng")&"&id_category="&id_category&">ź</a>]</td></tr>"
																			end if
															
													end if
									ors_in.movenext
									loop
									end if
			'	if session("tb_edit")=2 then
							response.write "<tr><td colspan=4 align=center><strong><br>��س����͡����Ԫ�<br></td></tr>"

sql_all="select * from course_category where id_category='"&id_category&"'"
											set ors_all=server.createobject("adodb.recordset")
											ors_all.open sql_all,conn,1,3
									if not ors_all.eof then
									ors_all.movefirst
									do while not ors_all.eof
											sql_a="select * from study_plan2 where id_course='"&ors_all("id_course")&"'and id_curriculum_manage='"&id_curriculum_manage&"' "
											set ors_a=server.createobject("adodb.recordset")
											ors_a.open sql_a,conn,1,3
														if  ors_a.eof then
																		sql_se="select * from course where id_course='"&ors_all("id_course")&"'"
																		set ors_se=server.createobject("adodb.recordset")
																		ors_se.open sql_se,conn,1,3
																		    if not ors_se.eof then
																					response.write "<tr><td>"&ors_se("id_course_th")&"   ("&ors_se("id_course_eng")&")</td>"
																					response.write "<td >"&ors_se("course_th")&"</td>"
																					response.write "<td >"&ors_se("credit")&"</td><td >[<a href=add_choose_course_sp.asp?id_course_eng="&ors_se("id_course_eng")&"&id_curriculum_manage="&id_curriculum_manage&"&id_category="&id_category&">��������Ԫ�</a>]</td></tr>"
																			end if
														'response.write "<tr><td colspan=2>No Choose</td></tr>"
													end if
											ors_all.movenext
											loop
											else
											response.write "No Match"
											end if
						'end if '��Ǩ�ͺ session 㹡����䢢�����
else
'�ѧ����բ����� ��觷ӡ�����͡�繤����á� sp
'response.write "<tr><td>�ѧ����բ����Ũ��</td></tr>"

sqldata="insert into study_plan(id_curriculum_manage,id_category)  values('"&id_curriculum_manage&"','"&id_category&"')"
 set orsdata = Server.CreateObject("adodb.recordset")
 orsdata.open sqldata,conn,1,3
  sql_ac="select * from course_category where id_category='"&id_category&"'"
				set ors_ac=server.createobject("adodb.recordset")
				ors_ac.open sql_ac,conn,1,3
				if not ors_ac.eof then
				ors_ac.movefirst
				do while not ors_ac.eof
						'response.write "<tr><td>"&ors_ac("id_course")&"</td><td>[<a href=add_choose_course_sp.asp?id_curriculum_manage="&id_curriculum_manage&"&id_course="&ors_ac("id_course")&"&id_category="&id_category&">��������Ԫ�</a>]</td></tr>"
						sql_se="select * from course where id_course='"&ors_ac("id_course")&"'"
																		set ors_se=server.createobject("adodb.recordset")
																		ors_se.open sql_se,conn,1,3
																		    if not ors_se.eof then
																					response.write "<tr><td>"&ors_se("id_course_th")&"   ("&ors_se("id_course")&")</td>"
																					response.write "<td >"&ors_se("course_th")&"</td>"
																					response.write "<td >"&ors_se("credit")&"</td><td >[<a href=add_choose_course_sp.asp?id_course="&ors_se("id_course")&"&id_curriculum_manage="&id_curriculum_manage&"&id_category="&id_category&">��������Ԫ�</a>]</td></tr>"
																			end if
						ors_ac.movenext
						loop

else
						 response.write "<tr><td>No Course!!!222</td></tr>"
				end if
'response.write sqldata
'response.write "<meta http-equiv='refresh' content ='3;url=detail_course.asp?id_course_eng="&id_course_eng&"'>"
'end if
end if
 set conn = nothing
'ors_data.close

%>
</tr>
    </table></div></td>
 <%	else '���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
response.write "<meta http-equiv=refresh content =4;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: choose_category.asp