File Manager
Back to List
| Current Directory: ~/
Editing: edit_research_form.asp.bak
Full path: C:\ict\ICT\edit_research_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="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" --><!-- 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> �ҹ�Ԩ��ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</strong> <% id=request("id") sql="select * from research where id_contact='"&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_research.asp"> <table width="573" border="1" cellspacing="0" bgcolor="#FF99FF"> <tr> <td> </td> <td> </td> </tr> <tr> <td width="152" bgcolor="#FFCCFF">�Ţ����ѭ��</td> <td width="411" bgcolor="#FFCCFF"><INPUT TYPE="" NAME="id_researchr" value =<%=ors("id_researchr")%> > </td> </tr> <tr> <td>������(�/�)</td> <td><%'=ors("id_type_res")%> <% sqlt="select * from type_res where id_type_res='"&ors("id_type_res")&"'" set orst=server.CreateObject("adodb.recordset") orst.open sqlt,conn,1,3 if not orst.eof then 'response.write orst("type_res") end if %> <SELECT NAME="id_type_res"> <% id_type_res=cint(ors("id_type_res")) sqlbt="select * from type_res" set orsbt=server.createobject("adodb.recordset") orsbt.open sqlbt,conn,1,3 if not orsbt.eof then orsbt.movefirst do while not orsbt.eof %> <option <% if cint(orsbt("id_type_res"))=cint(id_type_res) then %> value=<%=id_type_res%> selected <%else%> value=<%=orsbt("id_type_res")%> <%end if%>> <%=orsbt("type_res")%> <%'=id_type_res%><%'=orsbt("id_type_res")%> </option> <% orsbt.movenext loop end if %></SELECT> </td> </tr> <tr> <td bordercolor="#FFCCFF" bgcolor="#FFCCFF">����������</td> <td bordercolor="#FFCCFF" bgcolor="#FFCCFF"> <textarea name="research_t" cols="60" rows="3" id="research_t"><%=ors("research_t")%></textarea></td> </tr> <tr> <td>���������ѧ���</td> <td> <textarea name="research_e" cols="60" rows="3" id="research_e"><%=ors("research_e")%></textarea></td> </tr> <tr> <td bgcolor="#FFCCFF">���觷ع</td> <td bgcolor="#FFCCFF"><%=ors("id_capital_res")%> <% sqlc="select * from capital_res where id_capital_res='"&ors("id_capital_res")&"'" set orsc=server.CreateObject("adodb.recordset") orsc.open sqlc,conn,1,3 if not orsc.eof then response.write orsc("capital_res_name") end if %> (<%=ors("id_type_capital_res")%> <% sqlcr="select * from type_capital_res where id_type_capital_res='"&ors("id_type_capital_res")&"'" set orscr=server.CreateObject("adodb.recordset") orscr.open sqlcr,conn,1,3 if not orscr.eof then response.write orscr("type_capital_res") end if %> ) <SELECT NAME="id_capital_res"> <% id_capital_res=cint(ors("id_capital_res")) sqlcr="select * from capital_res" set orscr=server.createobject("adodb.recordset") orscr.open sqlcr,conn,1,3 if not orscr.eof then orscr.movefirst do while not orscr.eof %> <option <% if cint(orscr("id_capital_res"))=cint(id_capital_res) then %> value=<%=id_capital_res%> selected <%else%> value=<%=orscr("id_capital_res")%> <%end if%>> <%=orscr("capital_res_name")%> <%'=id_type_res%><%'=orsbt("id_type_res")%> </option> <% orscr.movenext loop end if %></SELECT>ʶҹ� <SELECT NAME="id_type_capital_res"> <% id_type_capital_res=cint(ors("id_type_capital_res")) sqltr="select * from type_capital_res" set orstr=server.createobject("adodb.recordset") orstr.open sqltr,conn,1,3 if not orstr.eof then orstr.movefirst do while not orstr.eof %> <option <% if cint(orstr("id_type_capital_res"))=cint(id_type_capital_res) then %> value=<%=id_type_capital_res%> selected <%else%> value=<%=orstr("id_type_capital_res")%> <%end if%>> <%=orstr("type_capital_res")%> <%'=id_type_res%><%'=orsbt("id_type_res")%> </option> <% orstr.movenext loop end if %></SELECT> </td> </tr> <tr> <td>��Шӻէ�����ҳ</td> <td> <input name="y_capital_res" type="text" id="y_capital_res" value=<%=ors("y_capital")%>></td> </tr> <tr> <td bgcolor="#FFCCFF">�ѹ �� �� �������� </td> <td bgcolor="#FFCCFF"> <% 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=ors("d_begin") ' response.write numday(i) %> <div >�ѹ <select name="d_begin"> <% 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> <%=ors("d_begin")%> <% nummonth=array("0","1","2","3","4","5","6","7","8","9","10","11","12") nummonthth=array("��","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�") ii=lbound(nummonth) iii=lbound(nummonthth) m_begin=ors("m_begin") %> <select name="m_begin"> <% do while iii<=ubound(nummonthth) %> <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> <%=ors("m_begin")%> <INPUT TYPE="text" NAME="y_begin" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength="4" value=<%=ors("y_begin")%> > </td> </tr> <tr> <td>�ӹǹ�Թ������Ѻ������</td> <td><input name="amount" type="text" id="amount" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' value=<%=ors("amount")%>> �ҷ</td> </tr> <tr> <td bgcolor="#FFCCFF">�ӹǹ�Ǵ</td> <td bgcolor="#FFCCFF"><input name="num_term" type="text" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="8" value=<%=ors("num_term")%>> �Ǵ </td> </tr> <tr> <td>�ѹ �� �� ������� (����ѭ��) </td> <td><%=ors("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_fcontact=ors("d_fcontact") ' response.write numday(i) %> <div >�ѹ <select name="d_fcontact"> <% do while i<=ubound(numday) %> <option <% if numday(i)=d_fcontact then %> value=<%=d_fcontact%> 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_fcontact=ors("m_fcontact") ' if mp="�չҤ�" then ' mp="03" 'end %> <select name="m_fcontact"> <% do while iii<=ubound(nummonthth) %> <option <% if nummonth(ii)=m_fcontact then%> value=<%=m_fcontact%> selected <%else%> value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option> <%ii=ii+1 iii=iii+1 loop %> </select> <%=ors("m_fcontact")%> <INPUT TYPE="text" NAME="y_fcontact" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength="4" value=<%=ors("y_fcontact")%> > </td> </tr> <tr> <td bgcolor="#FFCCFF"> </td> <td bgcolor="#FFCCFF"><input type="submit" name="Submit" value="Submit"></td> </tr> </table> <% end if %> </form> <p> </p> <p> </p> <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 %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='index.html';" %> --> </SCRIPT> <% end if %>