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

📄 addsubjectwarehouse_three.asp

📁 一个网上的考试系统
💻 ASP
字号:
<!--#include file ="../include.asp"-->
<% 
	StartPage "增加考题填写内容页",2
%>
<!--
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</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>
-->
<%
	Subject = Request.Form ("Subject")
	Theme = Request.Form ("Theme")
	TableName = Subject + Theme +"表"
%>
<form name ="Next" action ="" method ="post">
<table border="1" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="lightskyblue" width="90%" align=center>
	<tr>
		<td  height=20  bgcolor=LightSkyBlue></td>
	</tr>
		
	<tr>
		<td  align=center>
			<table  border=0 width="90%">
				<tr>
					<td  colspan=2></td>
				</tr>
				
				<tr>
					<td  align=center  colspan=2>
						<font  size=7  color=LightSkyBlue>管理员增加考题页</font>
					</td>
				</tr>
				
				<tr>
					<td  align=left width="30%"><b><font  size=4  color=LightSkyBlue>增加流程</font></b></td>
					<td>
					<%
						m_strSubject = "<input type = hidden name = Subject value = "+Subject+">"
						Response.Write (m_strSubject)
						
						m_strTheme = "<input type = hidden name = Theme value = " + Theme + ">"
						Response.Write (m_strTheme)
					%>
					</td>	
				</tr>
				
				<%
					if Theme = "单选题" then
						Response.Write "<tr>"
						m_strSelect = "<input type = hidden name = Select value = 1>"
						Response.Write (m_strSelect)
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>选择科目名</font></b></td>"
						Response.Write "<td align=center>考 题 题目:<input type =text name = SubjectText></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>选择题目名</font></b></td>"
						Response.Write "<td align=center>选项一内容:<input type =text name = SelectOne></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>填写内容</font></b></td>"
						Response.Write "<td align=center>选项二内容:<input type =text name = SelectTwo></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>增加确认</font></b></td>"
						Response.Write "<td align=center>选项三内容:<input type =text name = SelectThree></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center></td>"
						Response.Write "<td align=center>选项四内容:<input type =text name = SelectFour></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center></td>"
						Response.Write "<td align=center>正 确 答案:<input type =text name = CorrectSelect></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center></td>"
						Response.Write "<td align=center><input type =button value = 提交 onclick = Check()>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type = reset value = 重填></td>"
						Response.Write "</tr>"
					else
						Response.Write "<tr>"
						m_strSelect = "<input type = hidden name = Select value = 2>"
						Response.Write (m_strSelect)
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>选择科目名</font></b></td>"
						Response.Write "<td align=center></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>选择题目名</font></b></td>"
						Response.Write "<td align=center>考 题 题 目:<input type =text name = SubjectText></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>填写内容</font></b></td>"
						Response.Write "<td align=center>答 案 内 容:<input type =text name = CorrectSelect></td>"
						Response.Write "</tr>"
						
						Response.Write "<tr>"
						Response.Write "<td align=center><b><font size=4 color=LightSkyBlue>增加确认</font></b></td>"
						Response.Write "<td align=center><input type =button value = 提交 onclick = Check()>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type = reset value = 重填></td>"
						Response.Write "</tr>"
						
					end if 
				%>
				
				<tr>
					<td  colspan=2>
					</td>
				</tr>
			</table>
		</td>
	</tr>	
		
	<tr>
		<td  height=20  bgcolor=LightSkyBlue></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.Select.value == "1")
		{
			if (document.Next.SubjectText.value == "")
			{
				alert("考题内容不能为空");
				return;
			}
			if (document.Next.SelectOne.value =="")
			{
				alert("选项一不能为空");
				return;
			}
			if (document.Next.SelectTwo.value =="")
			{
				alert("选项二不能为空");
				return;
			}
			if (document.Next.SelectThree.value =="")
			{
				alert("选项三不能为空");
				return;
			}
			if (document.Next.SelectFour.value =="")
			{
				alert("选项四不能为空");
				return;
			}
			if (document.Next.CorrectSelect.value =="")
			{
				alert("答不能为空");
				return;
			}
		}
		else
		{
			if (document.Next.SubjectText.value == "")
			{
				alert("考题内容不能为空");
				return;
			}
			if (document.Next.CorrectSelect.value =="")
			{
				alert("答案不能为空");
				return;
			}
		}
		document.Next.action = "AddSubjectwarehouse_Four.asp";
		document.Next.submit ();
	}
</script>

⌨️ 快捷键说明

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