📄 answerqueryselectedc.asp
字号:
<!--#include file="../include/keepHouse.asp"-->
<html>
<head>
<title><%=WebName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../include/header.asp"-->
<body leftmargin="0" topmargin="0" background="../images/bg.gif">
<%
dim STUDENT_ID
STUDENT_ID=Trim(request("STUDENT_ID"))
if STUDENT_ID="" then
call trigErr()
end if
sql="SELECT STUDENT_NAME,COURSE_ID,COURSE_NAME,TEACHER_NAME,DEPT_NAME,"_
&"SCORE FROM VIEW_Select WHERE STUDENT_ID = '"&STUDENT_ID&"'"
call openDB()
'call Debug(sql)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<br><br><div align=center>暂时还没有选课</div>"
response.End
end if
%>
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0"
bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
<tr bgcolor="#99CCFF">
<td colspan="6" align="center" height="28">
<font size="+1" face="黑体"><%=rs("STUDENT_NAME")%>同学的课表</font></td>
</tr>
<tr align="center" bgcolor="#99CCFF">
<td>序号</td>
<td>课程编号</td>
<td>课程名</td>
<td>教师名</td>
<td> 开课院系</td>
<td>学分</td>
</tr>
<%
dim i
dim Totle
i=1
Totle=0
while not rs.eof
%>
<tr align="center">
<td width="5%"><%=i%></td>
<td width="15%"><%=rs("COURSE_ID")%></td>
<td width="12%"><%=rs("COURSE_NAME")%></td>
<td width="21%"><%=rs("TEACHER_NAME")%></td>
<td width="17%"><%=rs("DEPT_NAME")%></td>
<td width="17%"><%=rs("SCORE")%></td>
</tr>
<%
i=i+1
Totle=Totle+rs("SCORE")
rs.movenext
wend
call closeDB()
%>
<tr bgcolor="#99CCFF">
<td colspan="7" align="center" height="20">该同学本学期选择了
<font color="#FF0000"><%=i-1%></font> 课程，学分共计
<font color="#FF0000"><%=Totle%></font></td>
</tr>
</table>
<!--#include file="../include/footer.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -