📄 detailscore.asp

📁 (1)开发学生成绩管理系统的总体任务是实现企学生管理的系统化和自动化.学生管理为学校提供学生质料管理,课程设置管理,成绩数据管理,访问权限管理等,为学生提供了方便的个人信息查询等. (2)本系统的主

💻 ASP

字号:

<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>成绩明细页面</TITLE>
<STYLE>
P, TABLE{FONT-SIZE: 9pt}  
</STYLE>
</HEAD>
<BODY>
<P><A HREF = "index.asp">返回首页</A>
<% If Session("Level") > 1 Then %>
|<A HREF = "addScore.asp">录入成绩</A>|
|<A HREF = "editScore.asp">修改成绩</A>|
|<A HREF = "deleteScore.asp">删除成绩</A>|
<% End If %>
|<A HREF = "browseScore.asp">查询成绩</A></P>
<DIV ALIGN = "center">
<%
Dim cnn, rst, sSQL
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
  "UID=sa;;DATABASE=test"
cnn.Open
StudentNum = Request.QueryString("StuNum")
sSQL = "SELECT st.student_name, co.course_name, score FROM scores sc "
sSQL = sSQL & "INNER JOIN courses co ON co.course_id = sc.course_id "
sSQL = sSQL & "INNER JOIN students st ON st.student_id = sc.student_id "
sSQL = sSQL & "WHERE student_num = '" & StudentNum & "'"
Set rst = cnn.Execute(sSQL)
If rst.EOF Then
%>
<P><FONT COLOR = "red">没有找到符合条件的成绩记录！</FONT></P>
<% Else %>
<TABLE BORDER = "1" WIDTH="400">
<CAPTION><B>查询结果：</B>学号 = <% = StudentNum %>&nbsp;
姓名 = <% = rst(0) %></CAPTION>
<TR><TH WIDTH = "60%">课程名称</TH><TH>成绩</TH></TR>
<% While Not rst.EOF %>
<TR><TD WIDTH = "60%"><% = rst(1) %></TD>
<TD ALIGN = "center"><% = rst(2) %></TD></TR>
<%
  rst.MoveNext
  Wend
%>
</TABLE>
<% End If %>
</DIV>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -