auto4-1.asp

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

<!--#include file="adovbs.inc" -->
<%'实现打开数据库和显示指定的记录列表
	session("nianji")
	const N=3
	set conn1=server.CreateObject("adodb.connection")
	set rs1=server.CreateObject("adodb.recordset")
	set rs_kemu=server.CreateObject("adodb.recordset")
	'conn1.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=donny;Data Source=N343\A"
	 conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("s223bsh02.mdb") &  ";Persist Security Info=False"
	'conn1.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("s223bsh01.mdb") &  ";Persist Security Info=False"
	'conn1.Open "dsn=bookdsn"
	checkname=1
	rs1.PageSize=N
	rs1.Open "select * from 题库",conn1,adOpenStatic
	
	pageth=Request.QueryString("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
%>

<table align=center border=1 cellpadding=0 width=80% cellspacing=0  >
<tr><td colspan="9">共有<%=rs1.RecordCount%>条记录,每页<%=N%>条，共<%=rs1.PageCount%>页，当前是第<%=rs1.AbsolutePage%>页</td></tr>
<tr align=center>
	<td>试题编号</td>
	<td>试题内容</td>
	<td>试题答案A</td>
	<td>试题答案B</td>
	<td>试题答案C</td>
	<td>试题答案D</td>
	<td>正确答案</td>
	<td>课程详解</td>
	<td>所属科目编号</td>
</tr>
	
<% 
for i=1 to N 
%> 
	
	<tr align=center>

<%
	response.Write ("<td>" & Server.HTMLEncode(rs1(0)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(1)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(2)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(3)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(4)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(5)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(6)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(7)) & "</td>" )
	response.Write ("<td>" & Server.HTMLEncode(rs1(8)) & "</td>" )
	'response.Write Server.HTMLEncode("<td>" & rs1(9) & "</td>" )
	
	'Response.Write("<td>" & rs1(1) & "</td>" )
	
	'<td><%=rs1(1)%></td>
	
	
%>	
	</tr>
<%rs1.MoveNext 
	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">

<form action="auto4-1.asp" method="get" name="form2">
<%
'如果当前页不是第一页，则显示;
if pageth<>1 then
%>
<a href="auto4-1.asp?pageth=1">第一页</a> | 
<a href="auto4-1.asp?pageth=<%=pagepre%>">上一页</a> | 
<%end if%>

<%
'如果当前页不是最后一页，则显示;
if pageth<>rs1.PageCount then
%>
<a href="auto4-1.asp?pageth=<%=pagenext%>">下一页</a>
<a href="auto4-1.asp?pageth=<%=rs1.PageCount%>">最后一页</a> | 
<%end if%>
	转向第<input name="pageth" size="4">页
	<input type="submit" value=" GO ">
</form>
</td>
</tr>




<tr>
<td colspan="9">
<form action="auto4-1.asp" method="post" name="form1">
<%	
session("nianji")=request.Form("nianji")
if session("nianji")="" then
	session("nianji")="第一学期"
end if

rs_kemu.Open "select * from 课程 where 年级='" & session("nianji") & "'", conn1
	
'显示自动生成试卷条目
'////////////////////////////////////////////////////////////////////////////////////////////
%>
<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>
<p><%=session("nianji")%>的课程是：（请指定考试科目和题目数量）
<% 
	
	'rs_kemu.Open "select * from 课程 where 年级==" & session("selecte") ,conn1,adOpenStatic
	'rs_kemu.Open "select * from 课程" ,conn1,adOpenStatic
	Do while not rs_kemu.eof
%>

<p><input type="checkbox" name=<%=checkname%> value="checkbox"><%=rs_kemu(1)%>   题目数量：<input  >
<%rs_kemu.MoveNext 
	'if rs_kemu.EOF then exit for  '避免存在半页时循环出现问题；
	checkname=checkname+1
	loop	 
%>




<p><input type="button" value="自动生成试卷">
</form>
<%
	rs1.Close
	rs_kemu.Close
	conn1.Close
%>
</td>
</tr>

</table>

<script language="javascript">
///////////////////////////////////////////////////////////////////////////////////////////////////////
	function doSplit(){
		
		//if(document.form1.split.checked==true){
			window.open("auto4-1.asp?selecte=document.form1.xueqi.selected","display");
		//}else{
		//	window.open("display.asp?split1=unchecked","display");
		//}
	}
	function select_change() {
	document.form1.submit()
}
</script>