File Manager

<%@ Language=VBScript %>
<% ' Option Explicit

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=excelTest.xls"

Dim conn,strSQL,objRec
Set conn = Server.Createobject("ADODB.Connection")
conn.Open "Driver={SQL Server};Server=BSRI\bsriserver;Database=test;UID=sa;PWD=sonteeen;"
%>

<html>
<style>
#customers {
  font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
  border-collapse: collapse;
  width: 100%;
}

#customers td, #customers th {
  border: 0px solid #ddd;
  padding: 8px;
}

#customers th {
  padding-top: 12px;
  padding-bottom: 12px;
  text-align: left;
  background-color: #4CAF50;
  color: white;
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<table>
    <tr>
        <td>Test</td>
    </tr>
	<%'
Response.write "aaa"

%>
    <tr>

<td align="left" valign="top">
<%
'date1=datepart("d",date)
			'month1=month(now())
			y=year(now())
			y=543+y
'y=right(y,2)
			
'*****************************************************************

<%
'id_stug=request("id_sg")

'*****************************************************************
  'if session("tb_preview") =2 or session("id_stu1") = id_stu  then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
 '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
		  
%>
<br>

<table  border="0" align="center" cellpadding="0" cellspacing="0" width="100%">
            <tr > <td>
             
			  <%

'  sql_data="select * from student_group where id_stugroup='"&id_stug&"' "
	' set ors_data=server.createobject("adodb.recordset")
	' ors_data.open sql_data,conn,1,3
	 'if not ors_data.eof then
%>
            </tr>

                    <h2 class="media-heading text-uppercase">��������´��������˹�� �Ҥ���¹��� <%

'End if					
					
					
					
					%></h2>
                    
          
 
                 
            </td></tr>
</table>
</html>

File Manager

Editing: rp_excel.asp