📄 tijiao.asp
字号:
<%@language=vbscript%>
<%
set conn=Server.CreateObject("ADODB.connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DATA Source="&server.mappath("data\students.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from "&session("username")&"的表"
set base=conn.execute(sql)
do while not base.eof
ans=base("答案")
uans=base("用户答案")
fz=base("试题分数")
id=base("试题ID")
if ans=uans then
sql1="update "&session("username")&"的表 set 用户得分='"&fz&"' where 试题ID='"&id&"'"
conn.execute(sql1)
else
sql1="update "&session("username")&"的表 set 用户得分='0' where 试题ID='"&id&"'"
conn.execute(sql1)
end if
base.movenext
loop
set conn=nothing
response.redirect"main.asp"
response.end
%>
<head><title>完成考试</title></head>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -