File Manager

<%response.cachecontrol="private"%>


<%
		  pern=session("username")
		  per="2"
		  tb="project"
		  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>
<head>

<title>�к����ʹ�����͡�ú�����</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<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"></td>
    <td width="77%" align="left" valign="top">
      <div align="center"><p>[<a href="project_all.asp">�ç��÷�����</a>][�ç��÷�����������ҧ���Թ���][�ç��ô��Թ����������][�ç��û�Шӻ�]</p>
        <p><strong>�����ç��� ʶҺѹ�Ԩ�¾ĵԡ����ҵ��</strong></p>
        <form name="form1" method="post" action="project_add.asp">
          <table width="573" border="0" cellspacing="0">
            <tr> 
              <td>�����ç���</td><td></td>
             </tr>
            
			
           
            <tr> 
              <td>�����ç���</td>
              <td><textarea name="project_n" cols="60" rows="3" id="project_n"></textarea></td>
            </tr>
			<tr> 
              <td>��������´�ç���</td>
              <td><textarea name="project_detail" cols="60" rows="3" id="project_n"></textarea></td>
            </tr>
			<tr><td>�է�����ҳ</td><td>
			<select name="id_year" id="id_year">
                  
                  <% 
	
mydate=date
myyear=year(mydate)
mym=month(mydate)
if mym>4 then
yearbegin=myyear+542
myyear=myyear+544
else
yearbegin=myyear+542
myyear=myyear+543
end if

'myyear=myyear+543
'response.write "<tr><td>"&yearbegin&"</td></tr>"
i=0

do while i<5
	%>
                  <option <%
		if yearbegin=myyear then 
		%>
		value=<%=myyear%>
		selected
		<%else%>
		<%end if%>> <%=yearbegin%> </option>
                  <%i=i+1
	yearbegin=yearbegin+1
		loop
		%>
                </select>
			</td></tr>
            <tr> 
              <td>������ҳ������Ѻ͹��ѵ�</td>
              <td><input name="budget" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="8">�ҷ</td>
            </tr>
			 <tr> 
              <td>������ҳ������ԧ</td>
              <td><input name="real_budget" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="8">�ҷ</td>
            </tr>
			<tr><td >�ѹ������ç��� </td><td ><select name="bdate" id="bdate">
                <% 		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="bmonth" id="bmonth">
                   <%
				   nummonth=array(0,01,02,03,04,05,06,07,08,09,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>
              
              <select name="byear" id="byear">
                  
                  <% 
	
mydate=date
myyear=year(mydate)
mym=month(mydate)
if mym>4 then
yearbegin=myyear+540
myyear=myyear+544
else
yearbegin=myyear+540
myyear=myyear+543
end if

'myyear=myyear+543
'response.write "<tr><td>"&yearbegin&"</td></tr>"
i=0

do while i<5
	%>
                  <option <%
		if yearbegin=myyear then 
		%>
		value=<%=myyear%>
		selected
		<%else%>
		<%end if%>> <%=yearbegin%> </option>
                  <%i=i+1
	yearbegin=yearbegin+1
		loop
		%>
                </select></td>
            </tr>
			<tr><td >�ѹ����ش�ç��� </td><td ><select name="edate" id="edate">
                <% 		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="emonth" id="emonth">
                   <%
				   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>
              
              <select name="eyear" id="eyear">
                  
                  <% 
	
mydate=date
myyear=year(mydate)
mym=month(mydate)
if mym>4 then
yearbegin=myyear+542
myyear=myyear+544
else
yearbegin=myyear+542
myyear=myyear+543
end if

'myyear=myyear+543
'response.write "<tr><td>"&yearbegin&"</td></tr>"
i=0

do while i<5
	%>
                  <option <%
		if yearbegin=myyear then 
		%>
		value=<%=myyear%>
		selected
		<%else%>
		<%end if%>> <%=yearbegin%> </option>
                  <%i=i+1
	yearbegin=yearbegin+1
		loop
		%>
                </select></td>
            </tr>
			<tr>
              <td>Ἱ</td>
              <td><select name="id_plan">
                  <% 
			  set orscr=server.createobject("adodb.recordset")
	 sqlcr="select * from project_plan"
	 orscr.open sqlcr,Conn,1,3
	 if not orscr.eof then
	orscr.movefirst
	do while not orscr.eof
			response.write "<option value="&orscr("id_plan")&">"&orscr("plan_name")&" </option>"
		orscr.movenext
		loop
		end if
		%>
                </select>
				</td></tr>
	<tr>
              <td>��</td>
              <td><select name="id_budget">
                  <% 
			  set orscr=server.createobject("adodb.recordset")
	 sqlcr="select * from project_budget"
	 orscr.open sqlcr,Conn,1,3
	 if not orscr.eof then
	orscr.movefirst
	do while not orscr.eof
			response.write "<option value="&orscr("id_budget")&">"&orscr("budget_name")&" </option>"
		orscr.movenext
		loop
		end if
		%>
                </select>
				</td></tr>		
            <tr> 
              <td>&nbsp;</td>
              <td><input type="submit" name="Submit" value="Submit"></td>
            </tr>
          </table>
          <p>&nbsp;</p>
          <p>&nbsp;</p>
        </form>
        <p>&nbsp;</p>
        <p></p>
		<p></p>
      </div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th tel.02-649-5000 ext 7647 </td>
  </tr>
</table>
</body>
</html>
		<%
		else
		response.write "No Permission"
		response.write "<a href=index_academic.asp>Return</a>"
end if

File Manager

Editing: project_add_form.asp.bak