gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\papermanage\score.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看成绩</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body background="../images/bkg35.jpg">
<form action="selectuser.asp" id="FORM1" method="post" name="FORM1">
<p> </p>
<table border="0" width="100%">
<tr>
<th width="100%" height="3%"><h1><font face="楷体_GB2312" color="#FF0000">网络考场人工评分</font></h1>
</th>
</tr>
<tr>
<th width="100%" height="2%"> <p> </th>
</tr>
</table>
<%@ Language=VBScript %>
<%
stzs=100
name=session("user")
jjj=session("name2")
dim score
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set base= server.createobject("adodb.recordset")
sql="select * from "& session("name2") &""
set base=conn.execute(sql)
base.movefirst
k=0
do while not base.eof
IDh=base("ID")
yhdf=request.form(IDh)
if yhdf="" then
yhdf=0
end if
k=k+yhdf
sql="update "& session("name2") &" set 用户得分='"& yhdf &"' where ID='"& IDh &"'"
conn.execute(sql)
base.movenext
loop
'response.write session("name2")
sql2="update 成绩登记表 set 成绩='"& k &"' where 试卷名称='"& session("name2") &"'"
conn.execute(sql2)
sql3="update 成绩登记表 set 当前状态='已评卷' where 试卷名称='"& session("name2") &"'"
conn.execute(sql3)
sql3="update 成绩登记表 set 改卷人='"& session("user") &"' where 试卷名称='"& session("name2") &"'"
conn.execute(sql3)
'response.write stzs %>
<% name2=session("name2")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from 成绩登记表 where 试卷名称='"& name2 &"'"
set base=conn.execute(sql)
if not base.eof then
zhh=base("用户名")
papername=base("试卷名称")
chji=base("成绩")
danwei=base("密码")
dqzt=base("当前状态")
zf=base("总分")
sjt=base("时间")
end if
%>
<div align="center"><center><table border="1" width="40%">
<tr>
<th width="50%" align="center"><font color="#0000FF">用 户 名</font></th>
<th width="50%" align="center"><%=zhh%>
</th>
</tr>
<tr>
<th width="50%" align="center"><font color="#0000FF">试卷名称</font></th>
<th width="50%" align="center"><%=name2%>
</th>
</tr>
<tr>
<th width="50%" align="center"><font color="#0000FF">总 分</font></th>
<th width="50%" align="center"><%=zf%>
</th>
</tr>
<tr>
<th width="50%" align="center"><font color="#0000FF">用户成绩</font></th>
<th width="50%" align="center"><%=k%>
</th>
</tr>
<tr>
<th width="50%" align="center"><font color="#0000FF">阅 卷 人</font></th>
<th width="50%" align="center"><%=session("user")%>
</th>
</tr>
</table>
</center></div><p> </p>
<table border="0" width="100%">
<tr>
<td width="100%"></td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="100%"></td>
</tr>
</table>
<div align="center"><center><p><a href="selectuser.asp"><img src="../Images/back.bmp"
alt="b0.jpg (1834 bytes)" width="112" height="40"></a></p>
</center></div>
</form>
<p> </p>
</body>
</html>