File Manager

<%response.cachecontrol="private"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<form method="post" action="search_thesis.asp">
keyword <input type="text" name="keyw" style="font-size=16px">
 <input name="submit" type="submit" id="submit" value="Go" style="font-size=16px">
�鹨ҡ��������ͧ��Ъ��ͼ���Ԩ��
	
</form>
<%
keyw=request.form("keyw")

Response.write "���� "& keyw 
Response.write "<table>"
response.write "<tr bgcolor=#CC66FF><td align=center>���<td align=center>��������ͧ<td align=center>���ա���֡��/�ͺ�ҡ���������<td>Download</tr>"

'strSQL= "select * "

strSQL = "SELECT id_thesis, thesis_th, thesis_eng, id_stu,abstract,full_thesis FROM thesis WHERE thesis_th LIKE '%"&keyw&"%' or thesis_eng like '%"&keyw&"%'  "

'strSQL = strSQL & " ORDER BY deSC"
'Response.write strSQL
  set orssg=server.createobject("adodb.recordset")
		orssg.open strSQL,conn,1,3
		if not orssg.eof then
		a=1

orssg.movefirst	
		do while not orssg.eof 
		
			
			'sqlstu="select id_stu, name_stu, sur_stu, status_edu from student where id_stu='"&orssg("id_stu")&"' and status_edu='"&fedu&"'"
			sqlstu="select id_stu, name_stu, sur_stu,y_finish_edu, id_status_edu from student where id_stu='"&orssg("id_stu")&"' and id_status_edu=2 "
			Set orsstu=server.createobject("adodb.recordset")
			orsstu.open sqlstu,conn,1,3
			If Not orsstu.eof Then
					If a Mod 2 = 1 Then
		bgc="#E1E9E9"
		Else bgc="fffff"
		End if
			Response.write "<tr bgcolor='"&bgc&"'><td>"&a&"<td   valign=top>-"&orssg("thesis_th")&"<br><li>"&orssg("thesis_eng")&"</td>"
			Response.write "<td width=200>"&orsstu("name_stu")&" "&orsstu("sur_stu")
			Response.write "<td>"&orsstu("y_finish_edu")
			Response.write "<td>"
			a=a+1

if orssg("abstract")<>"" then
	response.write " [<a href=hitc_Absthesis.asp?id_thesis="&orssg("id_thesis")&">Abs</a>]"
					
else
	response.write "[Abs]"
end if

if orssg("full_thesis")<>"" then
	response.write "[<a href=hitc_fullthesis.asp?id_thesis="&orssg("id_thesis")&">Full</a>]<br>"
else
	response.write "[Full]<br>"
end If
Response.write "<br>"
	'����ô�ǹ���Ŵ���

'���������ʴ���¡�ú������ͧ���Ե�������Ǣ�ͧ�Ѻ��ԭ�ҹԾ���
sqlart="select * from student_article where id_thesis='"&orssg("id_thesis")&"'"
		set orsart=server.createobject("adodb.recordset")
		orsart.open sqlart,conn,1,3
			if not orsart.eof Then
			
				orsart.movefirst
				Do While Not orsart.eof 
	If not orsart("art_file") Is Nothing Then

Response.write "<br>[<a href=art/"&orsart("art_file")&">Art</a>]"
End If

Response.write "<br>"
				orsart.movenext
				
				Loop
			End If
			'����� Download file
			End if

orssg.movenext
		
		Loop
		End If
		
'���Ҩҡ���͹��Ե��ҧ��
sqlstu1="select * from student where name_stu like '%"&keyw&"%' or sur_stu like '%"&keyw&"%' and id_status_edu=2 "
			Set orsstu1=server.createobject("adodb.recordset")
			orsstu1.open sqlstu1,conn,1,3
			If Not orsstu1.eof Then
a1=1
			orsstu1.movefirst
			Do While Not orsstu1.eof

strSQL1 = "SELECT * FROM thesis WHERE id_stu ='"&orsstu1("id_stu")&"' "

'strSQL = strSQL & " ORDER BY deSC"
'Response.write strSQL
  set orssg1=server.createobject("adodb.recordset")
		orssg1.open strSQL1,conn,1,3
		if not orssg1.eof then
		orssg1.movefirst	
		do while not orssg1.eof

If a1 Mod 2 = 1 Then
		bgc1="#E1E9E9"
		Else bgc1="fffff"
		End if
			Response.write "<tr bgcolor='"&bgc1&"'><td>"&a1&"<td   valign=top>-"&orssg1("thesis_th")&"<br><li>"&UCase(orssg1("thesis_eng"))&"</td>"

'response.write "<td   valign=top>-"&orst("thesis_th")&"<br><li>"&UCase(orst("thesis_eng"))&"</td>"

Response.write "<td width=200>"&orsstu1("name_stu")&" "&orsstu1("sur_stu")

'---------------------------
'Response.write "<td>"&orsstu1("y_finish_edu")
'Response.write "<td>"
				If  orsstu1("f_edu")<>"" Then
						response.write "<td valign=top>"&orsstu1("f_edu_semeter")&"/"&orsstu1("f_edu_year")&"</td>"
				Else
							
						
					sqlth_test="select * from thesis_test where id_thesis='"&orssg1("id_thesis")&"'and id_type_test=2"
					Set orsth_test=server.createobject("adodb.recordset")
					orsth_test.open sqlth_test,conn,1,3
						If Not orsth_test.eof Then

response.write "<td valign=top>"&orsth_test("year1")&"</td>"
						
						else
							response.write "<td valign=top>"&orssg1("id_academic_semeter")&"/"&orssg1("academic_year")&"</td>"
						End If				
				End if
'-----------------------------------------
			
			Response.write "<td>"
			a1=a1+1
if orssg1("abstract")<>"" then
	response.write " [<a href=hitc_Absthesis.asp?id_thesis="&orssg1("id_thesis")&">Abs</a>]"
					
else
	response.write "[Abs]"
end if

if orssg1("full_thesis")<>"" then
	response.write "[<a href=hitc_fullthesis.asp?id_thesis="&orssg1("id_thesis")&">Full</a>]"
else
	response.write "[Full]"
end If

'����ô�ǹ���Ŵ���

'���������ʴ���¡�ú������ͧ���Ե�������Ǣ�ͧ�Ѻ��ԭ�ҹԾ���
sqlart1="select * from student_article where id_thesis='"&orssg1("id_thesis")&"'"
		set orsart1=server.createobject("adodb.recordset")
		orsart1.open sqlart1,conn,1,3
			if not orsart1.eof Then
			
				orsart1.movefirst
				Do While Not orsart1.eof 
	If not orsart1("art_file") Is Nothing Then

Response.write "[<a href=art/"&orsart1("art_file")&">Art</a>]"
End If

Response.write "<br>"
				orsart1.movenext
				
				Loop
			End If
			'����� Download file
			orssg1.movenext
			Loop
			End if

orsstu1.movenext
		
		Loop
		End if
Response.write "</table>"
datek1=now
sqldata="insert into keywords_thesis(kw,datek1)  values('"&keyw&"','"&datek1&"')"

set orsdata = Server.CreateObject("adodb.recordset")
 orsdata.open sqldata,conn,1,3
 session("kw")=keyw

</div>    </td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: search_thesis.asp.bak