File Manager
Back to List
| Current Directory: ~/
Editing: edit_numterm_res.asp.bak
Full path: C:\ict\ICT\edit_numterm_res.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chk_login.asp"--> <% pern=session("username") per="2" tb="research" 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 {color: #9900FF} --> </style> <!-- 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>�ӹǹ�Թ�Ǵ<br> ��������ͧ <% id=request("id") sqln="select * from research where id_contact='"&id&"'" set orsn=server.createobject("adodb.recordset") orsn.open sqln,conn,1,3 if not orsn.eof then response.write orsn("research_t") response.write "<br>"&orsn("research_e") %> </p> <table width="90%" border="1"> <form action="save_num_term_res.asp" method="post" name="form3"> <tr> <td width="100%" align="center" valign="top" bgcolor="#CC99FF"><span class="style1"><strong>��䢨ӹǹ�Թ�Ǵ</strong></span><br> <br><table width="100%" border="0" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td width="91"><div align="center"><strong>�Ţ����ѭ��</strong></div></td> <td width="61"><div align="center"> <input name="id" type="text" size="15" readonly="true" value=<%=id%>> </div></td> </tr> <% 'response.write "�ӹǹ�Թ������="&orsn("amount") 'response.write " �ӹǹ�Ǵ="&orsn("num_term")&"<br>" id_n=request("id_n") sqlall="select * from numterm_res where id_contact='"&id&"' and no_amount='"&id_n&"'" set orsall=server.CreateObject("adodb.recordset") orsall.open sqlall,conn,1,3 if not orsall.eof then %> <br> <% ' orsall.movefirst ' do while not orsall.eof ' response.write "<tr><td>"&orsall("id_contact") ' response.write "<td>"&orsall("no_amount") ' response.Write "<td>" ' response.Write orsall("d_fcontact")&" "&orsall("m_fcontact")&" "&orsall("y_fcontact") ' response.Write "<td>" ' response.Write orsall("d_real")&" "&orsall("m_real")&" "&orsall("y_real") ' response.Write "<td>"&orsall("amount") ' response.Write "<td>" %> <% 'orsall.movenext ' loop %> <tr> <td width="91"><div align="center"><strong>�ӴѺ���ѹ�֡</strong></div></td> <td width="61"><div align="center"><input name="id_num" type="text" size="5" value=<%=orsall("id_num")%> readonly="true"> <tr> <td><strong>�Ǵ���</strong> <td> <div align="left"> <input name="num_term" type="text" size="5" value=<%=orsall("no_amount")%>> </div> <tr> <td><strong>�ѹ �� �� (����ѭ��)</strong> <td><select name="d_fcontact" id="d_fcontact"> <% 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=orsall("d_fcontact") ' response.write numday(i) 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> <select name="m_fcontact" id="m_fcontact"> <% nummonth=array("00","1","2","3","4","5","6","7","8","9","10","11","12") nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) m_begin=orsall("m_fcontact") ' if mp="�չҤ�" then ' mp="03" 'end %> <% do while iii<=ubound(nummonth) %> <option <% if nummonth(ii)=m_begin then%> value=<%=m_begin%> selected <%else%> value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option> <%ii=ii+1 iii=iii+1 loop %> </select> <input name="y_fcontact" type="text" id="yp" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=orsall("y_fcontact")%>> <tr> <td><strong>�ѹ �� �� (���¨�ԧ)</strong> <td><select name="d_real" id="d_real"> <% 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=orsall("d_real") ' response.write numday(i) 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> <select name="m_real" id="m_real"> <% nummonth=array("00","1","2","3","4","5","6","7","8","9","10","11","12") nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) m_begin=orsall("m_real") ' if mp="�չҤ�" then ' mp="03" 'end %> <% do while iii<=ubound(nummonth) %> <option <% if nummonth(ii)=m_begin then%> value=<%=m_begin%> selected <%else%> value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option> <%ii=ii+1 iii=iii+1 loop %> </select> <input name="y_real" type="text" id="y_real" size="10" maxlength="4" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' value=<%=orsall("y_real")%>> <tr> <td><strong>�ӹǹ�Թ</strong> <td><input name="amount" type="text" size="15" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' value=<%=orsall("amount")%>> <tr> <td><td><input name="����" type="submit" id="����" value="�ѹ�֡"> <tr> <td> <td> </form> </table> </td> </tr> </table> <% else response.write "<tr><td colspan=2 align=center>No Data" end if %> <p> </p> <p> <% end if %> </p> </div> <!-- InstanceEndEditable --></td> </tr> <tr> <td colspan="2" background="Image/bghead1.gif"> </td> </tr> </table> </body> <!-- InstanceEnd --></html> <% else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='index.html';" %> --> </SCRIPT> <% end if %>