File Manager
Back to List
| Current Directory: ~/
Editing: qe_edit_form.asp.bak
Full path: C:\ict\ICT\qe_edit_form.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<%response.cachecontrol="private"%> <!--#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 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html><!-- InstanceBegin template="/Templates/ICT.dwt" codeOutsideHTMLIsLocked="false" --> <head> <!-- InstanceBeginEditable name="doctitle" --> <title>�к����ʹ�����͡�ú�����</title> <!-- InstanceEndEditable --> <meta http-equiv="Content-Type" content="text/html; charset=windows-874"> <!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable --> <link href="bsri2006.css" rel="stylesheet" type="text/css"> <link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon"> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0"> <tr> <td colspan="2"><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td> </tr> <tr> <td colspan="2" background="Image/bghead1.gif"><div align="right"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>| <a href="http://www.swu.ac.th">SWU</a> | <a href="http://bsri.swu.ac.th">BSRI</a> |<a href="log_out.asp">Log Out </a></strong></font>|</div></td> </tr> <tr> <td width="20%" align="left" valign="top" bgcolor="#FFCCCC"><!-- InstanceBeginEditable name="EditRegion5" --><!--#include file="chk_menu.asp"--><!-- InstanceEndEditable --></td> <td width="77%" align="left" valign="top"><!-- InstanceBeginEditable name="EditRegion3" --> <div align="center"> <p><strong>��䢢����ŵ��ҧ�ͺ [<a href=qe_index.asp>QE</a>]</strong></p> <form name="form1" method="post" action="qe_save_edit.asp"> <table width="573" border="1" cellspacing="0"> <% id=request("id") y=year(now()) y=543+y sqly="select * from qe where qe_id='"&id&"'" set orsy=server.createobject("adodb.recordset") orsy.open sqly,conn,1,3 if not orsy.eof then end if %> <tr> <td>�ա���֡��</td> <% sqlqs="select * from qe_schedule where qe_schedule='"&orsy("qe_schedule")&"'" set orsqs=server.createobject("adodb.recordset") orsqs.open sqlqs,conn,1,3 if not orsqs.eof then response.write "<td>"&orsqs("qe_semeter")&"/"&orsqs("qe_year_edu") end if %> <td><%'response.write orsy("qe_num")&"/"&orsy("qe_numyear")%></td> </tr> <tr> <td width="152">�ѹ����ͺ</td> <% numday=Array("00","01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31") i=lbound(numday) d_begin=orsy("qe_day") ' response.write numday(i) %> <td><select name="qe_day" id="qe_day"> <% do while i<=ubound(numday) %> <option <% if numday(i)=d_begin then %> value=<%=d_begin%> selected <%else%> value=<%=numday(i)%><%end if%>><%=numday(i)%></option> <% i=i+1 loop %> </select> <%'=orsy("qe_month")%> <select name="qe_month" id="qe_month"> <% nummonth=array("00","01","02","03","04","05","06","07","08","09","10","11","12") nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) m_letter=orsy("qe_month") %> <% do while iii<=ubound(nummonthth) %> <option <% if nummonth(ii)=m_letter then%> value=<%=m_letter%> selected <%else%> value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option> <%ii=ii+1 iii=iii+1 loop %> </select> <input name="qe_year" type="text" id="qe_year" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=orsy("qe_year")%>></td> </tr> <tr> <td width="152">����������ͺ</td><td> <!-- <select name="id_type_test"> --> <% set ors_p=server.createobject("adodb.recordset") sqlmark_p="select * from qe_type_test where id_type_test='"&orsqs("id_type_test")&"'" ors_p.open sqlmark_p,Conn,1,3 if not ors_p.eof then response.write ors_p("type_test") end if ' ors_p.movefirst 'do while not ors_p.eof %> <!-- <option <%if cint(ors_p("id_type_test"))=cint(orsqs("id_type_test")) then%> value = <%=cint(orsqs("id_type_test"))%> selected <%else%> value = <%=ors_p("id_type_test") %><%end if%>> <%=ors_p("type_test")%></option> --> <% 'ors_p.movenext 'loop %> <!-- </select> --> </td> </tr> <tr> <td> </td> <INPUT TYPE="hidden" NAME="id" value=<%=id%>> <td><input type="submit" name="Submit" value="Submit"></td> </tr> </table> <p> </p> <p> </p> </form> <p> </p> <p></p> <p></p> </div> <!-- InstanceEndEditable --></td> </tr> <tr> <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th tel.02-649-5000 ext 17600</td> </tr> </table> </body> <!-- InstanceEnd --></html> <% else response.write "No Permission" response.write "<a href=index_academic.asp>Return</a>" end if %>