网络考试系统 <%Session.TimeOut=400response.expires=0d

详细说明： <%Session.TimeOut=400response.expires=0dim shjian Set conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../试题库.mdb")set rs=server.createobject("adodb.recordset")set rs.activeconnection=conntab1=session("tab")sql="select * from 试卷名称表 where 试卷名称=‘"& tab1 & "‘"Set rs =conn.Execute(sql)if not rs.eof then sj=rs("时间&a mp;quot;)end ifrs.close%>试卷<%userip=request.ServerVariables("Remote_ADDR")%>

剩余时间

　

单项选择题

多项选择题

判断题

排序题

　

[FrontPage 保存结果组件]

　

版权所有
安阳电大
2001-2002
　

　
　
　
　
　
对于有段线记录的登录页面的代码编写如下：<%@ Language=VBScript %><%Set conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")set rs=server.createobject("adodb.recordset")set rs.activeconnection=connname=session("user")tab1=session("tab")stzs=0%><% sql1="select * from "& name & tab1 &"暂时 where 试题题型=‘单项选择‘" set rs1=conn.execute(sql1) response.write "
" response.write "" response.write "
一. 单项选择题
" rs1.movefirst z=1 do while not rs1.EOF tm=rs1("试题") fs=rs1("试题分数") response.write "

" & z & "." & tm & "(" & fs & "分）" response.write "
请选择：
" if rs1("附加参数")<=0 then rs1("附加参数")=1 end if for i = 1 to rs1("附加参数") stzs=stzs+1 next dxanswer=rs1("用户答案") dxanswer=trim(dxanswer) if dxanswer="A" then response.write " A" response.write " B" response.write " C" response.write " D" elseif dxanswer="B" then response.write " A" response.write " B" response.write " C" response.write " D" elseif dxanswer="C" then response.write " A" response.write " B" response.write " C" response.write " D" elseif dxanswer="D" then response.write " A" response.write " B" response.write " C" response.write " D" else response.write " A" response.write " B" response.write " C" response.write " D" end if z=z+1 rs1.movenext loop rs1.close%> ...展开收缩