📄 student_report.asp
字号:
<%@ Language=VBScript%>
<%option explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''
%> <!-- #INCLUDE FILE = "connect_login.asp" --> <%
dim myrs
set myrs = server.createobject("ADODB.recordset")
myrs.open "select userid from userlogin",myconn,3
'3=adOpenStatic,then only myrs.recordcount will work
'''''''''''''''''''''''''''''''''''''''''''''''''''
dim myrs2
set myrs2 = server.createobject("ADODB.recordset")
myrs2.open "select * from userexams",myconn,3
'3=adOpenStatic,then only myrs.recordcount will work
'''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Student Performance Report</title>
</head>
<body>
<table width="80%" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><strong style="font-weight: 400"><font size="4">学生考试成绩报表
</font></strong></P>
</td>
</tr>
</table>
<%
dim strtable,userid
while not myrs.EOF
userid= myrs("userid")
myrs2.Filter = "userid ='"& userid &"'"
if not myrs2.EOF then
strtable="<h2>学生帐号："& userid &"</h2>"_
& "<table border=1 cellpadding=2 width='80%'><tr bgcolor=LightGoldenrodYellow><td>考试名称</td>"_
& "<td>考试日期</td><td>分数</td><td>结果</td>"
while not myrs2.EOF
strtable = strtable & "<tr><td>" & myrs2("ExamName")& "</td><td>"_
& myrs2("testDate") & "</td><td>" & myrs2("Percentage")& "</td><td>"_
& myrs2("Status")& "</td></tr>"
myrs2.MoveNext
wend
Response.Write strtable
Response.Write "</table><br><br>"
end if
myrs.MoveNext
wend
%>
<p> </p>
<p>
<br>
</p>
<table width="80%" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><a href="control_panel.asp">在线考试系统</a></P>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -