📄 questionformq.asp

📁 本系统用来开发网络开发系统的实现

💻 ASP

字号:

<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<HTML>
<head>

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

function dosubmit(){
	document.form1.submit();
}
function dosubmit2(){
	document.form2.submit();
}
//-->
</SCRIPT>
</head>
<BODY>
<P align="center"><STRONG><FONT face="华文彩云" color=darkred  size=6>试题组合查询</FONT></STRONG></P>
<%
	term=Request.Form("term")
	'Response.Write "<h1>" & term & "</h1>"
	
	set rs1=server.CreateObject("adodb.recordset")
	set rs2=server.CreateObject("adodb.recordset")
	rs1.Open "select * from term",conn,adOpenStatic
%>	
<form action="QuestionFormQ.asp" method="post" name="form1" LANGUAGE=javascript >
	<p align=center>学期:
	<select name="term" onchange="dosubmit()">
	<%while not rs1.EOF 
	  if rs1(1)=term then flag="selected"
	%>
		
		<option <%=flag%> value="<%=rs1(1)%>">
		<%=rs1(1)						
		%>
		</option>
	<%
	  rs1.MoveNext 
	  flag=""
	  wend
	%>	
	</select></p>
</form>
<form action="QuestionFormQ.asp" method="post" name="form2" LANGUAGE=javascript >	
	<P align=center>科目:
		<select name="courseID" style="WIDTH: 190px" >
	<%
	'rs1.MoveFirst
	if term="" then term="第一学期"
	sql_select="select * from course where 学期='" & term & "'"
	rs2.Open sql_select,conn
	while not rs2.EOF
	if rs2(0)=courseID then flag2="selected" 
	%>
		<option <%=flag2%> value="<%=rs2(0)%>">
		<%=rs2(1)%>
		</option>
	<%
	  rs2.MoveNext 
	  flag2=""
	  wend
	%>	
	</select></p>
	<P align=center><INPUT type=submit value=" 提交 " id=submit name=submit></P>
</form>
	
<%
session("courseID")=Request.Form("courseID")
if session("courseID")<>"" then
	Response.Redirect("QuestionFormQ2.asp")
end if
Response.Write "<h1>" & session("courseID") & "</h1>"
rs1.Close
rs2.Close
conn.close

%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -