File Manager
Back to List
| Current Directory: ~/
Editing: edit_getreward_res.asp
Full path: C:\ict\ICT\edit_getreward_res.asp
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" --><!-- 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>�����š�����Ѻ�ҧ���<br> <% id=request("id") id_n=request("id_n") 'sqlall="select * from research where id_contact='"&id&"'" sqlall="select * from getreward where id_no='"&id&"'" set orsall=server.CreateObject("adodb.recordset") orsall.open sqlall,conn,1,3 if not orsall.eof then %> </p> <table width="90%" border="0" bgcolor="#99FF99"> <% if not orsnc.eof then%><tr> <td bgcolor="#99FF66"><form name="form1" method="post" action="save_edit_getreward_res.asp"> <table width="100%" border="1" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td colspan="2"><div align="center">��䢢����š�����Ѻ�ҧ���</div></td> </tr> <tr> <td> <table width="100%" border="1" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td width="28%"><div align="right">�Ţ����ѭ��</div></td> <td width="72%"><input name="id" type="text" id="oname" readonly="true" value=<%=orsall("id_contact")%>> ���ʡ�ù��ʹ� <input name="id_no" type="text" id="id_no" size="5" value=<%=orsall("id_no")%>></td></tr> <tr> <td height="29"> </td> <td><% sqlr="select * from research where id_contact='"&orsall("id_contact")&"'" set orsr=server.CreateObject("adodb.recordset") orsr.open sqlr,conn,1,3 if not orsr.eof then response.write orsr("research_t") end if %></td> </tr> <tr> <td height="29"><div align="right">��������ù��ʹ�</div></td> <td><select name="id_reward"> <% id_reward=orsall("id_reward") set orstcr=server.createobject("adodb.recordset") sqltcr="select * from reward" orstcr.open sqltcr,Conn,1,3 if not orstcr.eof then orstcr.movefirst do while not orstcr.eof %> <option <% if cint(orstcr("id_reward"))=cint(id_reward) then %> value=<%=id_reward%> selected <%else%> value=<%=orstcr("id_reward")%> <%end if%>> <%=orstcr("reward_name")%> <%'=id_type_res%><%'=orsbt("id_type_res")%> </option> <% orstcr.movenext loop end if %> </select> <%=id_reward%> </td> </tr> <tr> <td><div align="right">�ѹ �� �� �����ʹ� </div></td> <td><% 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_reward") ' response.write numday(i) %> <select name="d_reward" id="d_reward"> <option value="00">�ѹ���</option> <% 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><%=orsall("d_reward")%> <select name="m_reward" id="m_reward"> <% 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_reward") ' if mp="�չҤ�" then ' mp="03" 'end %> <% do while iii<=ubound(nummonthth) %> <option <% if nummonthth(iii)=m_begin then%> value=<%=m_begin%> selected <%else%> value=<%=nummonthth(iii)%><%end if%>><%=nummonthth(iii)%></option> <%ii=ii+1 iii=iii+1 loop %> </select><input name="y_reward" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=orsall("y_reward")%>> </td> </tr> <tr> <td><div align="right">˹��§ҹ�������ҧ��� </div></td> <td><textarea name="author_reward" cols="60" rows="3" id="author_reward"><%=orsall("author_reward")%></textarea></td> </tr> <tr> <td><div align="right">��������´�������</div></td> <td><textarea name="detail_reward" cols="60" rows="3" id="detail_rewards"><%=orsall("detail_reward")%></textarea></td> </tr> </table> </td> </tr> <tr> <td colspan="2"><div align="center"> <input type="submit" name="Submit" value="Submit"> </div></td> </tr> </table><%end if%></form> <br></td> </tr> </table><%end if%> <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 %>