File Manager

<%
'*****************************************************************
'http://bsris.swu.ac.th/list_thesis_test.asp?idtype=1

'http://bsris.swu.ac.th/list_status_stu.asp?c1=1&t1=2
session("tb_name")="thesis"
%>

<%
		  pern=session("username")
		  per="2"
		  tb="student"
		  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
%>
		
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� ICT</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="bsri2006.css" rel="stylesheet" type="text/css">
</head>
	
<body>
<table width="100%" border="0" cellspacing="1">
  <tr> 
    <td><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif"><div align="center"><strong>���ҧ����ͺ����ç/�ҡ����</strong></div></td>
  </tr>
  <tr> 
    <td valign="top"> 
      <table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCFFCC">
	  <tr><td colspan="8">[<a href=list_thesis_test.asp?idtype=1>����ͺ�Ѩ�غѹ</a>][<a href=list_thesis_test.asp?idtype=2>����ͺ������</a>][<a href=list_thesis_test.asp?idtype=3>����ͺ Oral ������</a>][<a href=list_thesis_test.asp?idtype=4>����ͺ����ç������</a>] �ѹ����ѹ=<%=now()%>[<a href=http://bsris.swu.ac.th>�ͧ��ͧ</a>][<a href="FileNews/handbook_reserve_room.pdf">������</a>]</td>
        </tr>
        <tr bgcolor="#66CC00"> 
          <td><div align="center">�ӴѺ���</div></td>
          <td><div align="center">�ѹ��͹��</div></td>
          <td><div align="center">����</div></td>
          <td><div align="center">��ͧ</div></td>
          <td><div align="center">����������ͺ</div></td>
          <td width=300><div align="center">����ͧ</div></td>
          
          <td><div align="center">��С�������ͺ</div></td>
        </tr>
        	<%
			date1=datepart("d",date)
			month1=month(now())
			y=year(now())
			y=543+y

if date1=1 then
							date1="01" 
							elseif date1=2 then
							date1="02"
							elseif date1=3 then
							date1="03"
							elseif date1=4 then
							date1="04"
							elseif date1=5 then
							date1="05"
							elseif date1=6 then
							date1="06"
							elseif date1=7 then
							date1="07"
							elseif date1=8 then
							date1="08"
							elseif date1=9 then
							date1="09"
							end if
		if month1=1 then
							month1="01" 
							elseif month1=2 then
							month1="02"
							elseif month1=3 then
							month1="03"
							elseif month1=4 then
							month1="04"
							elseif month1=5 then
							month1="05"
							elseif month1=6 then
							month1="06"
							elseif month1=7 then
							month1="07"
							elseif month1=8 then
							month1="08"
							elseif month1=9 then
							month1="09"
							end if
			dcheck=y&""&month1&""&date1
			response.write int(dcheck)
	idtype=request("idtype")

if idtype=1 then
	sql="select * from thesis_test where dtestreal >="&int(dcheck)&" order by dtestreal asc, id_time asc"
	elseif idtype=2 then
sql="select * from thesis_test  order by dtestreal desc, id_time asc"
	elseif idtype= 3 then
sql="select * from thesis_test where id_type_test=2 order by dtestreal desc, id_time asc"
	elseif idtype=4 then
sql="select * from thesis_test where id_type_test=1order by dtestreal desc, id_time asc"
	end if
	'sql="select * from thesis_test where dtest='"&dcheck&"'"
	'response.write sql
	
	set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
				if not ors.eof then

ors.movefirst
					a=1
					do while not ors.eof
					      if ors("dtestreal")=dcheck then
							bg="#d4d5d7"
							'response.write ors("dtest")
							else bg="#ffffff"
						end if
					response.write "<tr bgcolor="&bg&"><td>"&a'&"-"& int(dcheck)&"-"&ors("dtest")
					response.write "<td><div align=center>"&ors("date2")&"-"&ors("month2")&"-"&ors("year2")'&"-"&ors("dtest")&""&dcheck	
					id_time=ors("id_time")
							sqlti="select * from time_test where id_time='"&id_time&"'"
							set orsti=server.createobject("adodb.recordset")
							orsti.open sqlti,conn,1,3
if not orsti.eof then
	response.write "<td><div align=center>"&orsti("time_name")
end if
	id_room=ors("id_room")
	sqlro="select * from room where id_room='"&id_room&"'"
	set orsro=server.createobject("adodb.recordset")
	orsro.open sqlro,conn,1,3
		if not orsro.eof then
	response.write "<td><div align=center>"&orsro("room")
end if						
	id_type_test=ors("id_type_test")
	sql1="select * from type_test_thesis where id_type_test='"&id_type_test&"'"
	set ors1=server.createobject("adodb.recordset")
	ors1.open sql1,conn,1,3
	if not ors1.eof then
		type_test=ors1("test_name")
		response.write "<td><div align=center>"&type_test
	end if
		id_thesis=ors("id_thesis")
		sqlth="select * from thesis where id_thesis ='"&id_thesis&"'"
	set orsth=server.createobject("adodb.recordset")
orsth.open sqlth,conn,1,3
	if not orsth.eof then
	id_stu=orsth("id_stu")
	sqlst="select * from student where id_stu='"&id_stu&"'"
set orsst=server.createobject("adodb.recordset")
orsst.open sqlst,conn,1,3
	if not orsst.eof then
	response.write "<td width=300>"
		response.write orsth("thesis_th")&"<div align=center>("&id_thesis&")<br>"&orsst("name_stu")&" "&orsst("sur_stu")
			'response.write  "<br>"&orsth("thesis_th")
	end if
												
end if
				
			'	response.write "<td><div align=center>"&ors("amonth")
				id=ors("id")
				'response.write "..."&id&"..."
					sqll="select * from committee_thesis where id ='"&id&"' order by id_num"
						set orsl=server.createobject("adodb.recordset")
						orsl.open sqll,conn,1,3
if not orsl.eof then	
	orsl.movefirst
	response.write "<td>"
	do while not orsl.eof
	'response.write "<td>"&id_lecturer&""&sqll
	id_lecturer=orsl("id_lecturer")
	if id_lecturer="000" then
	response.write orsl("id_num")&"."&orsl("oral_out")&"<br>"
		else
	sql1="select * from lecturer where id_lecturer='"&id_lecturer&"'"
		set ors1=server.createobject("adodb.recordset")
	ors1.open sql1,conn,1,3
	if not ors1.eof then
		response.write orsl("id_num")&"."&ors1("name_lec")&"  "&ors1("sur_lec")&"<br>"
	end if
end if
orsl.movenext
									loop
								end if
				a=a+1
		        bg="#ffffff"
				ors.movenext
				loop
				else
				response.write "<tr><td colspan=8 align=center>����ա���ͺ</td></tr>"
				end if
			%>	
      </table> </td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif">&nbsp;</td>
  </tr>

</table>
</body>
</html>

File Manager

Editing: list_thesis_test.asp