paper_save.asp

在线考试系统

<!--#include file="db.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("userid")
rs.update
rs.close

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


%>