mandomain.asp

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

<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<%'----------------手动生成试卷完成每个学期生成试卷的工作-------------
	'————--不能生成几个学期的综合试卷————————
	'set cart=session("subject_ids")
	session("nianji")
	'----------------从session中删除所有的变量-------------
	set cart=session("subject_ids")
	cart.RemoveAll
	set session("subject_ids")=cart
	'----------------------删除操作完成-------------------------

	'——————————向session中防如变量————————
	subject_ids=Request.Form("subject_ids")
	
	
	
	if subject_ids<>"" then 
		subject_ids=split( subject_ids , ", " )
		for each subject_id in subject_ids
			if not cart.Exists(cstr(subject_id)) then 
				cart.add cstr(subject_id),cstr(subject_id)
			end if
		next
		set session("subject_ids")=cart
	end if
	'——————————向session中防如变量————————
	Response.Write "<h1>"
	for each subject_id in cart.Keys	
		Response.Write subject_id & "/"
		
		
	next 
	Response.Write "</h1>"
	
	
	'set conn=server.CreateObject("adodb.connection")
	set rs_kemu=server.CreateObject("adodb.recordset")
	set rs1=server.CreateObject("adodb.recordset")
	'conn.Open application("constring")
	'conn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("s223bsh03.mdb") &  ";Persist Security Info=False"
	'rs1.Open "select * from subjects",conn,adOpenStatic
	rs1.Open "select * from course",conn,adOpenStatic
	
	
%>

<form action="mandomain.asp" method="post" name="form1">
<table align=center border=1 cellpadding=0 cellspacing=0 width=60%>
<td colspan="9">

<%	
session("nianji")=request.Form("nianji")
if session("nianji")="" then
	session("nianji")="第一学期"
end if

rs_kemu.Open "select * from course where 学期='" & session("nianji") & "'", conn
	
'显示手动生成试卷条目
'////////////////////////////////////////////////////////////////////////////////////////////
%>
<br>手动生成试卷:</br>
选择学期:
<select   onchange="return select_change()"  name="nianji">
	
<option value="第一学期" selected>第一学期</option>
			<%if session("nianji")="第二学期" then%>
					<option value="第二学期" selected>第二学期</option>
			<%else%>
					<option value="第二学期">第二学期</option>
			<%end if%>
								
			<%if session("nianji")="第三学期" then%>
					<option value="第三学期" selected>第三学期</option>
			<%else%>
					<option value="第三学期">第三学期</option>
			<%end if%>
								
</select>
</td>
</form>

<form action="mandoselect.asp" method="post" name="form2">
<table align=center border=1 cellpadding=0 cellspacing=0 width=60%>
<td colspan="9">
<p><%=session("nianji")%>的课程是：（请指定考试科目和题目数量）
<% 
	
	dim i
	i=1
	Do while not rs_kemu.eof
	id=rs_kemu(0)
	'if cart.exists( cstr(id) ) then flag="checked"
%>


<input type="hidden" name="kechengjihe" value="<%=id%>" >
<p><input type="checkbox" name="subject_id" value=<%=id%>><%=rs_kemu(1)%>  

<%=rs_kemu(1)%>   	 
<%rs_kemu.MoveNext 
	
	i=i+1
	loop	 
%>




<p><input type="button" value="手动生成试卷" id=button1 name=button1 onclick="dosubmit()">



<%
	rs_kemu.Close 
	rs1.Close
	conn.Close
%>
</td>
</tr>
</table>
</form>

<script language="javascript">
function dosubmit(){
	//动态为隐藏元素赋值；
	
	document.form2.submit();
}
/*function doDelete(subject_id,n)
{
	//如果是取消复选的操作；
	var str_del_id;
	if(subject_id.checked==false)
	{
		str_del_id=document.form1.del_id.value;
		if(str_del_id=="")
		{
			str_del_id=str_del_id + n;
		}
		else
		{
			str_del_id=str_del_id + "," + n;
		}
		document.form1.del_id.value=str_del_id;
		//window.location="dodelete.asp?id="+n+"&pageth="+<%=pageth%>;
	}
	}*/
	function doSplit(){
		
		//if(document.form1.split.checked==true){
			window.open("mandomain.asp?selecte=document.form1.xueqi.selected","display");
			
			
		//}else{
		//	window.open("display.asp?split1=unchecked","display");
		//}
	}
	function select_change() {
			//window.open("9-22.asp?selecte=document.form1.xueqi.selected","display");
			document.form1.submit()
						}
	
//-->

</script>