paper_save.asp

来自「这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统」· ASP 代码 · 共 49 行

<!--#include file="conn2.asp"-->
<%
sql="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
randomize
testid=100000000+fix(100000000*Rnd)
rs("testid")=testid
rs("subject")=request("subject")
rs("totalper")=request("totalper")
rs("singlecount")=request("singlecount")
rs("multicount")=request("multicount")
rs("judgecount")=request("judgecount")
rs("singleper")=request("singleper")
rs("multiper")=request("multiper")
rs("judgeper")=request("judgeper")
rs("testtime")=request("testtime")
rs("starttime")=request("starttime")
rs("endtime")=request("endtime")
rs("settime")=date()
'rs("setuserid")=request.cookies("saname")
rs.update
rs.close

sql="select * from stuinit"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
 
userid=rs("stu_num")
sql="select * from test_rec"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,3,2
rs1.addnew
rs1("testid")=testid
rs1("stu_num")=userid
rs1("tested")=0
rs1.update
rs1.close
 
rs.movenext
loop
response.redirect "paper_success.asp"


%>