在线考试系统

				
				
				选择试卷
				
				
				请选择做题形式
				
				
				  
				    
				      
				      使用说明：如果您有断线而留下的卷子，您可以“				      color=darkorange>继续”考试，如果选择“				      color=orange>不继续  ”将删除上次的断线记录。                                                
				                                                     
								papername=request("papername")
				Set conn = Server.CreateObject("ADODB.Connection")                                                  
				conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")                           
				set rs= server.createobject("adodb.recordset")
					bj=0                                             
					sql="select * from 成绩登记表 where 试卷名称='"& session("user") & papername &"' and 当前状态='正在考试'"
					set  base2=conn.execute(sql)	
				
					if base2.eof then
							bj=1                                             
					else
							bj=0
					end if                                             
				
				if bj=0 then                                             
				%>                                                 
				   
				      (有断线纪录，继续)                               
				                                                     
				    
				      (有断线纪录，不继续)                             
				                                                     
								else
				%>
				    
				      直接进入                                                 
				    
								end if 
				'base.movenext                                     
				'loop
				%>