File Manager
Back to List
| Current Directory: ~/
Editing: save_edit_getreward_res.asp.bak
Full path: C:\ict\ICT\save_edit_getreward_res.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chk_login.asp"--> <% 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 %> <% id=request.form("id") id_reward=request.form("id_reward") id_no=request.form("id_no") d_reward=request.form("d_reward") y_reward=request.form("y_reward") author_reward=request.form("author_reward") detail_reward=request.form("detail_reward") date_mo=now username=session("username") sqldata="update getreward set username='"&username&"',date_mo='"&date_mo&"',id_reward='"&id_reward&"',author_reward='"&author_reward&"',detail_reward='"&detail_reward&"' where id_no='"&id_no&"'" ' response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") ' sqlcheck="select * from other_lec where firstname='"&firstname&"' and lastname='"&lastname&"'" 'set orscheck=server.createobject("adodb.recordset") 'orscheck.open sqlcheck,conn,1,3 'if orscheck.eof then orsdata.open sqldata,conn,1,3 'response.write sqldata %> <SCRIPT LANGUAGE="JavaScript"> <% response.write"alert('��䢢��������º��������');" %> --> </SCRIPT> <% response.write "<meta http-equiv='refresh' content ='0;url=getreward_res.asp?id="&id&"'>" 'else %> <SCRIPT LANGUAGE="JavaScript"> <% ' response.write"alert('�ѹ�֡�����ū��++ ��ҹ��ѹ�֡�����Ź�������');" ' response.write "window.location.href='distribute_res.asp';" %> --> </SCRIPT> <% 'response.write "�����ū�� " 'response.write "<meta http-equiv='refresh' content ='7;url=index.asp'>" 'end if %><% else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='index_academic.html';" %> </SCRIPT> <% end if %>