File Manager

<%
		  pern=session("username")
		  
				if pern<>"" then
		  %>
	<%
idl=session("idthesis")
			'response.write id
strMessage = Request("msg")
ids=session("ids")
				date_mo=now
				username=session("username")

'............
sqlch="select id_thesis,abstract from thesis where id_thesis='"&idl&"'"
set orsch=server.createobject("adodb.recordset")
orsch.open sqlch,conn,1,3
chf=idl+"a.pdf"
		if orsch("abstract")=chf then '�͹�á��������ͧ cfile �դ���� 0
			dim fs,f
			set fs=server.createobject("scripting.filesystemobject")
			'set f=fs.getfile(server.mappath("command/"&id&".pdf")
			set f=fs.getfile ("d:\wwwroot\ict\absthesis\"&idl&"a.pdf")
		
			f.delete
			set f=nothing
			set fs=nothing
		end if
dim fso
set fso=createobject("scripting.filesystemobject")
fso.movefile server.mappath("absthesis/"&savefile&""), server.mappath("absthesis/"&idl&".pdf")
response.write (server.mappath("command/00Final.pdf"))

cfile=idl+"a.pdf"
'...........

sqldata="update thesis set abstract='"&strMessage&"'  where id_thesis='"&idl&"'"
				  response.write sqldata
				  set orsdata=server.createobject("adodb.recordset")
				 orsdata.open sqldata,conn,1,3
				 response.write "<meta http-equiv='refresh' content ='0;url=add_advisor_thesis_form.asp?id_thesis="&idl&"&id_stu="&ids&"'>"

'Response.Redirect ("detail_letterin.asp?id="&id)

else
%>
<SCRIPT LANGUAGE="JavaScript">
<%

response.write "window.location.href='detail_thesis.asp';"
		
		%>
		-->
		</SCRIPT>
		<%
end if

File Manager

Editing: addAbs_thesis_file.asp.bak