📄 answercard1111.asp

📁 本系统用来开发网络开发系统的实现

💻 ASP

字号:

<%@ Language=VBScript %>
<HTML>
	<HEAD>
		<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
	</HEAD>
	<body>
		<%
			On Error Resume Next
			'session("describe")=request.Form("Select1")
			
			set cn=server.CreateObject("adodb.connection")
				cn.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")
				response.Write(request.Form("Select1"))
				response.Write(session("describe"))
				rs1.Open "select * from test_paper where 试卷描述='"& session("describe") & "'",cn,3,1
					if not rs1.EOF then
						t=Replace(rs1.Fields("题目编号"),"/",",")
						rs.Open "select * from test_questions_store where id in(" & t &")",cn,3,1
					end if
					dim i
					i=0
		%>
		<form action="answercard.asp" name="form1" method="post">
			<P align="center">
				<TABLE id="Table1" cellSpacing="1" cellPadding="1">
					<%while not rs.EOF
						i=i+1
				 
					%>
					<tr>
						<td><%=i & "."%></td>
						<td>
							A<INPUT id="checkbox1" type="checkbox" name="checkbox1">B<INPUT id="Checkbox2" type="checkbox" name="Checkbox2">
							C<INPUT id="Checkbox3" type="checkbox" name="Checkbox3"> D<INPUT id="Checkbox4" type="checkbox" name="Checkbox4">
						</td>
					</tr>
					<%rs.MoveNext 
						wend
					%>
				</TABLE>
			</P>
		</form>
		<DIV align="center">
			<TABLE id="Table2" cellSpacing="1" cellPadding="1" width="303" border="0" height="32" align="center">
				<TR>
					<TD>
						<P align="center">
							<INPUT id="Submit1" type="submit" value="交卷" name="Submit1"></P>
					</TD>
				</TR>
			</TABLE>
		</DIV>
	</body>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -