📄 judge.asp
字号:
<%@language=vbscript%>
<%
dim dan(50),stdid1,cdanxtl,i,answer
for i=1 to session("cdanxtl")
dan(i)=request("dan("&i&")")
stdid1=session("stdid")
next
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")
for i=1 to session("cdanxtl")
sql="update "&session("username")&"的表 set 用户答案='"&dan(i)&"' where id='dan"&i&"'"
conn.execute(sql)
next
conn.close
set conn=nothing
response.write"您已经保存了试卷，请<a href='vbscript:history.back'>返回</a>"
response.end
%>
<head><title>处理考试结果</title></head>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -