File Manager
Back to List
| Current Directory: ~/
Editing: edit_aw_form.asp.bak
Full path: C:\ict\ICT\edit_aw_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="lecturer" 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"> </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>��䢼ŧҹ�ҧ�Ԫҡ��</strong></p> <% id_aw=request("id") sqla="select * from academic_work where id_aw="&id_aw&"" set orsa=server.CreateObject("adodb.recordset") orsa.open sqla,conn,1,3 if not orsa.eof then '............................. %> <form name="form1" method="post" action="save_edit_aw.asp"> <table width="573" border="1" cellspacing="0"> <tr> <td colspan="2" bgcolor="#FFFFCC"><div align="center">[<a href="all_aw.asp">�ŧҹ�ҧ�Ԫҡ�÷�����</a>][���Ҽŧҹ�ҧ�Ԫҡ��][]</div></td> </tr> <tr> <td bgcolor="#CCFFFF">���ʼŧҹ</td> <td bgcolor="#CCFFFF"><input name="id_aw" type="text" id="id_aw" size="5" readonly="true" value=<%=orsa("id_aw")%>></td> </tr> <tr> <td width="152">��Ңͧ�ŧҹ</td> <td width="411"><SELECT NAME="id_staff" id="id_staff"> <% id_aw=orsa("id_aw") id_staff=orsa("id_staff") ' response.write id_typeletin sqllt="select * from lecturer where statusdel=1 order by name_lec" set orslt=server.createobject("adodb.recordset") 'response.write sqllt orslt.open sqllt,conn,1,3 if not orslt.eof then orslt.movefirst do while not orslt.eof %> <option <% if orslt("id_lecturer")=id_staff then %> value=<%=id_aw%> selected <%else%> value=<%=orslt("id_lecturer")%> <%end if%>> <%=orslt("name_lec") %> <%=" "%><%=orslt("sur_lec")%> <%'=id_type_res%> <%'=orslt("id_type_res")%> </option> <% orslt.movenext loop end if %> </SELECT></td> </tr> <tr> <td bgcolor="#CCFFFF">�� �� ��� �Ӽŧҹ </td> <td bgcolor="#CCFFFF"><select name="month_aw" id="month_aw"> <% nummonth=array(0,1,2,3,4,5,6,7,8,9,10,11,12) nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) m=orsa("month_aw") %> <% do while iii<=ubound(nummonthth) %> <option <% if nummonth(ii)=m then%> value=<%=m%> selected <%else%> value=<%=nummonth(ii)%><%end if%>> <%=nummonthth(iii)%> </option> <%ii=ii+1 iii=iii+1 loop %> </select> �� <input name="year_aw" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=orsa("year_aw")%>></td> </tr> <tr> <td>�������ŧҹ</td> <td><SELECT NAME="id_typeaw" id="id_typeaw"> <% id_typeaw=orsa("type_aw") ' response.write id_typeletin sqllt="select * from type_academicw" set orslt=server.createobject("adodb.recordset") 'response.write sqllt orslt.open sqllt,conn,1,3 if not orslt.eof then orslt.movefirst do while not orslt.eof %> <option <% if orslt("id_typeaw")=id_typeaw then %> value=<%=id_typeaw%> selected <%else%> value=<%=orslt("id_typeaw")%> <%end if%>> <%=orslt("type_aw")%> <%'=id_type_res%> <%'=orslt("id_type_res")%> </option> <% orslt.movenext loop end if %> </SELECT></td> </tr> <tr> <td bgcolor="#CCFFFF">���ͼŧҹ</td> <td bgcolor="#CCFFFF"><textarea name="title_aw" cols="60" rows="3" id="title_aw"><%=orsa("title_aw")%></textarea></td> </tr> <tr> <td bgcolor="#CCFFFF">��������´</td> <td bgcolor="#CCFFFF"><textarea name="name_aw" cols="60" rows="3" id="name_aw"><%=orsa("name_aw")%></textarea></td> </tr> <tr> <td> </td> <td><input type="submit" name="Submit" value="Submit"></td> </tr> </table> <p> </p> <p> </p> </form> <%end if%> <p> </p> <p></p> <p></p> </div> <!-- InstanceEndEditable --></td> </tr> <tr> <td colspan="2" background="Image/bghead1.gif"> </td> </tr> </table> </body> <!-- InstanceEnd --></html> <% 'else 'response.write "No Permission" 'response.write "<a href=index_academic.asp>Return</a>" 'end if %>