Editing: addart_file.asp

<!--#INCLUDE FILE="ConnectDB.asp"--> <% '<!--#include file="chk_login.asp"--> pern=session("username") if pern<>"" then %> <% idl=session("idthesis") 'response.write id strMessage = Request("msg") ids=session("ids") id_art=session("idarticle") date_mo=now() '...................... sqlch="select * from student_article where id_article='"&id_art&"'" set orsch=server.createobject("adodb.recordset") orsch.open sqlch,conn,1,3 Response.write sqlch chf=idl+id_art+".pdf" Response.write chf if orsch("art_file")=chf then '�͹�á��������ͧ cfile �դ���� 0 dim fs,f set fs=server.createobject("scripting.filesystemobject") set f=fs.getfile ("C:\ict\ICT\art\"&chf&"") f.delete set f=nothing set fs=nothing end if dim fso set fso=createobject("scripting.filesystemobject") 'fso.movefile server.mappath("letinup/"&strMessage&""), server.mappath("letinup/"&cfile&".pdf") fso.movefile server.mappath("art/"&strMessage&""), server.mappath("art/"&chf&"") response.write (server.mappath("art/"&strMessage&"")) '...................... username=session("username") sqldata="update student_article set art_file='"&chf&"' where id_article='"&id_art&"'" '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 %>