?? sevalue.asp
字號:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'在提交答卷后，首先要對答卷內容進行統計，答對多少題目
'應該得多少分，然后將統計結果寫入到表score（stid,score,teachid,sub）中，
'然后將記錄學生回答的表tbanswer中的相應字段刪除
dim rightnum '該變量記錄答對的題目的數量
dim totalques '該變量記錄的是做的總的題目的數量
dim getscore '學生應得得分數
db="testsys.MDB"
rightnum=0
set mcmd=server.CreateObject("adodb.command")
mcmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'如果你的服務器采用較老版本Access驅動，請用下面連接方法
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.Open connstr
Set mrs = Server.CreateObject("ADODB.Recordset")
sqlstr = "SELECT * FROM question,tbanswer where question.questionid=tbanswer.questionid"
mrs.Open sqlstr,conn
do while not mrs.eof
if mrs("question.answer")=mrs("tbanswer.answer") then
rightnum=rightnum+1
end if
mrs.movenext
loop
sqlstr="DELETE * FROM tbanswer WHERE stid='" & session("stid") & "'"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open sqlstr,conn
getscore=rightnum*100/session("testnum")
'以下為將分數寫入到表score中
sqlstr="insert into score (stid,score,sub,teachid) values('" & session("stid") & "','" & getscore & "','" & session("subname") & "','" & session("teachid") & "')"
rs1.open sqlstr,conn
%>
<P align=center><STRONG><FONT color=crimson face=""
size=4>評分統計</FONT></STRONG></P>
<P align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=75%>
<TR>
<TD>學生姓名</TD>
<TD><%=session("stname")%></TD></TR>
<TR>
<TD>考試科目</TD>
<TD><%=session("subname")%></TD></TR>
<TR>
<TD>題目總數
<TD><%=session("testnum")%>
<TR>
<TD>做對題數
<TD><%=rightnum%>
<TR>
<TD>得分
<TD><%=getscore%>
<TR>
<TD></TD>
<TD></TD></TR></TABLE></P>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -