📄 test.asp
字号:
<%@ Language=VBScript%>
<!--#include file="data.asp"-->
<%session("试题编号")=1%>
<title>班主任工作调查问卷</title>
<body>
<table width="90%" border="0" align="center" cellspacing="12">
<tr>
<td colspan="3">
<div align="center"><font color="#000000" size="5" face="黑体">虞城县高级中学<b><%=session("班级")%></b>班主任工作调查问卷</font> </div>
</td>
</tr>
<tr>
<td width="62%"> </td>
<td width="18%"><font color="#000000">学号:<b><font size="4"><%=session("学号")%></font></b></font></td>
<td width="20%"><font color="#000000">姓名:<b><font size="4"><%=session("姓名")%></font></b></font></td>
</tr>
</table>
<%
select case request("act")
case "add"
call add_update()
case else
call add_main()
end select
%>
<%
sub add_main()
session("in") = "true"
if lock="1" then
errinfo="抱歉，你的输入有误,请重新输入."
error (errinfo)
exit sub
end if
%>
<form action="?act=add" method="post" name="add" id="add">
<p align="left">
<%
set rs=server.CreateObject ("adodb.recordset")
rs.Open"select * from test",conn,1,1
'设置test表中的所有记录为查询对象，使用conn建立的链接，第一个1为指针类型，第二个1为以只读模式对数据进行操作
do while not rs.eof
'以表中记录的指针位置作为条件，进行do while的循环操作
%>
<br>
</p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td colspan="4"><%=session("试题编号")%>. <%=rs("试题内容")%> </td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td>
<input type="radio" name="<%=rs("id")%>" value="a">
<%=rs("selecta")%></td>
<td>
<input type="radio" name="<%=rs("id")%>" value="b">
<%=rs("selectb")%></td>
<td>
<input type="radio" name="<%=rs("id")%>" value="c">
<%=rs("selectc")%></td>
<td>
<input type="radio" name="<%=rs("id")%>" value="d">
<%=rs("selectd")%></td>
</tr>
</table>
<div align="center">
<%
rs.movenext
'记录指针向下移动一条
session("试题编号")=1+session("试题编号")
'试题编号加1
loop
'循环终结符号
%>
<input type="submit" name="Submit" value="交卷了！">
</div>
</form>
<br>
<hr>
<%
rs.Close
conn.close
set rs=nothing
set conn=nothing
end sub
sub add_update()
if not session("in")= "true" then
errinfo = "非法的提交动作"
error(errinfo)
exit sub
end if
session("考评成绩")=0
'设置初始评成绩为0
set rs=server.CreateObject ("adodb.recordset")
rs.Open"select * from test ",conn,1,1
'设置test中所有记录为查询对象
th=1
thno=""
session("count")=rs.RecordCount
'统计test表中记录的个数
do while not rs.eof
aa=rs("id")
'把ID字段的值赋给aa
answer=""
For i = 1 to Request(aa).Count
answer=answer+Request(aa)(i)
'把数组aa中第i个值赋给answer
Next
if answer="a" then
'如果答案为a则成绩加5分
session("考评成绩")=session("考评成绩")+5
end if
if answer="b" then
'如果答案为b则成绩加3分
session("考评成绩")=session("考评成绩")+3
end if
if answer="c" then
'如果答案为c则成绩加1分
session("考评成绩")=session("考评成绩")+1
end if
session(th)=answer
'把本题的答案存入session(th)
if answer ="" then
thno=thno&cstr(th)&"、"
end if
th=th+1
rs.movenext
loop
if thno="" then
rs.Close
set rs1=server.CreateObject("adodb.recordset")
rs1.Open"select * from student where 学号="+"'"+session("学号")+"'",conn,1,3
if rs1("是否考过") then
'检测表中“是否考过”字段值是否为真，如为真则显示该生考评成绩
%>
<div align="center">
<p><font size="5" face="黑体" color="#000000"><%=session("姓名")%>同学，你已经做过了，考评分数是:<%=rs1("考评成绩")%>分</font></p>
<br>
</div>
<%
else
'否则，则把该考生的考评成绩及每题的选项记入记录中，并显示考评成绩
rs1("考评成绩")=session("考评成绩")
rs1("是否考过")=-1
j=1
for j=1 to session("count")
dd="a"&cstr(j)
rs1(dd)=session(j)
j=j+1
next
rs1.update
%>
<table width="90%" border="0" cellspacing="12">
<tr>
<td colspan="4">
<div align="center">
<p><font size="5" face="黑体" color="#000000">虞城县高级中学评教</font></p>
<p><font face="黑体" size="5" color="#000000">信 息 表</font> <br>
<br>
</p>
</div>
</td>
</tr>
<tr>
<td width="34%">班级:<b><font size="4"><%=session("班级")%></font></b></td>
<td width="26%">学号:<b><font size="4"><%=session("学号")%></font></b></td>
<td width="26%">姓名:<b><font size="4"><%=session("姓名")%></font></b></td>
<td width="14%">分数:<b><font size="4" color="#FF0000"><%=session("考评成绩")%>分</font></b></td>
</tr>
</table>
<hr>
<%
rs1.Close
conn.close
set rs1=nothing
set conn=nothing
end if
else
%>
<div align="center">你有<%=thno%> 题没有做,请单击<a href="javascript:history.back(1)">确定</a>返回测试页面。</div>
<%
end if
exit sub
session("in")="0"
end sub
%>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -