File Manager

<% On Error Resume Next %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

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

<%
date0=request.form("date0")
command_no=request.form("command_no")
'If command_no And date0 = "" Then
	'command_no = "00"
	'date0="00/00/0000"
'End if
command_date=left(date0,2)
command_month=mid(date0,4,2)
command_year=right(date0,4)
id_lecturer=request.form("id_lecturer")
id_thesis=request.form("id_thesis")
id_stu=request.form("id_stu")
id_num=request.form("id_num")
advisor_name=request.form("advisor_name")
codredirect=request.form("codredirect")
id_position_thesis=request.form("id_position_thesis")

'command_date=request.form("command_date")
'command_month=request.form("command_month")
'command_year=request.form("command_year")
				if command_date=1 then
							command_date="01" 
							elseif command_date=2 then
							command_date="02"
							elseif command_date=3 then
							command_date="03"
							elseif command_date=4 then
							command_date="04"
							elseif command_date=5 then
							command_date="05"
							elseif command_date=6 then
							command_date="06"
							elseif command_date=7 then
							command_date="07"
							elseif command_date=8 then
							command_date="08"
							elseif command_date=9 then
							command_date="09"
							end if
		if command_month=1 then
							command_month="01" 
							elseif command_month=2 then
							command_month="02"
							elseif command_month=3 then
							command_month="03"
							elseif command_month=4 then
							command_month="04"
							elseif command_month=5 then
							command_month="05"
							elseif command_month=6 then
							command_month="06"
							elseif command_month=7 then
							command_month="07"
							elseif command_month=8 then
							command_month="08"
							elseif command_month=9 then
							command_month="09"
							end if
	
if session("tb_edit") = 2  or session("id_stu1")=id_stu then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

'else 
id_position_ch=1 '������յ��˹觻�иҹ�����ѧ
			'
			sqlchh="select * from advisor_thesis where id_position_thesis='"&id_position_ch&"'and id_stu='"&id_stu&"'"
			set orschh=server.createobject("adodb.recordset")
			orschh.open sqlchh,conn,1,3
			if not orschh.eof Then

id_po=orschh("id_position_thesis")
if codredirect="1" Then
			command_no="0"
			command_date="00"
			command_month="00"
			command_year="00"
End if
if id_po=id_position_thesis then			'�ջ�иҹ����
if codredirect="1" Then
			command_no="0"
			command_date="00"
			command_month="00"
			command_year="00"
		response.write "<meta http-equiv='refresh' content ='0;url=edit_thesis_stu_form.asp?id_stu="&id_stu&"'>"
					else
		response.write "<meta http-equiv='refresh' content ='0;url=add_advisor_thesis_form.asp?id_stu="&id_stu&"&id_thesis="&id_thesis&"'>"
					end if

%>
					<SCRIPT LANGUAGE="JavaScript">
					<%
		
							'response.write "alert('�յ��˹觻�иҹ����2"&id_position_ch&"-"&id_stu&"');"
						    response.write "alert('�յ��˹觻�иҹ�Ǻ�������');"

%>
					</SCRIPT>
					
					<% 
					else'��ǹ����Ͷ���ջ�иҹ������Т�����������������иҹ��ѹ�֡�� �ͺ͡������굷�������´չѡ�������괫�ӡѹ�֧�ͧ���
					  sqldata="insert into advisor_thesis(id_lecturer,id_stu,id_position_thesis,id_num,advisor_out,id_thesis,command_no,command_date,command_month,command_year)  values('"&id_lecturer&"','"&id_stu&"','"&id_position_thesis&"','"&id_num&"','"&advisor_name&"','"&id_thesis&"','"&command_no&"','"&command_date&"','"&command_month&"','"&command_year&"')"

set orsdata=Server.CreateObject("adodb.recordset")
					orsdata.open sqldata,conn,1,3
					response.write sqldata
					if codredirect="1" then
					'response.write codredirect
		response.write "<meta http-equiv='refresh' content ='0;url=edit_thesis_stu_form.asp?id_stu="&id_stu&"'>"
					else
		response.write "<meta http-equiv='refresh' content ='0;url=add_advisor_thesis_form.asp?id_stu="&id_stu&"&id_thesis="&id_thesis&"'>"
					end if
					'response.write "<meta http-equiv='refresh' content ='0;url=add_advisor_thesis_form.asp?id_stu="&id_stu&"&id_thesis="&id_thesis&"'>"

end if			'��
		 else '����ѧ����յ��˹觻�иҹ㹰ҹ������
					  sqldata="insert into advisor_thesis(id_lecturer,id_stu,id_position_thesis,id_num,advisor_out,id_thesis,command_no,command_date,command_month,command_year)  values('"&id_lecturer&"','"&id_stu&"','"&id_position_thesis&"','"&id_num&"','"&advisor_name&"','"&id_thesis&"','"&command_no&"','"&command_date&"','"&command_month&"','"&command_year&"')"

set orsdata=Server.CreateObject("adodb.recordset")
					orsdata.open sqldata,conn,1,3
					'response.write sqldata
					if codredirect="1" then
					'response.write codredirect
		response.write "<meta http-equiv='refresh' content ='0;url=edit_thesis_stu_form.asp?id_stu="&id_stu&"'>"
					else
		response.write "<meta http-equiv='refresh' content ='0;url=add_advisor_thesis_form.asp?id_stu="&id_stu&"&id_thesis="&id_thesis&"'>"
					end if
					'response.write sqldata
					'response.write sqlch
					
					end if
'
 set conn = nothing
'

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

File Manager

Editing: add_advisor_thesis.asp.bak