📄 test.asp
字号:
<html>
<head>
<title>考试系统</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -