⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 hand_executeset.asp

📁 一个网上的考试系统
💻 ASP
字号:
🔍 
<!--
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<link rel="stylesheet" type="text/css" href="default.css">
<BODY  background=..\images\T_back.gif  leftmargin=150 rightmargin=150 topmargin=30>
<IMG src="..\images/title.JPG" border=0>
<hr>
<br>-->
<!--#include file ="../include.asp"-->
<% 
	StartPage "自动组卷考试首页",3
%>

<%
	Subject = Request.Form ("Subject")
	ExamineTime = Request.Form ("Time")
	
	TableName = Subject + "题目表"
%>

<form name ="Next" action ="" method ="post">
<table border=1  width=80%  align=center  bordercolor=LightSkyBlue cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse">
	<tr>
		<td  height=20  bgcolor=LightSkyBlue></td>
	</tr>
	
	<tr>
		<td  align=center>
			<table  border=0>
				</tr>
					<td  height=10>
					</td>
				</tr>
				
				<tr>
					<td  align=center  colspan=3><%Response.Write "<font size = 6 color = LightSkyBlue>"+Subject+"手动组卷设置</font>"%></td>
				</tr>
				
				<tr>
					<td  align=center>题目类型
					<%
							m_strSubject = "<input type=hidden name = Subject value = "+Subject+">"
							Response.Write (m_strSubject)
							
							m_strExamineTime = "<input type = hidden name = ExamineTime value = "+ExamineTime+">"
							Response.Write (m_strExamineTime)
						%>
					</td>
					<td  align=center>题目总分</td>
					<td  align=center>小题得分</td>
				</tr>
				<%
					set conn = Server.CreateObject ("adodb.connection")
					conn.Open "NetExamine","sa",""
					set userconn = Server.CreateObject ("adodb.recordset")	
					sqlstr = "select * from "+TableName
					userconn.Open sqlstr,conn

					while not userconn.EOF 
						Response.Write "<tr>"
						Response.Write "<td align=center>"+userconn.Fields ("题目名")+"</td>"
						All = Rtrim(userconn.Fields ("题目名")) + "总分"
						small = Rtrim(userconn.Fields ("题目名")) + "小题得分"
						Response.Write "<td align=center><input type = text name = "+All+"></td>"
						Response.Write "<td align=center><input type = text name = "+small+"></td>"
						Response.Write "</tr>"
						userconn.MoveNext()
					wend
				%>
				
				<tr>
					<td  align=center  colspan=3><input type ="button" value ="提交" onclick ="Check()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type ="reset" value ="重填"></td>
				</tr>
				
				</tr>
					<td  height=10></td>
				</tr>
			</table>
		</td>
	</tr>
	
	<tr>
		<td   height=20  bgcolor=LightSkyBlue></td>
	</tr>
</table>
</form>

<!--
<br>
<hr>
<center>
欢迎来到本网站，最佳分辨率：800×600
<br>如果有困难请与我联系：FD_FYY@hotmail.com
</BODY>
</HTML>-->
<% 
	EndPage
%>
<script language="javascript">
	function Check()
	{		
		document.Next.action = "Hand_Execute.asp";
		document.Next .submit();	
	}
</script>

⌨️ 快捷键说明

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