Editing: addthesis_file.asp

<!--#INCLUDE FILE="ConnectDB.asp"--> <% pern=session("username") if pern<>"" then %> <% idl=session("idthesis") 'response.write id strMessage = Request("msg") ids=session("ids") date_mo=now '...................... sqlch="select id_thesis,full_thesis from thesis where id_thesis='"&idl&"'" set orsch=server.createobject("adodb.recordset") orsch.open sqlch,conn,1,3 Response.write sqlch chf=idl+"f.pdf" if orsch("full_thesis")=chf then '�͹�á��������ͧ cfile �դ���� 0 dim fs,f set fs=server.createobject("scripting.filesystemobject") set f=fs.getfile ("C:\ict\ICT\thesis\"&chf&"") f.delete set f=nothing set fs=nothing end if dim fso set fso=createobject("scripting.filesystemobject") fso.movefile server.mappath("thesis/"&strMessage&""), server.mappath("thesis/"&chf&"") response.write (server.mappath("command/00Final.pdf")) cfile="in-"&idl+".pdf" '...................... username=session("username") sqldata="update thesis set full_thesis='"&chf&"' where id_thesis='"&idl&"'" response.write sqldata set orsdata=server.createobject("adodb.recordset") orsdata.open sqldata,conn,1,3 Response.write sqldata response.write "<meta http-equiv='refresh' content ='0;url=add_advisor_thesis_form.asp?id_thesis="&idl&"&id_stu="&ids&"'>" else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='indexletterin.asp';" %> --> </SCRIPT> <% end if %>