📄 qmodify.asp

📁 本系统用来开发网络开发系统的实现
💻 ASP
字号:
<!--#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>
	<P align="center"><STRONG><FONT face="华文彩云"  size=6 color=darkred>试题修改</FONT></STRONG></P>
<%
set rs1=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
rs1.Open "select * from test_questions_store where id=" & session("questionsID") & "",conn,adOpenDynamic,adLockOptimistic

	'Response.Write(session("questionsID"))
%>
<form action=Qmodify.asp method=post name=form1 onsubmit="return check()">
<input type=hidden  name=Q_Add value=Add>
<table align=center width="80%">

<tr>
	<td align=right>
	<b>试题内容:</b></td>
	<td><TEXTAREA name=content rows=5 cols=50><% =Server.HTMLEncode(rs1("题目").Value) %></TEXTAREA></td>
</tr>
<tr>
	<td align=right><b>答案A:</b></td>
	<td><input  name=answerA size=50 value=<% =Server.HTMLEncode(rs1("答案A").Value) %>></td>
</tr>
<tr>
	<td align=right><b>答案B:</b></td>
	<td><input  name=answerB size=50 value=<% =Server.HTMLEncode(rs1("答案B").Value) %>></td>
</tr>
<tr>
	<td align=right><b>答案C:</b></td>
	<td><input  name=answerC size=50 value=<% =Server.HTMLEncode(rs1("答案C").Value) %>></td>
</tr>
<tr>
	<td align=right><b>答案D:</b></td>
	<td><input  name=answerD size=50 value=<% =Server.HTMLEncode(rs1("答案D").Value) %>></td>
</tr>
<tr>
	<td align=right><b>正确答案:</b></td>
	<td><input  name=key size=20 value=<% =Server.HTMLEncode(rs1("正确答案").Value) %>></td>
</tr>
<tr><td align=right><b>试题详解:</b></td>
	<td><TEXTAREA  name=AnswerQuestion rows=3 cols=50><% =Server.HTMLEncode(rs1("题目详解").Value) %></TEXTAREA></td></tr>
<tr>
<tr><td><b>课程名称:</b></td>
	<td><SELECT style="WIDTH: 210px" name=course  > 
<%

	rs2.Open "select * from course  ",conn,adOpenStatic
	
	flag=""
	while not rs2.EOF
		if rs2(0)=rs1.Fields("课程编号") then 
			flag="selected"
			
		else
			flag=""
		end if
%>
		<OPTION <% =flag %> value=<% =rs2.Fields("课程编号") %> > <% = rs2.Fields("课程名称") %>   </OPTION>
<%
		rs2.MoveNext 
		flag=""
	wend
	
	

	rs2.Close
%>
			</SELECT></td></tr>
<tr>
	<td colspan=2 align=middle><INPUT type=submit value=" 修改 " id=submit1 name=submit1>  <INPUT type=reset value=" 重填 " id=reset1 name=reset1></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)
	rs1(1)=Request("content")
	rs1(2)=Request("answerA")
	rs1(3)=Request("answerB")
	rs1(4)=Request("answerC")
	rs1(5)=Request("answerD")
	rs1(6)=Request("key")
	rs1(7).Value = Request("AnswerQuestion")
	rs1(8)=Request("course")
	rs1.Update 
	%>
	<script  language="javascript">
			<!--
			window.alert("添加成功!");
			
			-->
	</script>
	<%
	Response.Redirect("QuestionFormQ.asp")
end if
rs1.Close
conn.Close
%>

<P align=center><a href=QuestionQuery.asp>返回查询</a></P>
</body>
</html>
⌨️ 快捷键说明

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