File Manager

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>�ѹ�֡�ô</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>

<body>
<div align="center">
  <form id="form1" name="form1" method="post" action="add_grade.asp">
    <p>�ѹ�֡�š�����¹ ��Ш��Ҥ���¹���  <%
	semeter=request.form("semeter")
	id_year=request.form("id_year")
	if semeter="" and id_year="" then
	semeter=session("semeter")
	id_year=session("id_year")
			if semeter="" and id_year="" then
			response.write "<meta http-equiv='refresh' content ='0;url=add_grade_form.asp'>"
			end if
	end if
'�ѹ�����繡����� �պ� � ���ҧ semeter ����բ����������������ѧ �������ա��������ŧ� ��������ǡ���� �������ҧ��������������ʴ��˹������ô ������� ��ʹҷ��������ػ��ä��� ����դ���㹡�����ʴ������Ҥ���¹
						 sqlse="select * from semeter where semeter='"&semeter&"' and re_year='"&id_year&"'"
						 set orsse=server.createobject("adodb.recordset")
						 orsse.open sqlse,conn,1,3
						' response.write sqlse
									if  orsse.eof then
										sqladse="insert into semeter(re_year,semeter)  values('"&id_year&"','"&semeter&"')" 
										set orsadse=server.createobject("adodb.recordset")
										orsadse.open sqladse,conn,1,3
										'response.write sqladse
									end if

session("semeter")=semeter
	session("id_year")=id_year
	response.write semeter
	response.write " �ա���֡�� "&id_year
	%></p>
    <table width="538" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td colspan="2"><div align="center">���͡����Ԫ�</div></td>
      </tr>
      <tr>
        <td width="143"><div align="right">�Ԫ�</div></td>
        <td width="300" align="left"><%
		'semester=request.form("semeter")
		'id_year=request.form("id_year")
		response.write "<select name=id_course> "
		sql_course="select * from course"
					   set ors_course=server.createobject("adodb.recordset")
					   ors_course.open sql_course,conn,1,3
									if not ors_course.eof then		
									ors_course.movefirst
									do while not ors_course.eof
									cregis=ors_course("id_course")
									sql_cregis="select * from register where id_course='"&cregis&"'"
											set ors_cregis=server.createobject("adodb.recordset")
											ors_cregis.open sql_cregis,conn,1,3
											if ors_cregis.eof then
response.write "<option value="&ors_course("id_course")&">"&ors_course("id_course")&" "&ors_course("course_thai")&"</option>"
											end if

ors_course.movenext
						loop
                       response.write "</select>"
		end if
		%>		</td>
      </tr>
     
      <tr>
        <td><div align="right">�ô</div></td>
        <td align="left"><label>
          <select name="grade" id="grade" >
           <%
		   sqlgr="select * from grade"
								set orsgr=server.createobject("adodb.recordset")
								orsgr.open sqlgr,conn,1,3
								'response.write sqlcourse
								if not orsgr.eof then
			%>
                
				    <%
					orsgr.movefirst
				do while not orsgr.eof
				gradec=orsgr("grade_value")
  %>
  <option value=<%=gradec%>><%=orsgr("grade_name")%></option>
  <%
       orsgr.movenext
		loop
		end if
	%>
		   
		   %>
          </select>
        </label></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td align="left"><label>
          <input type="submit" name="Submit" value="Submit" />
        </label></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
    </table>
  </form>
[<a href="index.asp">˹���á</a>]</div>
<p align="center">�š�����¹�Ҥ���¹��� <%
	response.write semeter
	response.write " �ա���֡�� "&id_year
%></p>
<form action="save_grade.asp" method="post" name="form2" >
<table width="906" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor=#99FF00>
    <td width="126"><div align="center">�����Ԫ�</div></td>
    <td width="500"><div align="center">�����Ԫ�</div></td>
    <td ><div align="center">˹��¡Ե</div></td>
    <td ><div align="center">�š�����¹</div></td>
	<td align=center>Action</a>
  </tr>
  <%

sqlall="select * from register where re_year="&id_year&" and semeter="&semeter&""
 ' sqlall="select * from register where id_year='"&id_year&"'"
set orsall=server.createobject("adodb.recordset")
orsall.open sqlall,conn,1,3
'response.write sqlall
			if not orsall.eof then
			orsall.movefirst
			do while not orsall.eof
			response.write "<tr>"
			response.write "<td>"&orsall("id_course")
			'scredit=0
			id_course=orsall("id_course")
			response.write id_course
								sqlcourse="select * from course where id_course='"&id_course&"'"
								set orscourse=server.createobject("adodb.recordset")
								orscourse.open sqlcourse,conn,1,3
								'response.write sqlcourse
								if not orscourse.eof then
								credit=orscourse("credit")
										response.write "<td>"&orscourse("course_thai")&"<td align=center>"&orscourse("credit")
										
								end if
			response.write "<td align=center>" 
			grade=orsall("grade")
			editg=request("editg")
			idc=request("idc")
			
			if editg="" and idc="" then 
					sqlg="select * from grade where grade_value='"&grade&"'"
					set orsg=server.CreateObject("adodb.recordset")
					orsg.open sqlg,conn,1,3
					if not orsg.eof then
					
			response.write orsg("grade_name")
			end if
			response.write "<td align=center>[<a href=add_grade_form.asp?editg=1&idc="&id_course&">Edit</a>]"
			%>
			
			
			[<a href=del_c.asp?idc=<%=id_course%> onClick="return confirm('�س��ͧ���ź?');">Del</a>]
		  <%
			elseif editg=1 and idc=id_course  then 
			session("idceditg")=id_course
			typecourse=orscourse("id_typecourse")
			   if typecourse=4 or typecourse=5 or typecourse=6 then
			   typegrade=2
			   else typegrade=1
			   end if
											sqlgrade="select * from grade where typegrade="&typegrade&""
								set orsgrade=server.createobject("adodb.recordset")
								orsgrade.open sqlgrade,conn,1,3
							'	response.write sqlgrade
								if not orsgrade.eof then
			%>
                  <select name="grade">
				    <%
					orsgrade.movefirst
				do while not orsgrade.eof
				gradec=orsgrade("grade_value")
  %>
  <option <% if grade=gradec then%>
  value=<%=grade%> selected <%else%>
  value=<%=gradec%><%end if%>><%=orsgrade("grade_name")%></option>
  <%
       orsgrade.movenext
		loop
	%>
                  </select>
			  
			  <%
			  end if
			  response.write "<tr><td colspan=4 align=right><input type=submit name=Submit value=Submit />"
			end if
			
			'&orsall("grade")
										grade=orsall("grade")
										if grade="U" then
										'���Դ˹��¡Ե�������
										credit=0
										else
										credit=orscourse("credit")
										end if
										'��÷Ѵ������� �� ���� �� �����Դ�ô
										if grade="P" or grade="U" then
										grade=0
										creditForGrade=credit
										end if
										gps1=grade*credit
										scredit=scredit+credit
										gps=gps+gps1
			orsall.movenext
			loop
			if scredit>0 and gps>0 then
				
			gps=gps/(scredit-creditForGrade)
			end if
			tcredit=tcredit+(scredit-creditForGrade)

response.write "<tr bgcolor=#CCFF33>"
			response.write "<td colspan=2 align=right>˹��¡Ե������<td  ><td colspan=2>"&scredit
			response.write "<tr bgcolor=#CCFF99><td colspan=2 align=right>GPS<td  ><td colspan=2>"
			response.write formatnumber(gps,2)
			if gps>=3 then
			ystatus="Stable"
			elseif gps>=2.5 then
			ystatus="Pro"
			else ystatus="Retire"
			end if
			response.write "<tr bgcolor=#CCFF99><td colspan=2 align=right>ʶҹ�Ҿ<td  ><td colspan=2>"&ystatus
else
response.write "<tr><td colspan=4>No Register</td><tr>"
end if
  
  %>
</table>
</form>
<p align="center">&nbsp;</p>
</body>
</html>

File Manager

Editing: grade/add_grade_form.asp