📄 mgscore.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkadmin.asp"-->
<%
dim id'定义变量，用户的id
dim sql,rs,rsc
'删除学生成绩
if request("action")="del" then '删除纪录
sql="delete from score where id=" &request("id")
conn.execute sql
if err.number <> 0 then
'数据库操作出错提示
response.write "数据库操作错误：" + err.description
err.clear
else
'弹出对话框提示删除成功
Response.Write "<script language=vbscript>" & vbCrLf
Response.Write "msgbox ""操作成功!号码为"&trim(request("id"))&"的考试纪录已删除!""" & vbCrLf
Response.Write "</script>" & vbCrLf
end if
end if
%>
<html>
<head>
<title>管理考试纪录</title>
<script language=javascript>
function SureDel(id)
{
if (confirm("您确定要删除该考试纪录吗？"))
{
//使用URL参数打开mgscore.asp，通知删除分数
window.location.href = "mgscore.asp?action=del&id=" +id
}
}
</script>
<link href="../style.css" rel="stylesheet" type="text/css"></head>
<body background=../images/backimage.gif >
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor=blue>
<tr>
<td width="20%"> <div align="center">学生姓名</div></td>
<td width="20%"> <div align="center">考试科目</div></td>
<td width="20%"> <div align="center">考试时间</div></td>
<td width="20%"> <div align="center">考试分数</div></td>
<td width="20%"> <div align="center">操作</div></td>
</tr>
<%
'学生考试分数列表
set rs=server.createobject("adodb.recordset")
rs.open "select * from score order by studentname ",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
elseif rs.bof and rs.eof then
rs.close
response.write "目前没有考试纪录"
else
do while not rs.eof
%>
<tr>
<td width="20%" height="21" > <div align="center"><%=rs("studentname")%></div></td>
<td width="20%" height="21" > <div align="center"><%=rs("subjectname")%></div></td>
<td width="20%" height="21" > <div align="center"><%=rs("endtime")%></div></td>
<td width="20%" height="21" > <div align="center"><%=rs("score")%></div></td>
<td width="20%" height="21" > <div align="center"><%="<a href='javascript:SureDel("&cstr(rs("id"))&")'>删除</a>" %></div></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
<p align=center><a href="primarypage.asp">返回管理界面</a></p>
<%
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -