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>