questionadd.asp

来自「本系统用来开发网络开发系统的实现」· ASP 代码 · 共 128 行

ASP
128 行
字号 
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<HTML>
<head>
	<script  language="javascript">
	<!--

	function check() {
		if (document.form1.content.value ==""  ){
			window.alert("请输入试题内容！");
			document.form1.content.focus();
			return false;
		}
		if (document.form1.answerA.value ==""  ){
			window.alert("请输入答案A内容！");
			document.form1.answerA.focus();
			return false;
		}
		if (document.form1.answerB.value ==""  ){
			window.alert("请输入答案B内容！");
			document.form1.answerB.focus();
			return false;
		}
		if (document.form1.answerC.value ==""  ){
			window.alert("请输入答案C内容！");
			document.form1.answerC.focus();
			return false;
		}
		if (document.form1.answerD.value ==""  ){
			window.alert("请输入答案D内容！");
			document.form1.answerD.focus();
			return false;
		}
		if (document.form1.key.value ==""  ){
			window.alert("请输入正确答案！");
			document.form1.key.focus();
			return false;
		}
		if (document.form1.AnswerQuestion.value ==""  ){
			window.alert("请输入试题详解！");
			document.form1.AnswerQuestion.focus();
			return false;
		}
	}
	//-->
	</script>
	
</head>
<BODY>
<%
	
	set rs2=server.CreateObject("adodb.recordset")
	
%>
<P align="center"><STRONG><FONT face="华文彩云" color=darkred  size=6>试题录入</FONT></STRONG></P>
<form action=QuestionAdd.asp method=post name=form1 onsubmit="return check()">
<input type=hidden  name=Q_Add value=Add>
<table align=center width="80%">
<tr><td><b>课程名称:</b></td>
	<td><SELECT style="WIDTH: 210px" name=course  > 
<%
	rs2.Open "select * from course order by 课程编号",conn,adOpenStatic
	while not rs2.EOF
	
%>
		<OPTION value=<% =rs2.Fields("课程编号") %>> <% = rs2.Fields("课程名称") %>   </OPTION>
<%
		rs2.MoveNext 
	wend
	rs2.Close
%>
			</SELECT></td></tr>
<tr>
	<td align=right>
	<b>试题内容:</b></td>
	<td><TEXTAREA name=content rows=5 cols=50></TEXTAREA></td>
</tr>
<tr>
	<td align=right><b>答案A:</b></td>
	<td><input  name=answerA size=50></td>
</tr>
<tr>
	<td align=right><b>答案B:</b></td>
	<td><input  name=answerB size=50></td>
</tr>
<tr>
	<td align=right><b>答案C:</b></td>
	<td><input  name=answerC size=50></td>
</tr>
<tr>
	<td align=right><b>答案D:</b></td>
	<td><input  name=answerD size=50></td>
</tr>
<tr>
	<td align=right><b>正确答案:</b></td>
	<td><input  name=key size=20></td>
</tr>
<tr><td align=right><b>试题详解:</b></td>
	<td><TEXTAREA  name=AnswerQuestion rows=3 cols=50></TEXTAREA></td></tr>
<tr>

<tr>
	<td colspan=2 align=middle><INPUT type=submit value=" 录入 ">  <INPUT type=reset value=" 重填 "></td>
</tr>
</table>
</form>
<%
if Request("Q_Add")="Add" then				
	sql1="insert into test_questions_store (题目,答案A,答案B,答案C,答案D,正确答案,题目详解,课程编号)" 
	sql1=sql1 & "values('" & Request("content") & "','"& Request("answerA") &"','"& Request("answerB") &"','"& Request("answerC") &"','"& Request("answerD") &"','"& Request("key") &"','"& Request("AnswerQuestion") &"',"& Request("course") &" )"
	'Response.Write sql1
	conn.Execute(sql1)
	
	conn.Close
	%>
	<script  language="javascript">
			<!--
			window.alert("添加成功!");
					
			-->
	</script>
	<%
end if

%>
</BODY>
</HTML>

questionadd.asp - 源码说明

本页面展示了「本系统用来开发网络开发系统的实现」中的 questionadd.asp 源码文件，采用 ASP 编程语言编写，共 128 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络开发相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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