autodomain.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 conn1=server.CreateObject("adodb.connection")
	set rs_kemu=server.CreateObject("adodb.recordset")
	set rs_count=server.CreateObject("adodb.recordset")
	set rs1=server.CreateObject("adodb.recordset")
	'conn1.Open application("constring")
	'conn1.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("..\lab\data\s223bsh03.mdb") &  ";Persist Security Info=False"
	'rs1.Open "select * from subjects",conn1,adOpenStatic
	rs1.Open "select * from course",conn,adOpenStatic
	
	
%>

<form action="autodomain.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="autodo.asp" method="post" name="form2">
<table align=center border=1 cellpadding=0 cellspacing=0 width=60%>
<tr>
<td colspan="9">
<p><%=session("nianji")%>的课程是：（请指定考试科目和题目数量）
</td>
</tr>
<tr>
<td>科目编号</td>
<td>科目名称</td>
<td>科目出题数量</td>
<td>题目总量</td>
</tr>
<% 
	
	dim i
	i=1
	
	Do while not rs_kemu.eof
	id=rs_kemu(0)
	
	'if cart.exists( cstr(id) ) then flag="checked"
	rs_count.Open "select * from test_questions_store where 课程编号=" & cint(id) , conn,adOpenStatic
	'rs_count.Open "select * from test_questions_store where 课程编号=1" , conn1,adOpenStatic
%>
<tr>
<td>
<%=i%>
</td>
<td>
<input type="hidden" name="kechengjihe" value="<%=id%>" >

<%=rs_kemu(1)%>
</td>  
<td>
 题目数量：<input   name="text2"  size="10" value=0 enable=true>	 
 </td>
 <td>
 <% =rs_count.RecordCount%>
 
 </td>
<%rs_kemu.MoveNext 
	
	i=i+1
	%>
</tr>
	<%
	rs_count.Close
	
	loop	 
%>




<tr>
<td colspan="9">
<input type="button" value="自动生成试卷" id=button1 name=button1 onclick="dosubmit()">
</td>
</tr>


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

<script language="javascript">
function dosubmit(){
	//动态为隐藏元素赋值；
	//var s
	//s=document.form2.text2.value
	
	//window.alert (s);
	//window.alert("asdfasdfasdf" + s);
	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("autodomain.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>