www.gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\test\test.asp
<html> <head> <title>考试系统</title> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> </head> <%@ Language=VBScript %> <% response.expires=0 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=conn tab1=request.querystring("papername") session("tab")=tab1 Session.TimeOut=30 'sql="select * from 成绩登记表 where 试卷名称='"& session("user") & session("tab") &"' and 当前状态='正在考试'" 'set base=conn.execute(sql) 'if not base.eof then %> <frameset framespacing="0" cols="135,*" border="0" frameborder="0"> <frame name="contents" target="main" src="testindex.asp" scrolling="no"> <frameset rows="0,*"> <frame src="inputweb.asp"> <frame name="main" src="backrandommain.asp" scrolling="auto" noresize> </frameset> <noframes> <body> <p>This page uses frames, but your browser doesn't support them.</p> </body> </noframes> </frameset> <% 'else 'sql2="select * from 成绩登记表 where 试卷名称='"& session("user") & session("tab") &"'" 'set base2=conn.execute(sql) 'if not base2.eof then %> <%'end if%> </html>