File Manager
Back to List
| Current Directory: ~/
Editing: qe_add_form.asp.bak
Full path: C:\ict\ICT\qe_add_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="qe" 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">SWU</a> | <a href="http://bsri.swu.ac.th">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>�������ҧ����ͺ [<a href=qe_index.asp>QE</a>]</strong></p> <form name="form1" method="post" action="qe_add.asp"> <table width="573" border="0" cellspacing="0" align=center> <% y=year(now()) y=543+y sqly="select * from qe_schedule" set orsy=server.createobject("adodb.recordset") orsy.open sqly,conn,1,3 if not orsy.eof then orsy.movelast qe_schedule=orsy("qe_schedule")+1 else qe_schedule=1 end if %> <td><div align="right">�ա���֡��</div></td><td> <select name="qe_yearedu"> <% mydate=date myyear=year(mydate) yearbegin=myyear+538 myyear=myyear+543 'response.write "<tr><td>"&yearbegin&"</td></tr>" i=0 do while i<10 %> <option <% if yearbegin=myyear then %> value=<%=myyear%> selected <%else%> value=<%=yearbegin%> <%end if%>> <%=yearbegin%> </option> <%i=i+1 yearbegin=yearbegin+1 loop %> </select>�Ҥ <select name="qe_semeter"> <% set ors_=server.createobject("adodb.recordset") sqlmark_="select * from academic_semeter" ors_.open sqlmark_,Conn,1,3 ors_.movefirst do while not ors_.eof response.write "<option value="&ors_("id_academic_semeter")&">"&ors_("academic_semeter")&"</option>" ors_.movenext loop %> </select> </tr> <tr> <td align=right>�ѹ����ͺ</td> <td><select name="qe_day" id="qe_day"> <% date_d=datepart("d",date) for d=1 to 31 %> <option <% if date_d=d then %> value=<%=d%> selected <%else%> value=<%=d%><%end if%>> <%=d%> </option> <% next %> </select> <select name="qe_month" id="qe_month"> <% 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=month(now()) %> <% 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="qe_year" type="text" id="qe_year" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=y%>></td> </tr> <tr><td align=right>��ҹ</td><td> <% response.write "<SELECT NAME=qe_course>" sqlmark_="select * from qe_course" set ors_=server.createobject("adodb.recordset") ors_.open sqlmark_,Conn,1,3 if not ors_.eof then ors_.movefirst do while not ors_.eof %> <option value=<%=ors_("qe_course")%>> <%=ors_("qe_cname")%> </option> <% ors_.movenext loop end if response.write "</SELECT>"%> </td></tr> <tr><td align=right>��ṹ���</td><td> <input name="qe_score" type="text" id="qe_year" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="3" > </td></tr> <tr> <td> </td> <td><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 %>