auto5.asp

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

<!--#include file="adovbs.inc" -->
<%'实现打开数据库和显示指定的记录列表
	session("nianji")
	const N=5
'///////////////////////////////////////////////////////////////////////////////////////
	str="12-2/3-3/1-2"
	shijuanstr=""
	dim shijuan(9)
	dim temp_i
	temp_i=1
	set conn1=server.CreateObject("adodb.connection")
	set rs1=server.CreateObject("adodb.recordset")
	set rs_kemu=server.CreateObject("adodb.recordset")
	set rs_ti=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=d:\donny-9-18\s223bsh01.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
	call autodo(4,3)
'////////////////////////////////////////////////////////////////////////////////////
 	function strj(f_str)
		
		
	end function
	'conn1.Open "dsn=bookdsn"
	'//////////////自动生成试卷的主算法///////////////////////////
	function autodo(kehao,num)
		'response.write(kehao & "@@@@@@@@@")
		dim hao
		dim jilu
		
		
		'rs_ti.Open "select * from 题库 where 题目详解 = 'HTML'"  , conn1
		rs_ti.Open "select * from 题库 where 课程编号 = " & cint(kehao) ,conn1,adOpenStatic
		response.write(cint(kehao) & "#####")
		
		'rs_ti.Open "select * from 题库 where 课程编号=" & kehao "'",conn1,adOpenStatic
		response.write(rs_ti.RecordCount & "!!!!!!!!!")
		response.write(rs_ti.RecordCount & "$$$$$$")
		dim bianshu
		
		for i=temp_i to num
			
			jilu=2
			Randomize 
			hao=Int((rs_ti.RecordCount- 1 + 1) * Rnd + 1)
			
			'hao=Int(((6- 1 + 1) * Rnd*100 + 100) mod 4 )
			'rs_ti.RecordCount
			'hao=(bianshu*10 mod 1+bianshu*100 mod 10)/10
			'hao=(rnd+rnd)/2
			'response.write ("<p>")
			'response.write (hao)
			'response.write ("<p>")
			for j=1 to i
			if shijuan(j)=hao then 
				jilu=1
			end if
		next
		if jilu<>1 then
		shijuan(i)=hao
		response.write (hao & "_________")
		else
		i=i-1
		end if
		
		next
		autodo=1
		temp_i=i
	end function
	
	
	for i=1 to temp_i 
	Response.write (shijuan(i))
	next
'/////////////////////////////生成试卷算法结素////////////////////////

%>

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

<%
'如果当前页不是最后一页，则显示;
if pageth<>rs1.PageCount then
%>
<a href="auto5.asp?pageth=<%=pagenext%>">下一页</a>
<a href="auto5.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="auto5.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=check-<%=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 select_change() {
	document.form1.submit()
}
</script>