📄 exam_instructions.asp
字号:
<%@ Language=VBScript %>
<%
dim userid
userid = Session("userid")
if userid ="" then
Response.Redirect("exam_login.asp")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''
%> <!-- #INCLUDE FILE = "connect_ama.asp" --> <%
dim myrs,sq
' sq="select * from q_bank where q_id between 10 and 30"
set myrs = server.createobject("ADODB.recordset")
myrs.open "all_exams",myconn,3
'3=adOpenStatic,then only myrs.recordcount will work
''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<table>
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><strong><font size="4">欢迎来参加考试</font></strong> </P></td></TD>
</tr>
</table>
<br>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%" height="106">
<TR>
<TD><form method="post" action ='student_profile.asp' id=form2 name=form2>
<p align="center"><input type="submit" value="查看个人信息" name="B1"></p>
</form></TD>
<TD><form method="post" action ='exam_login.asp' name=form1>
<p align="center"><input type="submit" value="退出" name="logout"></p>
</form>
</TD></TR></TABLE><div align="left">
</div>
<P>考试说明：<BR></FONT>请选择其中一门课程进行考试，注意考试时间！
<div align="left">
<%
dim myconn2
set myconn2=Server.CreateObject("ADODB.Connection")
myconn2.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;data source=(local);User ID=sa;Initial Catalog=exam"
myconn2.Open
dim strtable
dim myrs2
set myrs2 = server.createobject("ADODB.recordset")
while not myrs.EOF
strtable = "select * from userexams where userid='"& userid &"'and ExamName='" & myrs("ExamName") & "' and status='CLEARED'"
myrs2.Open strtable,myconn2,3
if myrs2.recordcount=0 then
'Response.Write myrs2.RecordCount & "-" & strtable
strtable="<table border=1 cellpadding=2 width='80%'><tr><td>考试科目 :</td><td>" & myrs("ExamName")
strtable=strtable & "</td></tr> <tr><td>总试题数:</td><td>" & myrs("totalQuestions") _
& "</td></tr><tr><td>总时间:</td><td>" & myrs("totalTime")_
& "</td></tr><tr><td>有效期:</td><td>" & myrs("expireDate")_
& "</td></tr><tr><td>及格分数线:</td><td>" & myrs("ppercentage")_
& "</td></tr> <tr bgcolor=LightGoldenrodYellow><td><b>开始考试</b></td><td>"_
& "<form method='POST'action ='exam_random.asp'><input type=submit value='" & myrs("ExamName")& "'" _
& "name=start></form></td></tr></table><br>"
Response.Write strtable
end if
myrs.movenext
myrs2.close
wend
%>
</div>
<p>
<br>
</p>
<br>
<table>
<tr><td style="WIDTH: 500px" width=500 bgColor=gold>
<P align=right>祝你取得好成绩!!</P></td></TD>
</tr>
</table>
<P> </P>
<P> </P>
</BODY>
</HTML>
<%
'''''''''''''''''''''''''''''''''
'关闭数据库'''''''''
myrs.close
myconn.close
set myconn=nothing
set myrs=nothing
'''''''''''''''''''''''''''''''''
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -