File Manager

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

'session("tb_name")="student"
'id_stu=request("id_stu")
%>

<%
'*****************************************************************
'if session("tb_preview") <> 1 and session("tb_edit")<>1 or session("id_stu1") = id_stu then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
		  pern=session("username")
		  per="2"
		  tb="research"
		  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
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874"></HEAD>

<body>
<%
id=session("id_project")
response.write id
date_mo=now
username=session("username")
savefile=session("savefile")
sqlcheck="select * from culture_detail"
set orscheck=server.createobject("adodb.recordset")
orscheck.open sqlcheck,conn,1,3
					if not orscheck.eof then
sqlupload="update culture_detail set file_n='"&savefile&"' where id_project='"&id&"'"

'sqlupload="insert into attachment_res(username,datetime_mo,id_contact,file_name,id_attach,id_typeattach,hitc) values('"&username&"','"&date_mo&"','"&id&"','"&savefile&"',"&num&",1,0)"
set orsupload = Server.CreateObject("adodb.recordset")
response.write sqlupload
orsupload.open sqlupload,conn,1,3
'response.write "aaa"&id_stu
%>
  <meta http-equiv="refresh" content ="0;url=culture_detail.asp?id=<%=id%>">

Upload Complete...
<%					else
					
response.write "No Project"
					end if
					%>
</body>
</html>

<%	'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: culture_add_file.asp