File Manager

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

'Response.ContentType = "application/vnd.ms-excel"
'Response.AddHeader "Content-Disposition", "attachment; filename=list.xls"
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<html>

<head>
    <title>eHealthy</title>
	<link href="https://fonts.googleapis.com/css2?family=Trirong:wght@500&display=swap" rel="stylesheet">
    
    <link rel="stylesheet" href="https://use.fontawesome.com/releases/v5.4.1/css/all.css" integrity="sha384-5sAR7xN1Nv6T6+dT2mhtzEpVJvfS3NScPQTrOxhwjIuvcA67KV2R5Jz6kr4abQsz" crossorigin="anonymous">
 <style>
@import url(https://fonts.googleapis.com/css?family=Trirong:400,300,600,400italic);
* {
  margin: 0;
  padding: 0;
  box-sizing: border-box;
  -webkit-box-sizing: border-box;
  -moz-box-sizing: border-box;
  -webkit-font-smoothing: antialiased;
  -moz-font-smoothing: antialiased;
  -o-font-smoothing: antialiased;
  font-smoothing: antialiased;
  text-rendering: optimizeLegibility;
}

body {
  font-family: "Trirong", Helvetica, Arial, sans-serif;
  font-weight: 100;
  font-size: 18px;
  line-height: 30px;
  color: #000000;
  background: #ffffff;
}

.container {
  max-width: 90%;
  width: 100%;
  margin: 0 auto;
  position: relative;
}

#contact input[type="text"],
#contact input[type="email"],
#contact input[type="tel"],
#contact input[type="url"],
#contact textarea,
#contact button[type="submit"] {
  font: 400 12px/16px "Trirong", Helvetica, Arial, sans-serif;
}

#contact {
  background: #F9F9F9;
  padding: 25px;
  margin: 150px 0;
  box-shadow: 0 0 20px 0 rgba(0, 0, 0, 0.2), 0 5px 5px 0 rgba(0, 0, 0, 0.24);
}

#contact h3 {
  display: block;
  font-size: 33px;
  font-weight: 500;
  margin-bottom: 10px;

}
#contact h2 {
  display: block;
  font-size: 26px;
  font-weight: 400;
  margin-bottom: 5px;
  text-align: left;

}

#contact h4 {
  margin: 5px 0 15px;
  display: block;
  font-size: 20px;
  font-weight: 400;
}

fieldset {
  border: medium none !important;
  margin: 0 0 10px;
  min-width: 100%;
  padding: 0;
  width: 100%;
  background: #FFF;
  
}

#contact input[type="text"],
#contact input[type="email"],
#contact input[type="tel"],
#contact input[type="url"],
#contact textarea {
  width: 100%;
  border: 1px solid #ccc;
  background: #FFF;
  margin: 0 0 5px;
  padding: 10px;
}

#contact input[type="text"]:hover,
#contact input[type="email"]:hover,
#contact input[type="tel"]:hover,
#contact input[type="url"]:hover,
#contact textarea:hover {
  -webkit-transition: border-color 0.3s ease-in-out;
  -moz-transition: border-color 0.3s ease-in-out;
  transition: border-color 0.3s ease-in-out;
  border: 1px solid #aaa;
}

#contact textarea {
  height: 100px;
  max-width: 100%;
  resize: none;
}
#contact input[type="radio"] {
    border: 0px;
    width: 4em;
    height: 4em;

}

#contact button[type="submit"] {
  cursor: pointer;
  width: 100%;
  border: none;
  background: #cc0000;
  color: #FFF;
  margin: 5px 5px 5px;
  padding: 20px;
  font-size: 29px;
  line-height: 150%;
}

#contact button[type="submit"]:hover {
  background: #43A047;
  -webkit-transition: background 0.3s ease-in-out;
  -moz-transition: background 0.3s ease-in-out;
  transition: background-color 0.3s ease-in-out;
}

#contact button[type="submit"]:active {
  box-shadow: inset 0 1px 3px rgba(0, 0, 0, 0.5);
}

.copyright {
  text-align: center;
}

#contact input:focus,
#contact textarea:focus {
  outline: 0;
  border: 1px solid #aaa;
}

::-webkit-input-placeholder {
  color: #888;
}

:-moz-placeholder {
  color: #888;
}

::-moz-placeholder {
  color: #888;
}

:-ms-input-placeholder {
  color: #888;
}
p {
  border: 0px solid green; 
  padding: 30px 10px;
}
	label {
  font-size: 25px;

vertical-align: middle;
}
#customers {
  
  border-collapse: collapse;
  width: 100%;
}

#customers th {
  border: 1px solid #ddd;
  padding: 8px;
  text-align: center;
  font-size: 18px;
}
#customers td{
  border: 1px solid #ddd;
  padding: 2px;
  text-align: center;
  font-size: 18px;
}

#customers tr:nth-child(even){background-color: #f2f2f2;}

#customers tr:hover {background-color: #ddd;}

#customers th {
  padding-top: 12px;
  padding-bottom: 12px;
  text-align: center;
  background-color: #04AA6D;
  color: white;
  font-size: 18px;
}
ul {
  
  padding: 15px;
}

ul li {
  padding: 5px;
  margin-left: 15px;
}
    </style>
  </head>
  <body>
  
  <h3>��������´���ͺẺ���ͺ
  <%
  author=request("w")
team=request("t")
	If author=0 Then 
		response.write " �ͺ��͹�ӡԨ���� (Pre-test)"
	ElseIf author=2 Then 
		response.write " �ͺ��ѧ�ӡԨ���� (Post-test)"
	ElseIf author=3 Then 
		response.write " �ͺ�Դ��� (Follow)"
	Else 
		Response.write " Error"
	End if
%> </h3> 
    <table id="customers">
<tr><th>Date<th>���<th>����-ʡ��<th>���<th>���˹ѡ<th>��ǹ�٧<th>��<th>��ҧ<th>��<th>����<th>ʶҹ�<th>ʶҹ���� �<th>����֡��<th>�ҹ��ѡ<th>�ҹ��ѡ��� �<th>�����<th>�ѧ��Ѵ<th>�ѧ��Ѵ��� �<th>�����<th>�������� �<th>��ǹ<th>�����ѹ<th>��ӵ������ʹ�٧<th>��ѹ����ʹ�٧<th>��ѹ��еѺ<th>��ҹ�ѹ����Ѵ<th>�������û�ǹ����<th>����͡���ѧ<th>�ٺ������<th>��š�����<th>��þ������� NCD <th>����
<th>2_1<th>2_2<th>2_3<th>2_4<th>2_5<th>2_6<th>2_7<th>2_8<th>2_9<th>2_10<th>2_11<th>2_12<th>2_13<th>2_14<th>2_15<th>2_16<th>2_17<th>2_18<th>2_19<th>2_20<th>2_21<th>2_22<th>2_23<th>2_24<th>2_25<th>2_26<th>2_27<th>2_28<th>3_1<th>3_2<th>3_3<th>3_4<th>3_5<th>3_6<th>3_7<th>3_8<th>3_9<th>3_10<th>3_11<th>3_12<th>3_13<th>3_14<th>3_15<th>3_16<th>3_17<th>3_18<th>3_19<th>3_20<th>3_21<th>3_22<th>3_23<th>3_24<th>3_25<th>3_26<th>3_27<th>3_28<th>3_29<th>3_30<th>�������<th>������</th>
  <%

'rounds=request("r")
If author=0 Then
sqlcheck="select * from ehealth where author='"&author&"' order by team,id desc"
ElseIf author > 0 Then
  sqlcheck="select * from ehealth where author='"&author&"' order by team,id"
else

sqlcheck="select * from ehealth where author='"&author&"' and team='"&team&"' order by team,id"
End if
 set orscheck=server.createobject("adodb.recordset")
 orscheck.open sqlcheck,conn,1,3
' Response.write sqlcheck
	If Not orscheck.eof Then
	orscheck.movefirst
	a=0
	Do While Not orscheck.eof
a=a+1

%>
 <div class="container">

<%Else 
Response.write "[<a href=section2.asp?c1="&orscheck("id")&">"&orscheck("name")&"</a>]"
%>
<%End if%>

<%
orscheck.movenext
loop
Else
Response.write "No anwers"
End if

%>
</table>
   
    
  </form>
</div>
  </body>
</html>

File Manager

Editing: ehealthy/list.asp