?? 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 + -