File Manager
Back to List
| Current Directory: ~/
Editing: edit_letterin_form.asp.bak
Full path: C:\ict\ICT\edit_letterin_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="letterin" 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" 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>˹ѧ������ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��<br> [<a href="all_letterin.asp">˹ѧ��ͷ�����</a>][<a href="searchletter.asp">����˹ѧ���</a>][<a href="letterin_staff.asp">˹ѧ��������ºؤ��</a>]</strong></p> <p> <% id=request("id") sql="select * from letterin where id_letter='"&id&"'" set ors=server.createobject("adodb.recordset") ors.open sql,conn,1,3 if not ors.eof then %> </p> <p>��䢢�����˹ѧ������</p> <form name="form1" method="post" action="save_edit_letter.asp"> <table width="90%" border="0" cellspacing="0"> <tr> <td>��Ǵ</td> <td><SELECT NAME="id_cate" style="font-size:16px"> <% id_categorylet=Abs(ors("id_categorylet")) if id_categorylet="" then id_categorylet=0 end if response.write id_categorylet sqlcate="select * from let_category" set orscate=server.createobject("adodb.recordset") 'response.write sqlcate orscate.open sqlcate,conn,1,3 if not orscate.eof then orscate.movefirst do while not orscate.eof %> <option <% if orscate("id_categorylet")=id_categorylet then %> value=<%=id_categorylet%> selected <%else%> value=<%=orscate("id_categorylet")%> <%end if%>> <%=orscate("categorylet")%> <%'=id_type_res%> <%'=orslt("id_type_res")%> </option> <% orscate.movenext loop end if %> </SELECT><%'=id_categorylet%></td> </tr> <tr> <td bgcolor="#FFFFCE">������˹ѧ���</td> <td bgcolor="#FFFFCE"><select name="id_itletter" style="font-size:16px"> <% id_itletter=ors("id_itletter") if id_itletter="" then id_itletter=0 end if ' response.write id_typeletin sqlo="select * from itletter" set orso=server.createobject("adodb.recordset") 'response.write sqllt orso.open sqlo,conn,1,3 if not orso.eof then orso.movefirst do while not orso.eof %> <option <% if orso("id_itletter")=id_itletter then %> value=<%=id_itletter%> selected <%else%> value=<%=orso("id_itletter")%> <%end if%>> <%=orso("itletter")%> <%'=id_type_res%> <%'=orslt("id_type_res")%> </option> <% orso.movenext loop end if %> </select></td> </tr> <tr> <td>�ѵ�ػ��ʧ��ͧ˹ѧ���</td> <td><SELECT NAME="id_typeletin" style="font-size:16px"> <% id_typeletin=ors("id_typeletin") if id_typeletin="" then id_typeletin=0 end if ' response.write id_typeletin sqllt="select * from type_letterin" 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_typeletin")=id_typeletin then %> value=<%=id_typeletin%> selected <%else%> value=<%=orslt("id_typeletin")%> <%end if%>> <%=orslt("typeletin")%> <%'=id_type_res%> <%'=orslt("id_type_res")%> </option> <% orslt.movenext loop end if %> </SELECT></td> </tr> <tr> <td width="152" bgcolor="#FFFFCC">�Ţ�Ѻ</td> <td width="411" bgcolor="#FFFFCC"><input name="id_letter" type="text" id="id_letter" value=<%=ors("id_letter")%> readonly="true" style="font-size:16px"></td> </tr> <tr> <% numday=Array(0,1,2,3,4,5,6,7,8,9,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_receive=ors("dreceive") d_letter=ors("dletter") d_command=ors("dcommand") ' response.write numday(i) %> <td>�ѹ����Ѻ </td> <td><select name="dreceive" id="dreceive" style="font-size:16px"> <% do while i<=ubound(numday) %> <option <% if numday(i)=d_receive then %> value=<%=d_receive%> selected <%else%> value=<%=numday(i)%><%end if%>><%=numday(i)%></option> <% i=i+1 loop %> </select> <% nummonth=array(0,1,2,3,4,5,6,7,8,9,10,11,12) nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) m_receive=ors("mreceive") m_letter=ors("mletter") m_command=ors("mcommand") %> <select name="mreceive" id="select2" style="font-size:16px"> <% do while iii<=ubound(nummonthth) %> <option <% if nummonth(ii)=m_receive then%> value=<%=m_receive%> selected <%else%> value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option> <%ii=ii+1 iii=iii+1 loop %> </select> <input name="yreceive" type="text" id="y_fcontact" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=ors("yreceive")%>></td> </tr> <tr> <td bgcolor="#FFFFCC">�Ţ���˹ѧ�����</td> <td bgcolor="#FFFFCC"><textarea name="id_sent" cols="30" rows="1" id="id_sent" style="font-size:16px"><%=ors("id_sent")%></textarea></td> </tr> <tr> <td>�ѹ �� �� ˹ѧ����� </td> <% numday=Array(0,1,2,3,4,5,6,7,8,9,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_letter=ors("dletter") ' response.write numday(i) %> <td><select name="dletter" id="select5" style="font-size:16px"> <% do while i<=ubound(numday) %> <option <% if numday(i)=d_letter then %> value=<%=d_letter%> selected <%else%> value=<%=numday(i)%><%end if%>><%=numday(i)%></option> <% i=i+1 loop %> </select> <select name="mletter" id="select6" style="font-size:16px"> <% nummonth=array(0,1,2,3,4,5,6,7,8,9,10,11,12) nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) m_letter=ors("mletter") %> <% 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="yletter" type="text" id="y_fcontact2" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=ors("yletter")%> style="font-size:16px"></td> </tr> <tr> <td>Ǵ� ��˹��觡�Ѻ </td> <% numday=Array(0,1,2,3,4,5,6,7,8,9,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) duedate=ors("duedate") ' response.write numday(i) %> <td> <% If ors("dued")=1 Then Response.write "<input type=checkbox name=dued value=1 checked>��" Else Response.write "<input type=checkbox name=dued2 value=0>�����" End if%> <select name="duedate" id="select20" style="font-size:16px"> <% do while i<=ubound(numday) %> <option <% if numday(i)=duedate then %> value=<%=duedate%> selected <%else%> value=<%=numday(i)%><%end if%>><%=numday(i)%></option> <% i=i+1 loop %> </select> <select name="duemonth" id="select19" style="font-size:16px"> <% nummonth=array(0,1,2,3,4,5,6,7,8,9,10,11,12) nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) duemonth=ors("duemonth") %> <% do while iii<=ubound(nummonthth) %> <option <% if nummonth(ii)=duemonth then%> value=<%=duemonth%> selected <%else%> value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option> <%ii=ii+1 iii=iii+1 loop %> </select> <input name="duey" type="text" id="duey" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value="<%=ors("duey")%>" style="font-size:16px"></td> </tr> <tr> <td bgcolor="#FFFFCC">��ǹ�Ҫ�����Ңͧ˹ѧ���</td> <td bgcolor="#FFFFCC"><textarea name="originletter" cols="60" rows="1" id="originletter" style="font-size:16px"><%=ors("originletter")%></textarea></td> </tr> <tr> <td>����ͧ</td> <td><textarea name="titleletter" cols="60" rows="6" id="titleletter" maxlength="250" onkeydown="limittext(this.form.titleletter,300,300);" style="font-size:16px"><%=ors("titleletter")%></textarea></td> </tr> <tr> <td bgcolor="#FFFFCC">���¹</td> <td bgcolor="#FFFFCC"><textarea name="toname" cols="60" rows="1" id="toname" style="font-size:16px"><%=ors("toname")%></textarea></td> </tr> <tr> <td >������</td> <td ><textarea name="directorcommand" cols="60" rows="1" id="toname" style="font-size:16px"><%=ors("directorcommand")%></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">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 %>