File Manager
Back to List
| Current Directory: ~/
Editing: add_lec.asp.bak
Full path: C:\ict\ICT\add_lec.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="Connectdb.asp"--> <!--#include file="inc_cache_control.asp"--> <!--#include file="inc_access_control.asp"--> <!--#include file="chk_login.asp"--> <% session("tb_name")="lecturer"%> <!--#include file="chk_permission.asp"--> <% if session("tb_edit")=2 then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ %> <form name="form1" Action = "detail_lec.asp" method="post"> <% id_lecturer=request.form("id_lecturer") id_administor=request.form("id_administor") id_academic=request.form("academic") id_preface = request.form("preface") id_other_position=request.form("other_position") name_lec = request.form("name_lec") sur_lec = request.form("sur_lec") year_retire = request.form("year_retire") id_status_lec = request.form("id_status_lec") bdate_lec = request.form("bdate_lec") bmon_lec=request.form("bmon_lec") byear_lec=request.form("byear_lec") bd_lec=bdate_lec&"/"&bmon_lec&"/"&byear_lec dentrance=request.form("dentrance") mentrance=request.form("mentrance") yentrance=request.form("yentrance") date_entrance=dentrance&"/"&mentrance&"/"¥trance %> <% sql_data="select * from lecturer where id_lecturer='"&id_lecturer&"' " set ors_data=server.createobject("adodb.recordset") ors_data.open sql_data,conn,1,3 if not ors_data.eof then%> <SCRIPT LANGUAGE="JavaScript"> <% 'response.write "���ʫ��"&id_lecturer response.write"alert('"&id_lecturer&"�ѹ�֡���ʻ�Шӵ�ǫ��');" response.write "window.location.href='add_lec_form.asp';" %> --> </SCRIPT> <% else sqldata="insert into lecturer(id_lecturer,id_administor,id_academic,id_preface,name_lec,sur_lec, year_retire,id_status_lec,bdate_lec,id_other_position,date_entrance) values('"&id_lecturer&"','"&_ id_administor&"','"&id_academic&"','"&_ id_preface&"', '"&name_lec&"','"&sur_lec&"','"&year_retire&"','"&id_status_lec&"','"&bd_lec&"','"&id_other_position&"','"&date_entrance&"')" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write sqldata response.write "<meta http-equiv='refresh' content ='0;url=detail_lec.asp?id_lecturer="&id_lecturer&"'>" end if 'end if set conn = nothing 'ors_data.close %> </FORM> <% else '���Է� response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��" response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է� end if '���Է� %>