File Manager

<%
'Response.ContentType = "application/vnd.ms-word" 
' Adds a header to give the document a name
'response.AddHeader "content-disposition", "inline; filename=report_detail.doc"
%>
<!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>
  <%id=request("id")%>
  <tr> 
    <td valign="top"> 
      <table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCFFCC">

<%
			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 mreceive=8 then
							mreceive="08"
							elseif month1=9 then
							month1="09"
							end if
			dcheck=y&""&month1&""&date1
			
			'response.write int(dcheck)
	'sql="select * from thesis_test where dtest>="&int(dcheck)&" and id='"&id&"'"
	sql="select * from thesis_test where id='"&id&"'"
	'response.write sql
	set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
				if not ors.eof then
				   ors.movefirst
					a=1
					'response.write a
					do while not ors.eof
					response.write "<tr><td colspan=7><div align=left>id   "&id
					response.write "   <strong><font color=#666666>--�ѹ����ͺ��ԧ-- </font></strong>  "&ors("date2")&"-"&ors("month2")&"-"&ors("year2")	
					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 "  <div align=left>   <strong><font color=#666666>--����--</font></strong>   "&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 "    <strong><font color=#666666>--��ͧ�ͺ--</font></strong>    "&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 "<strong><font color=#666666>   --����������ͺ--    </font></strong>       "&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
										'response.write orsth("id_stu")

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 "<tr><td colspan=3><strong><font color=#666666>����-ʡ�ż���ͺ</font></strong><td colspan=4><div align=left>"&orsst("name_stu")&" "&orsst("sur_stu")&"<tr><td colspan=3><strong><font color=#666666>��������ͧ</font></strong><td colspan=4>"&orsth("thesis_th")
															end if
												
										end if
				
				
	id=ors("id")
	sqll="select * from committee_thesis where id ='"&id&"'"
		set orsl=server.createobject("adodb.recordset")
		orsl.open sqll,conn,1,3
		if not orsl.eof then	
		orsl.movefirst
		response.write "<tr><td colspan=7 bgcolor=#F4FFDD><strong><font color=#666666>��С�������ͺ</font></strong>"

do while not orsl.eof
			'response.write "<td>"&id_lecturer&""&sqll
		id_lecturer=orsl("id_lecturer")
		id_position_thesis=orsl("id_position_thesis")
		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 "<tr><td colspan=7>-"&ors1("name_lec")&"  "&ors1("sur_lec")
				If orsl("id_lecturer")="000" Then
				Response.write orsl("oral_out")
				End if
		end if

sql2="select * from position_thesis where id_position_thesis = '"&id_position_thesis&"'"
		set ors2=server.createobject("adodb.recordset")
			ors2.open sql2,conn,1,3
			'response.write sql2
		if not ors2.eof then
		response.write "("&ors2("position_thesis")&")"
		end if
		orsl.movenext
		loop
	end if
		response.write "<tr><td colspan=7 >.<tr><td colspan=3><strong><font color=#666666>�ӹǹ���Ѵ����§</font></strong>"
		response.write "<td colspan=4>"&ors("amonth")&"</td></tr>"
				a=a+1

'dcreate=ors("dtest")
				response.write "<tr><td colspan=7><div align=right>�ѹ�֡�ѹ���"&dcreate
				response.write now()
					ors.movenext
				loop			
				end if

%>	
			<tr><td colspan=7><div align=right><br>ŧ����...........................................................���Ե<br>�к��ѹ.................................................<br>
      </table> </td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif">&nbsp;</td>
  </tr>

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

File Manager

Editing: print_thesis_test.asp.bak