judge.asp
来自「可以进行智能出卷,在线测试和在线评价,界面友好,适合广大教学用户使用」· ASP 代码 · 共 23 行
ASP
23 行
<%@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 + =
减小字号Ctrl + -
显示快捷键?