📄 mandoselect.asp

📁 本系统用来开发网络开发系统的实现
💻 ASP
字号:
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<BODY bgColor=White>
<SCRIPT src="calendar.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function load()
{ 
	document.shijuanadd.BeginInputDate.value=getlastweekDate();
    
}
function check() {
		if (document.shijuanadd.shijuanshuoming.value=="" )
		{
			window.alert("试卷描述是必添字段，请输入试卷描述编号！");
			document.shijuanadd.shijuanshuoming.focus();
			return false;
		}
		if(document.shijuanadd.shijuanstr.value=="")
		{
		window.alert("请输入试卷编号！");
			document.shijuanadd.shijuanshuoming.focus();
		return false;
		}
		
	}
//-->
</script>
<%  'set conn=server.CreateObject("adodb.connection")
	set rs1=server.CreateObject("adodb.recordset")
	set rs2=server.CreateObject("adodb.recordset")
	str_id=array(1,3,5,2,7,9,11,13)
	subject_idstr=Request.Form("subject_id")
	session("a")=Request.Form("showbutton")
	'conn.Open application("constring")
	
	if subject_idstr<>"" then
	session("kehao_id")=subject_idstr
	str_id=split( session("kehao_id") , ", " )
	rs2.Open "select * from course where 课程编号 in(" & session("kehao_id") & ")",conn,adOpenStatic
	rs2.MoveFirst 
	session("ke_ming")=""
	
		for zh=0 to rs2.RecordCount -1
		session("ke_ming")=rs2.Fields(1)& "," & session("ke_ming") 
		rs2.MoveNext 
		next
	rs2.Close 
	end if
	
	set cart=session("subject_ids")
	 'Response.Write subject_idstr
	dim shijuantihao
	dim shijizhi
	dim nianji
	nianji=session("nianji")
	shijizhi=0

	

	'----------------从session中删除被取消复选的id-------------
	del_id=Request.form("del_id")
	'Response.Write "<h1>" & del_id & "</h1>"
	if del_id<>"" then
		del_ids=split( del_id,"," )
		for each del_id in del_ids
			if cart.exists( cstr(del_id) ) then cart.remove cstr(del_id)
		next
		set session("subject_ids")=cart
	end if
	'----------------------删除操作完成-------------------------

	
	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
	
'Response.Write "<h1>"
	for each subject_id in cart.Keys	
		'Response.Write subject_id & "/"
		shijuantihao=shijuantihao & subject_id & "/"
		shijizhi=shijizhi+1
	next 
	'shijizhi=UBound(subject_ids, 1)+1
	'Response.Write "</h1>"
	'Response.Write "试卷编号市" & shijuantihao
	'Response.Write "shijizhishi" & shijizhi
	const N=3
	
	'conn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db1.mdb") &  ";Persist Security Info=False"
	
	
	rs1.Open "select * from test_questions_store where 课程编号 in(" & session("kehao_id") & ")",conn,adOpenStatic
	rs1.PageSize=N
	if rs1.RecordCount =0 then 
	
	
	 %>
		<script  language="javascript">
			<!--
				window.alert("数据库中没有您选中的任何一门课程的题目！");//另外打开一个窗口
				//window.open("9-22.asp");
			//document.closed
			window.location="mandomain.asp";
			-->
		</script>
		<%
		'Response.Redirect "9-22.asp"
		Response.End 
	end if
	pageth=Request("pageth")
	'判断页数是否为空
	if pageth="" then pageth="1"
	'判断页数是否为数字
	if not IsNumeric(pageth) then pageth="1"
	'判断数字是否大于总页数
	pageth=cint(pageth)
	if pageth>rs1.PageCount then pageth=rs1.PageCount 
	
	rs1.AbsolutePage=pageth
	
%>




<form action="mandoselect.asp" method="post" name=form1 >
<table align=center border=1 cellpadding=0 width=80% cellspacing=0  >

<tr bgcolor=Gold><td colspan="9">共有<%=rs1.RecordCount%>条记录,每页<%=N%>条，共<%=rs1.PageCount%>页，当前是第<%=rs1.AbsolutePage%>页</td></tr>



<tr align=center>
	<td>     </td>
	<td>试题编号</td>
	<td>试题内容</td>
	<td>试题答案A</td>
	<td>试题答案B</td>
	<td>试题答案C</td>
	<td>试题答案D</td>
	<td>正确答案</td>
	<td>课程详解</td>
	
</tr>
<%
	for i=1 to N
	id=rs1("id")
	if cart.exists( cstr(id) ) then flag="checked"
%>
	<tr>
	<td align=center>
	<input type="checkbox" 
		   name="subject_ids" 
		   value="<%=id%>" <%=flag%>
		   onclick="doDelete(this,<%=id%>)">
	</td>
<%
	response.Write ("<td align=center>" & Server.HTMLEncode(rs1(0)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(1)) & "</td>" )
	response.Write ("<td align=center>" & Server.HTMLEncode(rs1(2)) & "</td>" )
	response.Write ("<td align=center>" & Server.HTMLEncode(rs1(3)) & "</td>" )
	response.Write ("<td align=center>" & Server.HTMLEncode(rs1(4)) & "</td>" )
	response.Write ("<td align=center>" & Server.HTMLEncode(rs1(5)) & "</td>" )
	response.Write ("<td align=center>" & Server.HTMLEncode(rs1(6)) & "</td>" )
	response.Write ("<td align=center>" & Server.HTMLEncode(rs1(7)) & "</td>" )
	
%>	
	</tr>
<%
	rs1.MoveNext 
	flag=""
	if rs1.EOF then exit for
	next
	
	pagepre=pageth-1
	pagenext=pageth+1
	if pagepre<1 then pagepre=1
	if pagenext>rs1.PageCount then pagenext=rs1.PageCount 
%>
<tr>
	<td colspan="9">
	<input type="hidden" name="pageth" value="">
	<input type="hidden" name="del_id" value="">
	
	<a onclick="dosubmit(<%=pagepre%>)" href="#">上一页</a> 
	<a onclick="dosubmit(<%=pagenext%>)" href="#">下一页</a>
<%
	rs1.Close
	conn.Close
%>
</td>
</tr>
<input type="hidden" name="showbutton" value=true>
<tr><td colspan="9" bgcolor=Gold>出题年级:<%=nianji%> ;</td></tr>
<tr><td colspan="9" bgcolor=Gold>出题科目:<%=session("ke_ming")%>;</td></tr>
<tr><td colspan="9" bgcolor=Gold>所选的题目号:<%=shijuantihao%>;</td></tr>
<tr><td colspan="9" bgcolor=Gold>目前共出题:<%=shijizhi%></td></tr>
<tr><td colspan="9"><input type=button id=submit33 name=submit33  value="决定以上所选的题目" onclick="dosubmit(1)"></td></tr>
</table>
</form>

<form action="testlist.asp" method="post" name=shijuanadd onSubmit="return check()">
<table align=center border=1 cellpadding=0 width=80% cellspacing=0  >

<tr>
<td colspan="9">
<input type="hidden" name="add" value=add>
<input type="hidden" name="xueqi" value=<%=nianji%> >
<input type="hidden" name="tiliang" value=<%=shijizhi%>>
<input type="hidden" name="shijuanstr" value=<%=shijuantihao%>>
试卷说明：
<input  name="shijuanshuoming" value="">

       指定考试时间：
<INPUT name=BeginInputDate type=text size=10
				onclick="fPopCalendar(BeginInputDate,BeginInputDate);return false" readOnly>


</td>
</tr>
<tr><td colspan="9" bgcolor=Gold>
<input type=button id=submit2 name=submit2  value="提交生成的试卷"  onclick="addsubmit()">
<input type=reset value="重新生成试卷" id=reset1 name=reset1 onclick="back()" >
<td></tr>
</table>
</form>



<script language="javascript">
function dosubmit(n,a){
	//动态为隐藏元素赋值；

       
	document.form1.pageth.value=n;
	document.form1.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 back()
{
window.location ="mandomain.asp"
}	
function addsubmit()
{

if (document.shijuanadd.shijuanshuoming.value=="" )
		{
			
			window.alert("试卷描述是必添字段，请输入试卷描述编号！");
			document.shijuanadd.shijuanshuoming.focus();
			return false;
		}
		//if (document.form1.subject_ids.value!="") 
		//{
		//document.shijuanadd.shijuanstr.value=document.shijuanadd.shijuanstr.value+document.form1.subject_ids.value;
		
		//}想把最后的提好也加到试卷的提交列表中去！但每成功！穿过去的是试卷列表和“undefind”
		if(document.shijuanadd.shijuanstr.value=="")
		{
		window.alert("请输入试卷编号！");
			document.shijuanadd.shijuanshuoming.focus();
		return false;
		}


document.shijuanadd.submit ();


}

	load();
		

</script>
<hr>
<a href="clear.asp">回首页</a>
💿 文件大小 803 K
👤 上传用户 zming
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#网络开发
⌨️ 快捷键说明

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