File Manager
Back to List
| Current Directory: ~/
Editing: qe_result_score.asp
Full path: C:\ict\ICT\qe_result_score.asp
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="qe" 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_regis=request.form("id_regis") qe_id=request.form("qe_id") qe_schedule=request.form("qe_schedule") nowdate=now qe_score=request.form("qe_score") response.write id_regis 'for each b in request.form("qe_score") 'response.write b&"<br>" 'b1=left(b,2) 'id2=len(b) 'id1=right(b,id2-1) 'response.write "b1="&b1&"<br>" sql="update qe_regis set qe_score='"&qe_score&"', result_date='"&nowdate&"' where id_regis="&id_regis&"" 'response.write sql&"<br>" set ors=server.createobject("adodb.recordset") ors.open sql,conn,1,3 'response.write sql&"<br>" 'next 'response.write "aa" %> <SCRIPT LANGUAGE="JavaScript"> <% 'response.write "alert('�ѹ�֡���������º����');" %> </SCRIPT> <% response.write "<meta http-equiv='refresh' content ='0;url=qe_regis_result_score.asp?id="&qe_id&"&id2="&qe_schedule&"'>" else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='index.html';" %> --> </SCRIPT> <% end if %>