📄 mgscore(1).asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkadmin.asp"-->
<%
dim id'定义变量，用户的id
dim sql,rs,rsc,px,subjectname,nscore,dayt,sclass,avgscore
dim curpage, i,page,number '显示试题数默认值
number=100 '默认每页行数
'session("px")=request.form("px")
studentname=trim(request("studentname"))
subjectname=trim(request("subjectname"))
dayt=trim(request("dayt"))
name=trim(request("name"))
nscore=trim(request("score"))
px=trim(request("px")) '排序方式,按照准考证号还是分数排序
if request("action")="del" then '删除纪录
if trim(request("id"))="0" then
sql="delete from score where score=0"
else
sql="delete from score where id=" &request("id")
end if
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>
<link href="STYLE.CSS" rel="stylesheet" type="text/css"><body background=images/backimage.gif >
<p>
<center>
<p align="left"><a href="primarypage.asp">返回管理界面</a> <a href="mgscore.asp">查看所有记录</a>
<a href="javascript:history.go(-1)">返回上页</a></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="62%"><div align="center"><font color=blue ><b><a href="mgscore.asp" style="font-family: "华文行楷"; font-size: xx-large;">考生成绩管理</a>
<%
set rs=server.createobject("adodb.recordset")
if px="100" then
'此语句暂时不起作用
rs.open "select * from score where left(studentname,4)='" & cstr(trim(request("studentname"))) & "' order by studentname ",conn,1,1
elseif subjectname<>"" then
'开始统计分析 如果是sql2000,改为 avg(score) avgscore 'response.write "&rs('score')&"
'rs.open "select Avg(score) as avgscore from score where name<>' ' and subjectname='" & cstr(trim(request("subjectname"))) & "'",conn,1,1
' if IsSqlDataBase=0 then
' rs.open "select substring(studentname,1,4) as sclass, Avg(score) as avgscore,count(*) as renshu from score where name<>' ' and subjectname='" & cstr(trim(request("subjectname"))) & "' GROUP BY substring(STUDENTNAME,1,4)",conn,1,1
'else
rs.open "select left(studentname,4) as sclass, Avg(score) as avgscore,count(*) as renshu from score where name<>' ' and subjectname='" & cstr(trim(request("subjectname"))) & "' GROUP BY left(STUDENTNAME,4)",conn,1,1
'end if
if rs.eof then
avgscore=0
else
avgscore=rs("avgscore")
end if
%>
</b></font></div></td>
<td width="38%"><table width="321" border="0" align="center" cellpadding="1" cellspacing="1">
<tr bgcolor="#CCCCCC">
<td width="108">班级 </td>
<td width="88">人数</td>
<td width="115">平均</td>
</tr>
<% do while not rs.eof %>
<tr>
<td><a href="mgscore.asp?subjectname=<% Response.Write(cstr(trim(request("subjectname")))) %>&studentname=<%=(rs("sclass"))%>&px=5" ><%=rs("sclass")%></a></td>
<td><%=rs("renshu")%></td>
<td><%=rs("avgscore")%></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>
<div align="right"></div></td>
</tr>
</table>
</center>
<br>
<%
'结束统计分，开始判断依据学科查询的排序方式
if px="1" then
rs.open "select * from score where subjectname='" & cstr(trim(request("subjectname"))) & "' and name<>' ' order by score desc,studentname,endtime desc ",conn,1,1
elseif px="2" then
rs.open "select * from score where subjectname='" & cstr(trim(request("subjectname"))) & "' and ((score)>='"&nscore&"'-5 and (score)<='"&nscore&"'+5) order by score desc,studentname,endtime desc ",conn,1,1
elseif px="5" then
rs.open "select * from score where subjectname='" & cstr(trim(request("subjectname"))) & "' and left(studentname,4)='" & cstr(trim(request("studentname"))) &"' order by studentname,score desc ",conn,1,1
else
rs.open "select * from score where subjectname='" & cstr(trim(request("subjectname"))) & "' and name<>' ' order by left(studentname,4),score desc ",conn,1,1
end if
elseif name<>"" then
rs.open "select * from score where name='" & cstr(trim(request("name"))) & "' order by studentname,endtime desc ",conn,1,1
elseif dayt<>"" then
rs.open "select * from score where day(endtime)=day('"&dayt&" ') order by studentname,endtime desc,subjectname",conn,1,1
else
'按照数据库的自然顺序打开数据库
rs.open "select * from score order by subjectname,studentname,endtime desc",conn,1,1
end if
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
'rs.close
response.write "目前没有考试纪录"
else
'开始分页显示
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
rs.pagesize=cint(number)
rs.absolutepage = curpage %>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolor=purble bgcolor="#000000">
<tr align="center" bgcolor="#FFFFCC">
<td width="15%"> 考试科目</td>
<td width="20%"> 身份证号</td>
<td width="15%">考生姓名</td>
<td width="15%">成绩</td>
<td width="20%"> 考试时间</td>
<td width="10%"> 操作</td>
</tr>
<%
for i = 1 to rs.pagesize %>
<tr align="center" bgcolor="#FFFFFF">
<td style="font-size:9pt"> <a href="mgscore.asp?subjectname=<%=rs("subjectname")%>" ><%=rs("subjectname")%></a> <a href="mgscore.asp?subjectname=<%=rs("subjectname")%>&px=1" >√</a></td>
<td height="20" style="font-size:9pt"> <%=rs("studentname")%></td>
<td style="font-size:9pt"> <a href="mgscore.asp?name=<%=rs("name")%>" > <%=rs("name")%></a></td>
<td style="font-size:9pt"> <%=rs("score")%></td>
<td height="20" style="font-size:9pt"> <a href="mgscore.asp?dayt=<%=formatdatetime(rs("endtime"),2)%>" ><%=rs("endtime")%></a></td>
<td height="20" style="font-size:9pt">
<%
response.write "<a href='javascript:SureDel(" & cstr(rs("id")) & ")'>删除</a>"
%>
</td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table>
<div align="center">
<% response.write "<hr size=0 width='0%'><div align=center>"
response.write "第<font color=red>" + cstr(curpage) + "</font>页/共<font color=red>" + cstr(rs.pagecount) + "</font>页 "
response.write "本页<font color=red>" + cstr(i-1) + "</font>条/共<font color=red>" + cstr(rs.recordcount) + "</font>条 "
if curpage = 1 then
else
response.write "<a href='mgscore.asp?page=1'>首页</a> <a href='mgscore.asp?page=" & cstr(curpage-1) & "'>前页</a> "
end if
if curpage = rs.pagecount then
else
response.write "<a href='mgscore.asp?page=" + cstr(curpage+1) + "'>后页</a> <a href='mgscore.asp?page=" + cstr(rs.pagecount) + "'>末页</a>"
end if
end If
end if
'rs.close
set rs=nothing
%>
<font color=purble >(点击准考证号/学科名称限定条件查询)</font></div>
<p align=center><br>
<a href="primarypage.asp">返回管理界面</a> <a href="mgscore.asp">查看所有记录</a> <a href="javascript:history.go(-1)">返回上页</a></p>
<p align=center> <a href='javascript:SureDel("0")'>清除零分</a> <a href="deleteall.asp">清空某一学科考生纪录</a> </p>
<%
'rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -