?? mgscore.asp
字號(hào):
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
dim id'定義變量，用戶的id
dim sql,rs,rsc
if request("action")="del" then '刪除紀(jì)錄
sql="delete from score where id=" &request("id")
conn.execute sql
if err.number <> 0 then
response.write "數(shù)據(jù)庫操作錯(cuò)誤：" + err.description
err.clear
else %>
<script language=vbscript>
msgbox "操作成功!號(hào)碼為<%=trim(request("id"))%>的考試紀(jì)錄已刪除!"
</script>
<% end if
end if
%>
<html>
<head>
<title>管理考試成績----在線考試系統(tǒng)</title>
<script language=javascript>
function SureDel(id)
{
if ( confirm("您確定要?jiǎng)h除該考試紀(jì)錄嗎？"))
{
window.location.href = "mgscore.asp?action=del&id=" +id
}
}
</script>
</head>
<body background=../images/backimage.gif >
<center><font color="lime" size=+3>考試成績管理</font></center>
<table width=400 border="1" cellspacing="0" cellpadding="0" align="center" bordercolor=lightgreen>
<tr>
<td width="20%">
<div align="center">學(xué)生姓名</div>
</td>
<td width="20%">
<div align="center">考試科目</div>
</td>
<td width="20%">
<div align="center">考試時(shí)間</div>
</td>
<td width="20%">
<div align="center">考試分?jǐn)?shù)</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 "數(shù)據(jù)庫出錯(cuò)"
else
if rs.bof and rs.eof then
rs.close
response.write "目前沒有考試紀(jì)錄"
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">
<%
response.write "<a href='javascript:SureDel(" & cstr(rs("id")) & ")'>刪除</a>"
%>
</div>
</td>
</tr>
<% rs.movenext
loop
end if
end if
'rs.close
'set rs=nothing %>
</table>
<p align=center><a href="primarypage.asp"><font color=red size=+0 face=楷體>返回管理界面</font></a></p>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -