📄 deletescore1.asp

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

💻 ASP

字号:

2
<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>删除成绩</TITLE>
<STYLE>
P, TABLE, INPUT, SELECT{FONT-SIZE: 9pt}
</STYLE>
<SCRIPT LANGUAGE = "VBScript">
Sub btnSubmit_onClick
  If Form1.txtStudentNum.Value = "" Then
    Window.Alert "单击“提交”按钮之前，请输入一个学号！"
  End If
End Sub
</SCRIPT>
</HEAD>
<BODY>
<P><A HREF="index.asp">返回首页</A>|
<A HREF="addScore.asp">录入成绩</A>|
<A HREF="editScore.asp">修改成绩</A>|
<A HREF="browseScore.asp">查询成绩</A></P>
<DIV ALIGN = "center">
<%
If Session("UserName") = "" Or Session("Level") < 2 Then
  Response.Write "你没有访问本页面的权限！"
  Response.End
End If  
%>
<!-- #include virtual = "/adovbs.inc" -->
<%
Dim cnn
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
  "UID=sa;;DATABASE=test"
cnn.Open
Set rstSt = cnn.Execute("students", , adCmdTable)  
Set rstCo = cnn.Execute("courses", , adCmdTable)  
%>
<% If rstSt.EOF Or rstCo.EOF Then %>
<P><FONT COLOR="red">
学生表或课程表为空，请先录入学生资料和课程设置数据！</FONT></P>
<% Else %>
<FORM NAME = "Form1" METHOD = "post" ACTION = "deleteScore1.asp">
<P>学号：<INPUT TYPE = "text" NAME = "txtStudentNum" SIZE = "10">&nbsp;
课程：<SELECT SIZE = "1" NAME = "lstCourseID">
<% While Not rstCo.EOF %>
<OPTION VALUE="<% = rstCo("course_id") %>">
<% = rstCo("course_name") %></OPTION>
<%
  rstCo.MoveNext
  Wend
%>
</SELECT> <INPUT TYPE = "submit" VALUE = "提交" NAME = "btnSubmit"></P>
</FORM>
<% End If %>
<%
StudentNum = Trim(Request.Form("txtStudentNum"))
CourseID = Request.Form("lstCourseID")
If StudentNum <> "" Then
  sSQL = "SELECT st.student_name, sc.student_id, co.course_name, " & _
    "sc.course_id, sc.score FROM scores sc "
  sSQL = sSQL & "INNER JOIN courses co ON co.course_id = sc.course_id "
  sSQL = sSQL & "INNER JOIN students st ON sc.student_id = st.student_id "
  sSQL = sSQL & "WHERE st.student_num = '" & StudentNum & "'"
  sSQL = sSQL & " AND sc.course_id = " & CInt(CourseID)
  ' 执行多表查询，返回一个记录集
  Set rst = cnn.Execute(sSQL, , adCmdText)
  If rst.EOF Then
    Response.Write "<P><FONT COLOR = red>没有找到符合条件的记录！</FONT></P>"
  Else
%>
<FORM NAME = "Form2" METHOD = "post" ACTION = "deleteScore2.asp">
<TABLE BORDER = "1" WIDTH = "430">
<CAPTION><B>查询结果如下：</B></CAPTION>
<TR ALIGN = "center"><TH>学号：</TH><TD><% = StudentNum %></TD>
<TH>姓名：</TH><TD><% = rst(0) %></TD></TR>
<TR ALIGN = "center"><TH>课程：</TH><TD><% = rst(2) %></TD>
<TH>成绩：</TH><TD><% = rst(4) %></TD></TR>
</TABLE>
<P><INPUT TYPE = "hidden" NAME = "txtStudentID" SIZE = "20" 
VALUE = <% = rst(1) %> >
<INPUT TYPE = "hidden" NAME = "txtCourseID" SIZE = "20" 
VALUE = <% = rst(3) %> >
<INPUT TYPE = "submit" VALUE = "删除" NAME = "btnSubmit" 
STYLE = "width: 100"></P>
</FORM>
<% End If %>
<% End If %>
</DIV>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -