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>

<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>
		<%
		id_project=request("id_project")
		sqlall="select * from project where id_project='"&id_project&"'"
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		response.write sqlall
				if not orsall.eof then
				'orsall.movefirst
			'		do while not orsall.eof
						response.write "<table width=573 border=0 cellspacing=0>"
						response.write "<tr><td>�����ç���</td><td><input name=id_project type=text id=id_project onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength=4 value="&orsall("id_project")&" readonly></td></tr>"
						response.write "<tr><td>�����ç���</td><td><textarea name=project_n cols=60 rows=3 id=project_n>"&orsall("project_name")&"</textarea></td></tr>"
						response.write "<tr><td>��������´</td><td><textarea name=project_n cols=60 rows=3 id=project_n>"&orsall("project_detail")&"</textarea></td></tr>"
						response.write "<tr><td>�է�����ҳ</td><td><input name=project_year type=text id=project_year onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength=4 value="&orsall("project_year")&"></td></tr>"
						response.write "<tr><td>������ҳ������Ѻ͹��ѵ�</td><td><input name=budget type=text id=budget onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength=8 value="&orsall("budget")&"></td></tr>"
						response.write "<tr><td>������ҳ������ԧ</td><td><input name=real_budget type=text id=real_budget onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength=8 value="&orsall("real_budget")&"></td></tr>"
						response.write "<tr><td>�ѹ������ç���</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_fcontact=orsall("bdate")
				 ' response.write numday(i)
				  %>

<div >
                  <select name="bdate">
				  <% 				  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","01","02","03","04","05","06","07","08","09","10","11","12")
				nummonthth=array("��͹","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  ii=lbound(nummonth)
				  iii=lbound(nummonthth)
				  m_fcontact=orsall("bmonth")
				 ' if mp="�չҤ�" then
				'  mp="03"
				  'end
				  %>
                  <select name="bmonth">
				    <%
				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>
				  <INPUT TYPE="text" NAME="byear" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength="4" value=<%=orsall("byear")%> size = "4"  > 
						</td></tr>
						
						<%
						response.write "<tr><td>�ѹ����ش�ç���</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_fcontact=orsall("edate")
				 ' response.write numday(i)
				  %>
						 <select name="edate">
				  <% 				  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","01","02","03","04","05","06","07","08","09","10","11","12")
				nummonthth=array("��͹","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  ii=lbound(nummonth)
				  iii=lbound(nummonthth)
				  m_fcontact=orsall("emonth")
				 ' if mp="�չҤ�" then
				'  mp="03"
				  'end
				  %>
                  <select name="emonth">
				    <%
				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>
				  <INPUT TYPE="text" NAME="eyear" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength="4" value=<%=orsall("eyear")%> size = "4"  > 
						</td></tr>
				   <%
						
						response.write "<tr><td>Ἱ�ҹ</td><td>"%>

<SELECT NAME="id_plan">
			  <%
		   id_plan=cint(orsall("id_plan"))
		  sqlcr="select * from project_plan"
		  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_plan"))=cint(id_plan) then 
			  %>
		value=<%=id_plan%>
		selected
		<%else%> 
		value=<%=orscr("id_plan")%>	
		<%end if%>> 
		<%=orscr("plan_name")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT>					
						<%
						response.write id_plan&"</td></tr>"
						response.write "<tr><td>��</td><td>"
						%>

<SELECT NAME="id_budget">
			  <%
		   id_budget=cint(orsall("id_budget"))
		  sqlcr="select * from project_budget"
		  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_budget"))=cint(id_budget) then 
			  %>
		value=<%=id_budget%>
		selected
		<%else%> 
		value=<%=orscr("id_budget")%>	
		<%end if%>> 
		<%=orscr("budget_name")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT>					
						<%
						response.write id_budget&"</td></tr>"
						response.write "<tr><td>�Դ�ç���</td><td>"&id_project
						response.write "<select name=id_status >"
						response.write "<option value=1 selected>���Դ</option>"
						response.write "<option value=2>�Դ</option>"
						response.write "</select></td></tr>"

else
		response.write "No project"
		end if
		%>

</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_edit.asp.bak