File Manager
Back to List
| Current Directory: ~/
Editing: academic_work.asp
Full path: C:\ict\ICT\academic_work.asp
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" --> <style type="text/css"> <!-- .style1 {font-weight: bold} --> </style> <!-- 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" target=_blank>SWU</a> | <a href="http://bsri.swu.ac.th" target=_blank>BSRI</a> |<a href="chaPW.asp"><strong>Change Password</strong></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> <p> [<a href="all_aw.asp">�ŧҹ�ҧ�Ԫҡ�÷�����</a>][���Ҽŧҹ�ҧ�Ԫҡ��] <% sqlcl="select * from lecturer where id_lecturer='"&pern&"'" set orscl=server.createobject("adodb.recordset") orscl.open sqlcl,conn,1,3 if not orscl.eof then set rs=server.createobject("adodb.recordset") sql = "Select * From academic_work where statusdel=1 and id_staff='"&pern&"' Order By year_aw desc, month_aw Desc" rs.Open sql, conn, 1, 3 %> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <br> </p> <tr> <td bgcolor="#669900"><div align="center" class="style1">�ӴѺ���</div></td> <td bgcolor="#669900"><div align="center" class="style1">��Ңͧ�ŧҹ</div></td> <td bgcolor="#669900"><div align="center" class="style1">��/��</div></td> <td bgcolor="#669900"><div align="center" class="style1">�������ŧҹ</div></td> <td bgcolor="#669900"><div align="center" class="style1">��������´</div></td> <!-- <td bgcolor="#669900" width="15%"><div align="center" class="style1" >???????????????</div></td> --> </tr> <% i=1 ' ?????????? For a=1 to rs.PageSize If rs.EOF Then Exit For ' Response.Write rs("id_letter")&"<br>" ii=i mod 2 if ii=0 then bgc="#ccffcc" else bgc="#ffffff" end if %> <tr bgcolor=<%=bgc%>><td> <% i=i+1 ' response.write rs("id_aw")&"</td>" 'response.write "<td>" response.write "[<a href=detail_aw.asp?id="&rs("id_aw")&">"&rs("id_aw")&"</a>]</td>" response.write "<td>" 'response.write rs("id_staff") sqll="select * from lecturer where id_lecturer='"&rs("id_staff")&"'" set orsl=server.createobject("adodb.recordset") orsl.open sqll,conn,1,3 if not orsl.eof then response.write orsl("name_lec")&" "&orsl("sur_lec") end if response.write "</td>" response.write "<td>" response.write rs("month_aw")&"/"&rs("year_aw")&"</td>" response.write "<td>" 'response.write rs("type_aw") sqlst="select * from type_academicw where id_typeaw="&rs("type_aw")&"" set orsst=server.createobject("adodb.recordset") orsst.open sqlst,conn,1,3 if not orsst.eof then response.write orsst("type_aw") end if response.write "</td>" response.write "<td>" ' response.write rs("name_aw") response.write "</td>" response.write "</tr>" rs.MoveNext Next response.write "</table>" %> <% end if %> </p> <p> </p> <form name="form1" method="post" action="add_aw.asp"> <table width="573" border="0" cellspacing="0"> <tr><td colspan="2" bgcolor="#99FFFF"><div align="center"><strong>���������żŧҹ�ҧ�Ԫҡ��</strong></div> </tr> <tr> <td width="152" bgcolor="#FFFFCC">��Ңͧ�ŧҹ</td> <td width="411" bgcolor="#FFFFCC"><select name="id_staff" id="id_staff"> <% set orstcr=server.createobject("adodb.recordset") sqltcr="select * from lecturer where statusdel=1 order by name_lec" orstcr.open sqltcr,Conn,1,3 if not orstcr.eof then orstcr.movefirst do while not orstcr.eof response.write "<option value="&orstcr("id_lecturer")&">"&orstcr("name_lec")&" "&orstcr("sur_lec")&"</option>" orstcr.movenext loop end if %> </select></td> </tr> <tr> <td>�� �� ��� �Ӽŧҹ </td> <td><select name="month_aw" id="month_aw"> <option value="0">��</option> <option value="1">���Ҥ�</option> <option value="2">����Ҿѹ��</option> <option value="3">�չҤ�</option> <option value="4">����¹</option> <option value="5">����Ҥ�</option> <option value="6">�Զع�¹</option> <option value="7">�á�Ҥ�</option> <option value="8">�ԧ�Ҥ�</option> <option value="9">�ѹ��¹</option> <option value="10">���Ҥ�</option> <option value="11">��Ȩԡ�¹</option> <option value="12">�ѹ�Ҥ�</option> </select> �� <input name="year_aw" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4"></td> </tr> <tr> <td bgcolor="#FFFFCC">�������ŧҹ</td> <td bgcolor="#FFFFCC"><select name="type_aw" id="type_aw"> <% set ors1=server.createobject("adodb.recordset") sql1="select * from type_academicw" ors1.open sql1,Conn,1,3 if not ors1.eof then ors1.movefirst do while not ors1.eof response.write "<option value="&ors1("id_typeaw")&">"&ors1("type_aw")&"</option>" ors1.movenext loop end if %> </select></td> </tr> <tr> <td>��������ͧ</td> <td><textarea name="title_aw" cols="60" rows="3" id="name_aw"></textarea></td> </tr> <tr> <td>��������´</td> <td><textarea name="name_aw" cols="60" rows="3" id="name_aw"></textarea></td> </tr> <tr> <td bgcolor="#FFFFCC"> </td> <td bgcolor="#FFFFCC"><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 %>