File Manager

<%

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

<%
'*****************************************************************
 ' if session("tb_edit") = 2  then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
pern=session("username")
id_stu=request("id_stu")		  
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
				if not orsnc.eof or id_stu=session("id_stu1") then
%>

<head>
<body>
	  <%

dim ors
id_lecturer=request("id_lecturer")
id_thesis=request("id_thesis")
id_stu=request("id_stu")
crd=request("crd")
set ors=server.createobject("adodb.recordset")
	 sqlmark="Delete from advisor_thesis  where id_lecturer= '"&id_lecturer&"' and id_stu='"&id_stu&"'  "

ors.Open sqlmark, conn, 1, 3
		response.write"ź�������������º�������Ǩ��"

'resposne.write "<meta http-equiv='refresh' content ='0;url=choose_course_form.asp?id_category="&id_category&" '>"
if crd=1 then
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
Conn.Close

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

File Manager

Editing: del_advisor_thesis.asp.bak