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" 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"></td>
    <td width="77%" align="left" valign="top">
      <div align="center">
        <p><strong>��¡�ä���ѳ��ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</strong></p>
		[<a href=equipment_add_form.asp>������¡��</a>][<a href=equipment_search.asp?id_search=0>��¡�÷�����</a>]<FORM METHOD=POST ACTION="equipment_search.asp">
		keyword<INPUT TYPE="text" NAME="key_word"><select name="id_type_budget"><option value=99>�������Թ������</option><%
			  set orst=server.createobject("adodb.recordset")
	 sqlt="select * from equipment_budget"
	 orst.open sqlt,Conn,1,3
	 if not orst.eof then
	orst.movefirst
	do while not orst.eof
			response.write "<option value="&orst("id_type_budget")&">"&orst("type_budget")&" </option>"
		orst.movenext
		loop
		end if
			  %></select><select name="id_type">
					
				  <option value=99>����������ѳ��</option>
                    <% 
			  set orsl=server.createobject("adodb.recordset")
	 sqll="select * from equipment_type"
	 orsl.open sqll,Conn,1,3
	 if not orsl.eof then
	orsl.movefirst
	do while not orsl.eof
			response.write "<option value="&orsl("id_type")&">"&orsl("type_name")&"</option>"
		orsl.movenext
		loop
		end if

%></select><br>�է�����ҳ
			<%
myyear=year(date)
myyear=myyear+543
%>
<input name="year_budget" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=myyear-11%>>�֧<input name="year_budget2" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" maxlength="4" value=<%=myyear%>>
			<input type="submit" name="Submit" value="Submit">
		</FORM>
        
          <table width="100%" border="1" cellspacing="0">
            
            <tr>
              <td >�����Ţ����ѳ��</td>

<td>������+���</td>
              
              <td>�ѹ��͹�շ�����</td>
              <td>���ء����ҹ</td>             
              <td>AssureY</td>
                                     
              
            
              <td>����Ѻ�Դ�ͺ</td>
            
                    <% 
		
		'<option>===���˹�ҷ��===</option>%>
		<% 
		
		%>			
                  
              
              <td>����������ѳ��</td>
             
					
				  
                    <%

%>
			
              <td>ʶҹФ���ѳ��</td>
            
				  
                    <% 
		'	  set orsl=server.createobject("adodb.recordset")
	 'sqll="select * from equipment_status"
	 'orsl.open sqll,Conn,1,3
	' if not orsl.eof then
	'orsl.movefirst
	'do while not orsl.eof
	'		response.write "<option value="&orsl("id_status")&">"&orsl("status_name")&"</option>"
	'	orsl.movenext
	'	loop
	'	end if
			%>
			
      
              <td>Action</td>
              </tr>
			  <%
			  id=request("id")
			  if id=1 then
				sqlall="select * from equipment where id_status=1 and year_budget='"&myyear&"' order by date_purchase desc"
			 ' else if id=2 then
			 else
				sqlall="select * from equipment where id_status=1 and year_budget='"&myyear&"' order by date_purchase desc"
				end if
			  set orsall=server.createobject("adodb.recordset")

orsall.open sqlall,conn,1,3
			  if not orsall.eof then
					  orsall.movefirst
							do while not orsall.eof 
							response.write "<tr><td><a href=equipment_detail.asp?id_equipment="&orsall("id_equipment")&">"&orsall("id_equipment")&"</a></td>"
							'response.write "<td>"&orsall("id_brand")&"("&orsall("number")&")</td>"
							response.write "<td>"&orsall("id_brand")&"</td>"
							'response.write "<td>"&orsall("date_purchase")&"</td>"
							response.write "<td>"&orsall("d_purchase")&"/"&orsall("m_purchase")&"/"&orsall("y_purchase")
'�ӹǳ���ء����ҹ
										month1=month(now())
			y=year(now())
			y=543+y
			m1=cint(orsall("m_purchase"))
			y1=cint(orsall("y_purchase"))
aa=0
			
			if cint(y)>cint(y1) then
			x=cint(y)-cint(y1)
aa=1
				if cint(m1)<=cint(month1) then
					e=cint(month1)-cint(m1)
					aa=4
				elseif cint(m1)>cint(month1) then				
							if cint(y)-1=cint(y1) then
								x=0
							'else 
							aa=5
							end if
					e=12-cint(m1)+cint(month1)
					x=cint(y)-cint(y1)-1
					aa=2
				
				end if
				
			elseif cint(y)=<cint(y1) then
				x=0
				aa=6
				if cint(m1)<=cint(month1) then
					e=cint(month1)-cint(m1)
					aa=7
					elseif cint(m1)>cint(month1) then
					e=12-cint(m1)+cint(month1)
					aa=8
				end if
				aa=3
			end if
response.write "<td>"&x& " �� "&e&" ��͹"&aa&"</td>"
							response.write "<td>"&orsall("time_assure")&"</td>"
							'response.write "<td>"&orsall("ram")&"</td>"
		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><a href=equipment_search.asp?id_owner="&id_owner&">"&orsl("name_lec")&" "&orsl("sur_lec")&"</a></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><a href=equipment_search.asp?id_owner="&id_owner&">"&orso("name_st")&" "&orso("sur_st")&"</a></td>"

end if

id_type=orsall("id_type")
			  set orsl=server.createobject("adodb.recordset")
	 sqll="select * from equipment_type where id_type='"&id_type&"'"
	 orsl.open sqll,Conn,1,3
	 if not orsl.eof then
	
			response.write "<td>"&orsl("type_name")&"</td>"

end if
		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 "<td>[<a href=equipment_edit_form.asp?id_equipment="&orsall("id_equipment")&">Edit</a>]"
			   orsall.movenext
					  loop
			  end if
			  
			  %>
			  
          </table>
          <p>&nbsp;</p>
          <p>&nbsp;</p>
     
        <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 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: equipmentindex.asp.bak