File Manager

<%response.cachecontrol="private"%>


<%
		  pern=session("username")
		  per="2"
		  tb="equipment"
		  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">
<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="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><strong>��¡�ä���ѳ��ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</strong></p>
        <%	  id=request("id_equipment")
			sqlall="select * from equipment where id_equipment='"&id&"'"
			set orsall=server.createobject("adodb.recordset")

orsall.open sqlall,conn,1,3
			   if not orsall.eof then
			  %>
			  <form name="form1" method="post" action="equipment_edit.asp">
          <table width="100%" border="1" cellspacing="0">
            
            <tr>
              <td width="152">�����Ţ����ѳ��</td>	<% response.write "<td><input type=text name=id_equipment value="&orsall("id_equipment")&" readonly></td></tr>"%>
<tr>
              <td>Serial Number</td>
              <%response.write "<td><input type=text name=serial_eq value="&orsall("serial_eq")&"></td></tr>"%>
<tr>
              <td>������</td>
              <%response.write "<td><input type=text name=id_brand value="&orsall("id_brand")&"></td></tr>"%>
<tr>
              <td>���</td>
              <%response.write "<td><textarea name=number>"&orsall("number")&"</textarea></td></tr>"%>
<tr>
              <td>Price</td>
              <%response.write "<td><input type text name=price value="&orsall("price")&"></td></tr>"%>
             <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_purchase=orsall("d_purchase")
				 ' response.write numday(i)
				  %>

<div >�ѹ 
                  <select name="d_purchase">
				  <% 				  do while i<=ubound(numday)
				  %>
				  <option <% if numday(i)=d_purchase then %>
				  value=<%=d_purchase%> selected <%else%>
				  value=<%=numday(i)%><%end if%>><%=numday(i)%></option>
				<%  i=i+1
				  loop
				  %>
                  </select>
				  
			  
			  <%=orsall("d_purchase")%> 
			  
			  <%
				   nummonth=array("00","01","02","03","04","05","06","07","08","09","10","11","12")
				nummonthth=array("��͹","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  ii=lbound(nummonth)
				  iii=lbound(nummonthth)
				  m_purchase=orsall("m_purchase")

%>
                  <select name="m_purchase">
				    <%
				do while iii<=ubound(nummonthth)
  %>
  <option <% if nummonth(ii)=m_purchase then%>
  value=<%=m_purchase%> selected <%else%>
  value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option>
  <%ii=ii+1
        iii=iii+1
		loop
	%>
                  </select>
			  
			  <%=orsall("m_purchase")%> <INPUT TYPE="text" NAME="y_purchase" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength="4" value=<%=orsall("y_purchase")%>  >

<%'response.write "<td>"&orsall("d_purchase")&"/"&orsall("m_purchase")&"/"&orsall("y_purchase")%>
                  
              <tr><td>�ӹǹ�շ���Ѻ��Сѹ</td><%response.write "<td><input type = text name =time_assure value="&orsall("time_assure")&"></td>"%> </tr>
<tr>
              <td>�է�����ҳ</td>
              <td><input type="text" name="year_budget" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength="4" value=<%=orsall("year_budget")%>></td>
            </tr>
			<tr>
              <td>�������Թ�ع</td>
              <td>
			  <SELECT NAME="id_type_budget">
			  <%
		   id_type_budget=cint(orsall("id_type_budget"))
		  sqlcr="select * from equipment_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_type_budget"))=cint(id_type_budget) then 
			  %>
		value=<%=id_type_budget%>
		selected
		<%else%> 
		value=<%=orscr("id_type_budget")%>	
		<%end if%>> 
		<%=orscr("type_budget")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT>
			  <%
			'  id_type_budget=orsall("id_type_budget")
			 ' set orst=server.createobject("adodb.recordset")
	' sqlt="select * from equipment_budget where id_type_budget='"&id_type_budget&"'"
	' orst.open sqlt,Conn,1,3
	' if not orst.eof then
	
		'	response.write orst("type_budget")

'	end if
			  %></td>
            </tr>
			<tr>
              <td>�Ըա�èѴ����</td>
              <td> <SELECT NAME="id_method">
			  <%
		   id_method=cint(orsall("id_method"))
		  sqlcr="select * from equipment_method"
		  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_method"))=cint(id_method) then 
			  %>
		value=<%=id_method%>
		selected
		<%else%> 
		value=<%=orscr("id_method")%>	
		<%end if%>> 
		<%=orscr("method")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT><%
			 ' id_method=orsall("id_method")
			 ' set orsm=server.createobject("adodb.recordset")
	' sqlm="select * from equipment_method where id_method='"&id_method&"'"
	' orsm.open sqlm,Conn,1,3
	' if not orsm.eof then
	
	'		response.write orsm("method")

'end if
			  %></select></td>
            </tr>
<tr>
              <td>˹��¹Ѻ</td>
              <td><SELECT NAME="id_unit">
			  <%
		   id_unit=cint(orsall("id_unit"))
		  sqlcr="select * from equipment_unit"
		  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_unit"))=cint(id_unit) then 
			  %>
		value=<%=id_unit%>
		selected
		<%else%> 
		value=<%=orscr("id_unit")%>	
		<%end if%>> 
		<%=orscr("unit")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT><%
			 ' id_unit=orsall("id_unit")
			  'set orsu=server.createobject("adodb.recordset")
	' sqlu="select * from equipment_unit where id_unit='"&id_unit&"'"
	' orsu.open sqlu,Conn,1,3
	' if not orsu.eof then
	'orsu.movefirst
	'do while not orsu.eof
	'		response.write orsu("unit")
	'	orsu.movenext
	'	loop
	'	end if
			  %></td>
            </tr>                                     
              <tr><td>���</td><%response.write "<td><input type=text name=ram value="&orsall("ram")&"></td>"%> </tr>
            <tr><td>HD</td><%response.write "<td><input type=text name=mem_m value="&orsall("mem_m")&"></td>"%> </tr>
			<tr><td>Core Cpu</td><%response.write "<td><textarea name=core_cpu>"&orsall("core_cpu")&"</textarea></td>"%> </tr>
			<tr><td>ʶҹ�����</td><%response.write "<td><textarea name=place rows=3 cols=60>"&orsall("place")&"</textarea></td>"%> </tr>
              <tr><td>����Ѻ�Դ�ͺ</td><td><%'=orsall("id_owner")%>
			  <SELECT NAME="id_owner">
			  <%
		   id_owner=orsall("id_owner")
		  sqlcr="select * from lecturer order by name_lec"
		  set orscr=server.createobject("adodb.recordset")
		  orscr.open sqlcr,conn,1,3
		  if not orscr.eof then
		  orscr.movefirst
			do while not orscr.eof
			id_lecturer=orscr("id_lecturer")
			%>
              <option <%	
			  if id_lecturer=id_owner then 
			  %>
		value=<%=id_owner%>
		selected
		<%else%> 
		value=<%=id_lecturer%>	
		<%end if%>> 
		<%=orscr("name_lec")%> <%=orscr("id_lecturer")%>  <%=orscr("sur_lec")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
	'		id_owner=cint(orsall("id_owner"))
		 sqlcr="select * from staff order by name_st"
		  set orscr=server.createobject("adodb.recordset")
		  orscr.open sqlcr,conn,1,3
		  if not orscr.eof then
		  orscr.movefirst
			do while not orscr.eof
			id_staff=orscr("id_staff")
			%>
              <option <%	
			  if id_staff=id_owner then 
			  %>
		value=<%=id_staff%>
		selected
		<%else%> 
		value=<%=orscr("id_staff")%>	
		<%end if%>> 
		<%=orscr("name_st")%> <%="  "%><%  =orscr("sur_st")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT>
			  
			  
			  <%
			  		'id_owner=orsall("id_owner")
'set orsl=server.createobject("adodb.recordset")
'sqll="select * from lecturer where id_lecturer='"&id_owner&"'"
'orsl.open sqll,Conn,1,3
'if not orsl.eof then

'response.write "<td>"&orsl("name_lec")&" "&orsl("sur_lec")&"</td>"
'else 
'	  set orso=server.createobject("adodb.recordset")
'	 sqlo="select * from staff  where id_staff='"&id_owner&"'"
'	 orso.open sqlo,Conn,1,3
'	 if not orso.eof then

'		response.write "<td>"&orso("name_st")&" "&orso("sur_st")&"</td>"

'		end if

'end if
			  %> </td></tr>
            
                    <% 
		
		'<option>===���˹�ҷ��===</option>%>
		<% 
		
		%>			
                  
              <tr>
              <td>��������´�����</td>
              <td><textarea name="detail_retail"><%response.write orsall("detail_retail")%></textarea></td>
            </tr>
              <tr><td>����������ѳ��</td><td><SELECT NAME="id_type">
			  <%
		   id_type=cint(orsall("id_type"))
		  sqlcr="select * from equipment_type"
		  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_type"))=cint(id_type) then 
			  %>
		value=<%=id_type%>
		selected
		<%else%> 
		value=<%=orscr("id_type")%>	
		<%end if%>> 
		<%=orscr("type_name")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT> </tr>
             
					
				  
                    <%

%>
			<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_retire=orsall("d_retire")
				 ' response.write numday(i)
				  %>

<div >�ѹ 
                  <select name="d_retire">
				  <% 				  do while i<=ubound(numday)
				  %>
				  <option <% if numday(i)=d_retire then %>
				  value=<%=d_retire%> selected <%else%>
				  value=<%=numday(i)%><%end if%>><%=numday(i)%></option>
				<%  i=i+1
				  loop
				  %>
                  </select>
				  
			  
			  <%=orsall("d_retire")%> 
			  
			  <%
				   nummonth=array("00","01","02","03","04","05","06","07","08","09","10","11","12")
				nummonthth=array("��͹","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  ii=lbound(nummonth)
				  iii=lbound(nummonthth)
				  m_purchase=orsall("m_retire")

%>
                  <select name="m_retire">
				    <%
				do while iii<=ubound(nummonthth)
  %>
  <option <% if nummonth(ii)=m_purchase then%>
  value=<%=m_purchase%> selected <%else%>
  value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option>
  <%ii=ii+1
        iii=iii+1
		loop
	%>
                  </select>
			  
			  <%=orsall("m_retire")%> <INPUT TYPE="text" NAME="y_retire" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' maxlength="4" value=<%=orsall("y_retire")%>  >  
			  <%'response.write "<td>"&orsall("d_retire")&"/"&orsall("m_retire")&"/"&orsall("y_retire")%>
              <tr><td>ʶҹФ���ѳ��</td>
			<td>  <SELECT NAME="id_status">
			  <%
		   id_status=cint(orsall("id_status"))
		  sqlcr="select * from equipment_status"
		  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_status"))=cint(id_status) then 
			  %>
		value=<%=id_status%>
		selected
		<%else%> 
		value=<%=orscr("id_status")%>	
		<%end if%>> 
		<%=orscr("status_name")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			loop
		 		  end if
		  %></SELECT> 
			  <%
			'  id_status=orsall("id_status")					
	'  set orss=server.createobject("adodb.recordset")
	' sqls="select * from equipment_status where id_status='"&id_status&"'"
'	 orss.open sqls,Conn,1,3
'	 if not orss.eof then
'				response.write "<td>"&orss("status_name")&"</td>"
'	end if
	            response.write "<tr> <td>��������´�������</td>"
			  response.write "<td><textarea name=more_detail rows=3 cols=60>"&orsall("more_detail")	&"</textarea></td>"	 
'			   response.write "<tr><td>[<a href=equipment_edit_form.asp?id_equipment="&orsall("id_equipment")&">Edit</a>]"

orsall.movenext
					 'loop
			  end if%> </tr>

<%
		
			 
					  'orsall.movefirst
							'do while not orsall.eof

'response.write "<td>"&orsall("date_purchase")&"</td>"
							
'�ӹǳ���ء����ҹ
							response.write "<td></td>"

%>
			  <tr>
              <td>&nbsp;</td>
              <td><input type="submit" name="Submit" value="Submit"></td>
            </tr>
          </table>

</div>
    </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>
</html>
		<%
		else
		response.write "No Permission"
		response.write "<a href=index_academic.asp>Return</a>"
end if

File Manager

Editing: equipment_edit_form.asp.bak