📄 read_paper.asp

📁 本系统用来开发网络开发系统的实现
💻 ASP
字号:
<%@ Language=VBScript %>
<HTML>
	<HEAD>
		<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
	</HEAD>
	<body>

		
		<%
		dim read
		dim right
		right=0
		set conn=server.CreateObject("ADODB.Connection")
		conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/s223bsh03.mdb") &  ";Persist Security Info=False"
		set rs=server.CreateObject("ADODB.Recordset")
		set rs1=server.CreateObject("ADODB.Recordset")
		rs.Open "select * from result where 学号='" & session("id") & "' and 姓名='" & session("name") & "' and 课程='" & session("describe") & "'",conn,3,1
		if not rs.BOF and not rs.EOF then
			response.Write("您已经参加了该科目今天的考试")
			%>
		<p><a href="exam_interface.asp">返回</a></p>
		<%
			response.End
		end if
		rs.Close
		rs.Open "select * from test_paper where 试卷描述='" & session("describe") & "'",conn,3,1
		rs1.Open "select * from test_questions_store where id in(" & Replace(rs.Fields("题目编号"),"/",",") & ")",conn,3,1
		if not rs1.EOF then
			dim da
			da=""
			while not rs1.EOF
				response.Write(rs1.Fields("id"))
				if Replace(Request.Form ("s" & rs1.Fields ("id")),", ","")=rs1.Fields("正确答案") then
					right=right+1
				end if
				da=da & Request.Form ("s" & rs1.Fields ("id")) & "/"
				rs1.MoveNext()
			wend
		else
			response.End()
		end if
		'session("yd")=request.Form("hd1")
		'dim yd
		'yd=Split(session("yd"),"/")
		'dim d
		'd=Split(session("d"),"/")

		on error resume next
		'for i=0 to session("i")-1
			'if yd(i)=d(i) then
			'	right=right+1
			'end if
		'next
		read=100*right/(session("i")-1)
		rs1.MoveFirst()
			'while not rs.EOF
			'for i=0 to UBound(str1, 1)	
			'key=key & Request.Form ("s" & rs.Fields ("id")) & "\"
			'rs.MoveNext 
			'wend
		%>
		<P>
			<DIV align="center">
				<HR width="100%" SIZE="1">
			</DIV>
		<P align="center">
			<TABLE id="Table2" border="0">
				<TR>
					<TD><FONT face="宋体">试卷编号：<%=rs.Fields("id")%>&nbsp;&nbsp;</FONT></TD>
					<TD><FONT face="宋体">考试科目：<%=rs.Fields("试卷描述")%>&nbsp;&nbsp;</FONT></TD>
					<TD><FONT face="宋体">考试日期：<%=cstr(date())%></FONT></TD>
				</TR>
				<TR>
					<TD><FONT face="宋体">学&nbsp;&nbsp;&nbsp; 号：<%=session("id")%>&nbsp;&nbsp;</FONT></TD>
					<TD><FONT face="宋体">姓&nbsp;&nbsp;&nbsp; 名：<%=session("name")%>&nbsp;&nbsp;</FONT></TD>
					<TD><FONT face="宋体">成&nbsp;&nbsp;&nbsp; 绩：<%=read%>分</FONT></TD>
				</TR>
			</TABLE>
		</P>
		<P align="center">
			<form action="xiangjie.asp" method="get" name="form1">
				<TABLE id="Table1" cellSpacing="1" cellPadding="1" width="300" align="center" border="1">
					<TR>
						<TD><FONT face="宋体">考题编号</FONT></TD>
						<TD><FONT face="宋体">是否正确</FONT></TD>
					</TR>
					<%
					'dim bh
					'bh=Split(session("bh"),"/")
					'dim th
					'for i=0 to session("i")-1
					'	th=bh(i)
					dim i
					i=1
					while not rs1.EOF
						%>
					<tr>
						<td><%=i%></td>
						<%
							'if yd(i)=d(i) then
							if Replace(Request.Form ("s" & rs1.Fields ("id")),", ","")=rs1.Fields("正确答案") then
							%>
						<td>√</td>
						<%
							else
							%>
						<td><a href="exam_demand.asp?tihao=<%=rs1.Fields("id")%>">╳</a></td>
						<%
							end if%>
					</tr>
					<%
						i=i+1
						rs1.MoveNext()
					wend

					conn.Execute("insert into result values('" & session("id") &"','"& session("name") & "','" & rs.Fields("试卷描述") & "','" & session("term") & "','" & rs.Fields("id") & "','" & da & "','" & read & "','" & cstr(date()) & "')")
				
					%>
				</TABLE>
			</form>
		</P>
		<P align="center"><FONT face="宋体" color="#ff0033" size="4"><a href="choose_course.asp" target=_parent>返回</a></FONT></P>
	</body>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -