📄 lianxi.asp
字号:
<%@language=vbscript%>
<%
if session("tname")="" or session("tpassword")="" or session("tpass")="" then
response.write"<html><body>网页已经过期，请回到<a href='login.asp'>登录</a>页面！</body></html>"
response.end
end if
set conn=server.createobject("ADODB.connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DATA Source="&server.mappath("test.mdb")
set rs=server.createobject("ADODB.recordset")
%>
<html>
<head>
<title>在线阅卷</title>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#C0C0C0">
<table border="1" width="100%" id="table1" height="424" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top">
<%
name=request("name")
if name<>"" then
if len(name)>=4 then
name=left(name,1)+right(name,1)
end if
sql="select * from "&name&"的表 where 试题题型='问答'"
set base=conn.execute(sql)
dim a(12)
a(1)="一"
a(2)="二"
a(3)="三"
a(4)="四"
a(5)="五"
a(6)="六"
a(7)="七"
a(8)="八"
a(9)="九"
a(10)="十"
response.write"<form name='form' action='okdoit.asp' method='post'><input type='hidden' name='name' value='"&name&"'>"
response.write"<br><center><font color='red'>"&name&"同学的问答题</font></center>"
response.write"<table width='100%' align='center'>"
i=1
do while not base.eof
response.write"<tr><td align='left' >"
response.write"<fieldset style='padding: 2'>"
response.write"<legend>问答题"&a(i)&"</legend>"
response.write"<font size='2'>试题问题:</font><textarea rows='3' cols='75' readonly>"&base("试题")&"</textarea><input type='text' name='wen"&i&"ans' size='5' value='"&base("试题分数")&"' style='height: 52; width: 35; font-size: 18pt; color: #000000; background-color: #FFFFFF' readonly >分<br>"
response.write"<font size='2'>参考答案:</font><textarea rows='3' cols='75' readonly>"&base("答案")&"</textarea><font size='2'> 判分</font><br>"
response.write"<font size='2'>用户答案:</font><textarea rows='3' cols='75' readonly>"&base("用户答案")&"</textarea><input type='text' size='5' name='wen"&i&"' style='height: 52; width: 35; font-size: 18pt; color: #000000; background-color: #FFFFFF'>分"
response.write"</fieldset>"
response.write"</td></tr>"
base.movenext
i=i+1
loop
session("tl")=i-1
response.write"</table>"
response.write"<br><center><input type='submit' value='保存阅卷'></center><br>"
response.write"</form>"
else
%>
<br>
<center><font size="2" color="#FF0000"><input type='button' name='refresh' value='刷 新' style='color: #FFFFFF; border: 1px solid #0000FF; background-color: #0000FF' onClick="vbscript:parent.I1.location.reload">下面是您负责班级学生的考试情况,单击姓名可对其进行阅卷(请注意其是否已经交卷)</font></center>
<table border="1" width="90%" id="table2" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"><font size="2">姓名</font></td>
<td align="center"><font size="2">是否阅卷</font></td>
<td align="center"><font size="2">时间</font></td>
<td align="center"><font size="2">总分</font></td>
<td align="center"><font size="2">成绩</font></td>
<td align="center"><font size="2">参数</font></td>
<td align="center"><font size="2">试卷名称</font></td>
<td align="center"><font size="2">状态</font></td>
</tr>
<%
set conn=server.createobject("ADODB.connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DATA Source="&server.mappath("test.mdb")
set rs=server.createobject("ADODB.recordset")
response.write"<form name='allname' action='yuejuan.asp' method='post'>"
sql="select * from 普通用户表 where 任课教师='"&session("tname")&"'"
set rs=conn.execute(sql)
do while not rs.eof
sname=rs("用户名")
sql="select * from 成绩登记表 where 用户名='"&sname&"'"
set base=conn.execute(sql)
'if not base.eof then
do while not base.eof
response.write"<tr>"
sname=base("用户名")
state=base("当前状态")
if len(sname)=2 then
sname=left(sname,1)+" "+right(sname,1)
end if
if state="正在考试" then
yesorno="disabled"
else
yesorno=""
end if
response.write"<td align='center'><input type='submit' name='name' value='"&sname&"' "&yesorno&" style='color: #FFFFFF; border: 1px solid #808080; background-color: #808080'></td>"
response.write"<td align='center'><font size='2'>"&base("阅否")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("时间")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("总分")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("成绩")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("附加参数")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("试卷名称")&"</font></td>"
response.write"<td align='center'><font size='2'>"&base("当前状态")&"</font></td>"
response.write"</tr>"
base.movenext
loop
'else
'response.write"对不起,目前不存在数据"
'end if
rs.movenext
loop
response.write"</form>"
base.close
set base=nothing
conn.close
set conn=nothing
%>
</table>
<%
end if
%>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -