网络考试系统

【文件属性】：

文件名称：网络考试系统

文件大小：46KB

文件格式：DOC

更新时间：2009-03-15 02:52:39

控件 源码 网络通信类 资源

<%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("时间")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%>