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

📄 add_source.asp

📁 一个网上的考试系统
💻 ASP
字号:
🔍 
<!--#include file ="../include.asp"-->
<% 
	StartPage "增加题目确认首页",2
%>

<!--<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<link rel="stylesheet" type="text/css" href="../default.css">
<BODY  leftmargin=150 rightMargin=150 topMargin=30>
<IMG src="../images/title.JPG" border=0>
<hr>
<br>
-->
<form name ="Next" action ="" method ="post">
<table align=center border="1" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="lightskyblue" width="80%">
	<tr>
		<td  bgcolor=LightSkyBlue height=20></td>
	</tr>
	
	<tr>
		<td  align=center>
			<table  width=90%  border=0>
				<tr>
					<td  align=center  height=20  colspan=2><font size=7 color=LightSkyBlue>管理员增加题目页</font></td>
				</tr>
				
				
				<tr>
					<td  align=left  colspan=2><b><font  size=5  color=LightSkyBlue>增加流程</font></b></td>
				</tr>
				
				
				<tr>
					<td  align=center></td>
					<td  align=center>科&nbsp;&nbsp;&nbsp;&nbsp;目&nbsp;&nbsp;&nbsp;&nbsp;名：
					<select name = "Object" size = 1>
					<%
						Object = Request.Form("Object")
						set conn = Server.CreateObject ("adodb.connection")
						conn.Open "NetExamine","sa",""
						set userconn = Server.CreateObject ("adodb.recordset")	
						sqlstr = "select * from 科目表"
						userconn.Open sqlstr,conn

						while not userconn.EOF 
							Item = "<option>" + userconn.Fields ("科目名")+"</option>"
							Response.Write (Item)
							userconn.MoveNext()
						wend
						userconn.Close ()
						conn.Close()
					%>
					</select></td>
				</tr>
				
				<tr>
					<td  align=center><b><font  size=5  color=LightSkyBlue>填写内容</font></b></td>
					<td  align=center>题&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;目&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;名：
					<select name ="sourceName" size = 1>
					<option>单选题</option>
					<option>填空题</option>
					<option>问答题</option>
					<option>论述题</option>
					<option>计算题</option>
					</select>
					</td>
				</tr>
				
				<tr>
					<td  align=center></td>
					<td  align=center>题　目　描　述：<input type ="text" name ="sourceDescriple"></td>
				</tr>
				
				<tr>
					<td  align=center><b><font  size=5  color=LightSkyBlue>确认增加</font></b></td>
					<td  align=center>题　目　总　分：<input type ="text" name ="sourceSore"></td>
				</tr>
				
				<tr>
					<td></td>
					<td  align=center>每　题　得　分：<input type ="text" name="SmallSore"></td>
				</tr>
				<tr>
					<td></td>
					<td align=center><input type ="button" value ="提交" onclick ="Check()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type ="reset" value ="重填"></td>
				</tr>
				
				<tr>
					<td  colspan=2></td>
				</tr>
			</table>
		</td>
	</tr>
	
	<tr>
		<td  bgcolor=LightSkyBlue height=20></td>
	</tr>
</table>
</form>
<!--
<br>
<hr>
<center>
<font  size=2>
欢迎来到本网站，最佳分辨率：800×600
<br>如果有困难请与我联系：FD_FYY@hotmail.com
</font>
</center>
</BODY>
</HTML>
-->
<% 
	EndPage
%>
<script language="javascript">
	function Check()
	{
		//if (document.Next.Object.value =="")
		//{
		//	alert("科目名不能为空");
		//	return;
		//}
		//if (document.Next.sourceName.value =="")
		//{
		//	alert("题目名不能为空");
		//	return;
		//}
		if (document.Next.sourceDescriple.value =="")
		{
			alert("题目描述不能为空");
			return;
		}
		if (document.Next.sourceSore.value =="")
		{
			alert("题目总分不能为空");
			return;
		}
		if (document.Next.SmallSore.value == "")
		{
			alert("每题得分不能为空");
			return;
		}
		else
		{
			document.Next.action = "AddSourceFinish.asp";
			document.Next.submit ();
		}
	}
</script>

⌨️ 快捷键说明

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