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>
		<table align=center>
              <tr bgcolor=#CCCC99> 
                <td><strong>�дѺ</td>
                <td><strong>Ẻ</td>
        <td><strong>�زԡ���֡��</td>
               <td><strong>�Ң�</td> 
				
                <td><strong>Action</td>
                <%
sqlall="select * from curriculum_manage order by id_curriculum asc"
set orsall=server.createobject("adodb.recordset")
orsall.open sqlall,conn,1,3

if not orsall.eof then
a=0
orsall.movefirst

do while not orsall.eof
id_curriculum=orsall("id_curriculum")
a=a+1
'response.write "<tr><td>"&sqlall
			if a mod 2 = 0 then
					bg="#E0E0E0"
			else
					bg="#FFFFFF"
			end if
   sql_o_po="select * from curriculum where id_curriculum='"&id_curriculum&"'"

set ors_o_po=server.createobject("adodb.recordset")
	  ors_o_po.open sql_o_po,conn,1,3
	  if not ors_o_po.eof then

response.write "<tr bgcolor="&bg&"><td>"&ors_o_po("curriculum_full")&"</td>"

response.write "<td>"
id_type_curr=orsall("id_type_curri")

set ors_tc=server.createobject("adodb.recordset")
	 sqlmark_tc="select * from type_curriculum where id_type_curri='"&id_type_curr&"'"
	 ors_tc.open sqlmark_tc,Conn,1,3
if not ors_tc.eof then
		response.write ors_tc("type_curri_th")&"</td>"
		id_edu_bg=orsall("id_edu_bg")
		
     sql_pre="select * from education_bg where id_edu_bg='"&id_edu_bg&"'"
	  set ors_pre=server.createobject("adodb.recordset")
	  ors_pre.open sql_pre,conn,1,3		
	  if not ors_pre.eof then
response.write "<td>"&ors_pre("edu_th")&"</td>"	
id_major=orsall("id_major")
     sql_sta="select * from major where id_major='"&id_major&"'"
	  set ors_sta=server.createobject("adodb.recordset")
	  ors_sta.open sql_sta,conn,1,3
	  if not ors_sta.eof then
response.write "<td>"&ors_sta("major_th")&"</td>"
end if
response.write "<td>[<a href=detail_thesis.asp?id_curriculum_manage="&orsall("id_curriculum_manage")&">��������´</a>]"

end if
end if
end if
orsall.movenext
loop
conn.close

else
response.write "No Curriculum"
end if
%>
              </tr>
            
          </div></td>
       
      </tr></table>

<%
		
		  
		  %>
		  <%
on error resume next

set fso = createobject("scripting.filesystemobject")

set act = fso.opentextfile(server.mappath("asp_count.txt"))

counter = clng(act.readline)

counter = counter + 1

act.close

Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)

act.WriteLine(counter)

act.Close
sqlc= "SELECT COUNT(id_thesis) AS NumberDownload FROM keywords_Lthesis"
Set orsc=server.createobject("adodb.recordset")
orsc.open sqlc,conn,1,3
'Response.write "aa"
If Not orsc.eof then
Response.write "<br><div align=right>Download = "&orsc("NumberDownload")
End If
sqlc1="SELECT COUNT(DISTINCT kw) AS NumberKeywords FROM keywords_thesis"
Set orsc1=server.createobject("adodb.recordset")
orsc1.open sqlc1,conn,1,3
If Not orsc1.eof then

Response.write "<br><div align=right>Keywords = "&orsc1("NumberKeywords")
End if
Response.Write counter
Response.write "<br>24/3/60"
%>
		  
     
        <p><a href="https://info.flagcounter.com/QvH1"><img src="https://s11.flagcounter.com/count2/QvH1/bg_FFFFFF/txt_000000/border_CCCCCC/columns_2/maxflags_10/viewers_0/labels_0/pageviews_0/flags_0/percent_0/" alt="Flag Counter" border="0"></a></p>
        <p></p>
		<p></p>
      </div>    </td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: thesis_public.asp.bak