gusucode.com > asp+ACCESS在线考试系统(源代码+论文+外文翻译) > asp+ACCESS在线考试系统(源代码+论文+外文翻译)\admin\mgscore.asp
<%@ Language=VBScript %> <% option explicit %> <!--#include file="conn.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 %> <script language=vbscript> msgbox "操作成功!号码为<%=trim(request("id"))%>的考试纪录已删除!" </script> <% end if end if %> <html> <head> <title>管理考试纪录</title> <script language=javascript> function SureDel(id) { if ( confirm("您确定要删除该考试纪录吗?")) { window.location.href = "mgscore.asp?action=del&id=" +id } } </script> </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 "数据库出错" else if 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"> <% 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>