所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

<%@ Language=VBScript %><%set mrs=server.CreateObject("adodb.recordset")mrs.ActiveConnection="dsn=testsys"if Request.ServerVariables("http_method")="POST" then'将学生的回答写入到数据库中mrs.Source="select * from tbanswer"mrs.Open,,1,3mrs.AddNewmrs("answer")=Request.Form("choose")mrs("stid")=session("stid")mrs("questionid")=session("questionid")mrs.Updatemrs.Closeend ifgotime=hour(now())*60+minute(now())-hour(session("starttime"))*60-minute(session("starttime"))lefttime=session("testtime")-gotimeif session("page")=cint(session("testnum")) or lefttime<0 then'如果考试时间已到，关闭数据库对象，并重定向到sevalue.asp文件set mrs=nothingResponse.Redirect "sevalue.asp"end ifif Request.ServerVariables("http_method")="GET" then'已考的题目数session("page")=1else'每做一道题，用“POST”方式提交，已考的题目数+1session("page")=session("page")+1end if%>第<%=session("page")%>题<%'从试题库中取出下一道题mrs.Source="select * from question where sub='" & session("subname") & "' and teachid='" & session("teachid") & "'"mrs.Open ,,1,1mrs.PageSize=1mrs.AbsolutePage=session("page")session("questionid")=mrs("questionid")Response.Write ""Response.Write mrs("question")Response.Write ""Response.Write "A. " & mrs("A") & ""Response.Write "B. " & mrs("B") & ""Response.Write "C. " & mrs("C") & ""Response.Write "D. " & mrs("D") & ""'关闭数据库对象mrs.Closeset mrs=nothing%>ABCD 关闭本页

....