|
#2
zhuyunshen2010-04-06 12:40
不会ASP
|
|
#3
sylknb2010-04-06 18:19
没有人解答呀！等急！
|
|
#4
xchengo2010-04-17 23:03
随机数的函数，应该是随机抽题
|
|
#5
yms1232010-04-18 16:12
randomize
sid=int(maxtype1*rnd+1) set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid) while rst.eof randomize'初始化随机函数VB中随机数开始时的初始化。 sid=int(maxtype1*rnd+1)'生成一个随机数的算法，这个随机数是一个题目的编号，用这个编号读取一个题目 set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid) wend |
|
|
#6
sylknb2010-04-18 16:57
randomize
sid=int(maxtype1*rnd+1) set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid) while rst.eof randomize sid=int(maxtype1*rnd+1) set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid) wend 我的意思是红的一段已随机了，为什么兰的一段还要来一个循环再来一次随机？ |
|
|
#7
yms1232010-04-18 17:13
randomize
sid=int(maxtype1*rnd+1) set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid) while rst.eof randomize sid=int(maxtype1*rnd+1) set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid) wend 两次循环的确不太对，因为楼主提供的代码太少，无法得知2次循环的目的。 而且从现有代码来看，这么循环极有可能造成无限循环，或者服务器当机。 |
|
|
#8
sylknb2010-04-21 17:33
附全部代码：用红色标识的表示不理介的地方，为什么要有二次随机数
<!--#include file="conn.asp"--> <!--#include file="check.asp"--> <% flagpd=0 flagxz=0 flagtk=0 randomize set rss=conn.execute("select top 1 * from report where 学生id="&session("id")&" and (是否补考=no or 补考成绩<>0) order by id desc ") if rss.eof then qi=1 else qi=rss("id")+1 end if set rss=conn.execute("select top 1 * from report where 学生id="&session("id")&" and (是否补考=yes and 补考成绩=0) order by id desc ") if not rss.eof then qi=rss("id") end if set rss=conn.execute("select top 1 * from test order by id desc") if rss.eof then %> <script language=javascript> alert("请先出题！再进行考试！"); history.back(); </script> <% else pd=rss("判断题数") pds=rss("判断题每题分数") xz=rss("选择题数") xzs=rss("选择题每题分数") tk=rss("填空题数") tks=rss("填空题每题分数") session("EndTime")=rss("考试时间") zf=pd*pds+xz*xzs+tk*tks testid=rss("id") set rs=conn.execute("select top 1 * from type1 order by id desc") maxtype1=rs("id") set rs=conn.execute("select top 1 * from type2 order by id desc") maxtype2=rs("id") set rs=conn.execute("select top 1 * from type3 order by id desc") maxtype3=rs("id") sqlfind="select * from report where 试卷id="&testid&" and 学生id="&session("id")&" and (是否补考=False or 补考成绩<>0)" set rsfind=conn.execute (sqlfind) if not rsfind.eof then %> <script language=javascript> alert("你已经参加过这次考试了，请等待下一次考试！"); window.navigate("index.asp"); </script> <%else if Session("startTime") = "" then NowTime = Now() Session("startTime") = NowTime end if set rsfinds=conn.execute("select * from report where 试卷id="&testid&" and 学生id="&session("id")&" and (是否补考=True and 补考成绩=0)") if not rsfinds.eof then else sqlin="insert into report (id,试卷id,学生id,分数) values("&qi&","&testid&","&session("id")&",0)" 'response.write sqlin 'response.end set rsin=conn.execute(sqlin) end if end if %> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>网上考试系统</title> <link rel="stylesheet" type="text/css" href="css.css"> </head> <body topmargin="0" leftmargin="0"> <!--#include file = "top.htm" --> <table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" height ="100" align="center"> <tr> <td align="center"><font class=test1>第 <%=qi%> 期考试</font> <br>（本期考试 <%=pd%> 道判断题，<%=xz%> 道选择题，<%=tk%> 道填空题，总分 <%=zf%> 分） </td> </tr> <tr> <td align="center"><!--#include file="js2.asp" --> </td> </tr><form name="form1" action="test_over.asp" method="post"> <tr> <td align="center" bgcolor="#CBEFDC"><font color="#000080"><input type="hidden" name=qi value=<%=qi%>> <input type="hidden" name=testid value=<%=testid%>> <input type="hidden" name=pd value=<%=pd%>> <input type="hidden" name=xz value=<%=xz%>> <input type="hidden" name=tk value=<%=tk%>> <input type="hidden" name=zf value=<%=zf%>> <input type="hidden" name=pds value=<%=pds%>> <input type="hidden" name=xzs value=<%=xzs%>> <input type="hidden" name=tks value=<%=tks%>>考生姓名：<%=session("student")%> 性别： <%=session("sex")%> 班级：<%=session("classes")%> 学号：<%=session("number")%></font></td> </tr> <tr> <td align="center"> <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" align="center"> <tr> <td bgcolor="#CBEFDC">一、判断题（共 <%=pd%> 道，每题 <%=pds%> 分）</td> </tr> <% if pd=0 then Response.write "<input type='hidden' name=messagepd value='本次考无判断题'>" flagpd=1 %> <tr> <td align=center>本次不考判断题</td> </tr> <% else for i=1 to pd if maxtype1=0 then Response.write "<input type='hidden' name=messagepd value='题库里暂无判断题'>" flagpd=1 %> <tr> <td align=center>题库里暂无判断题</td> </tr> <% else randomize sid=int((maxtype1+1)*rnd+1) set rst=conn.execute("select * from type1 where id="&sid) while rst.eof randomize sid=int((maxtype1+1)*rnd+1) set rst=conn.execute("select * from type1 where id="&sid) wend %> <tr> <td> <%=i%>、<%=rst("题干")%> <input type="hidden" name="tgpd<%=i%>" value="<%=rst("题干")%>"> <select name="cate<%=i%>" size="1" style="background-color: rgb(224,252,255)"> <option selected value=True>对</option> <option value=False>错</option></select> <input type="hidden" name="pdda<%=i%>" value="<%=rst("正确答案")%>"> </td> </tr> <% end if next end if %> </table> <br> <table align="center" border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750"> <tr> <td bgcolor="#CBEFDC">二、选择题（共 <%=xz%> 道，每题 <%=xzs%> 分）</td> </tr> <%if xz=0 then response.write "<input type='hidden' name=messagexz value='本次考无选择题'>" flagxz=1 %><tr> <td align=center>本次考无选择题 </td> </tr> <%else for i=1 to xz if maxtype2=0 then response.write "<input type='hidden' name=messagexz value='题库里暂无选择题'>" flagxz=1 %><tr> <td align=center>题库里暂无选择题 </td> </tr> <%else randomize sid=int((maxtype2+1)*rnd+1) set rst=conn.execute("select * from type2 where id="&sid) while rst.eof randomize sid=int((maxtype2+1)*rnd+1) set rst=conn.execute("select * from type2 where id="&sid) wend %> <tr> <td> <%=i%>、<%=rst("题干")%> <input type="hidden" name="tgxz<%=i%>" value="<%=rst("题干")%>"></td> </tr> <tr> <td> <input type="radio" value="A" name="sele<%=i%>"> A.<%=rst("选项1")%> <input type="hidden" name="xzxx1<%=i%>" value="<%=rst("选项1")%>" > <input type="radio" value="B" name="sele<%=i%>"> B.<%=rst("选项2")%> <input type="hidden" name="xzxx2<%=i%>" value="<%=rst("选项2")%>" > <input type="radio" value="C" name="sele<%=i%>"> C.<%=rst("选项3")%> <input type="hidden" name="xzxx3<%=i%>" value="<%=rst("选项3")%>" > <input type="radio" value="D" name="sele<%=i%>"> D.<%=rst("选项4")%> <input type="hidden" name="xzxx4<%=i%>" value="<%=rst("选项4")%>" > <input type="hidden" name="xzda<%=i%>" value="<%=rst("正确答案")%>" > </td> </tr> <% end if next end if %> </table> </center> </div> <br> <div align="center"> <center> <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750"> <tr> <td bgcolor="#CBEFDC">三、填空题（共 <%=tk%> 道，每题 <%=tks%> 分）</td> </tr> <%if tk=0 then response.write "<input type='hidden' name=messagetk value='本次考无填空题'>" flagtk=1 %><tr> <td align=center>本次考无填空题 </td> </tr> <%else for i=1 to tk if maxtype3=0 then response.write "<input type='hidden' name=messagetk value='题库里暂无填空题'>" flagtk=1 %><tr> <td align=center>题库里暂无填空题 </td> </tr> <%else randomize sid=int((maxtype3+1)*rnd+1) set rst=conn.execute("select * from type3 where id="&sid) while rst.eof randomize sid=int((maxtype3+1)*rnd+1) set rst=conn.execute("select * from type3 where id="&sid) wend %> <tr> <td> <%=i%>、<%=rst("题干")%> <input type="hidden" name="tgtk<%=i%>" value="<%=rst("题干")%>"> 您的答案：<input type="text" name="T<%=i%>" size="20" class="line"></td> <input type="hidden" name="tkda<%=i%>" value="<%=rst("正确答案")%>"> </tr> <% end if next end if %> </table> </center> </div> <br> <input type="hidden" name="flagpd" value=<%= flagpd %>> <input type="hidden" name="flagxz" value=<%= flagxz %>> <input type="hidden" name="flagtk" value=<%= flagtk %>> <input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"> <p> <br> </td> </tr> </table> </form> </center> </div> <!--#include file="adv.htm"--> </body> </html> <%end if %> [ 本帖最后由 sylknb 于 2010-4-21 17:34 编辑 ] |
|
|
#9
yms1232010-04-21 18:36
<!--#include file="conn.asp"-->
<!--#include file="check.asp"--> <% flagpd=0 flagxz=0 flagtk=0 randomize set rss=conn.execute("select top 1 * from report where 学生id="&session("id")&" and (是否补考=no or 补考成绩<>0) order by id desc ") if rss.eof then qi=1 else qi=rss("id")+1 end if set rss=conn.execute("select top 1 * from report where 学生id="&session("id")&" and (是否补考=yes and 补考成绩=0) order by id desc ") if not rss.eof then qi=rss("id") end if set rss=conn.execute("select top 1 * from test order by id desc") if rss.eof then %> <script language=javascript> alert("请先出题！再进行考试！"); history.back(); </script> <% else pd=rss("判断题数") pds=rss("判断题每题分数") xz=rss("选择题数") xzs=rss("选择题每题分数") tk=rss("填空题数") tks=rss("填空题每题分数") session("EndTime")=rss("考试时间") zf=pd*pds+xz*xzs+tk*tks testid=rss("id") set rs=conn.execute("select top 1 * from type1 order by id desc") maxtype1=rs("id") set rs=conn.execute("select top 1 * from type2 order by id desc") maxtype2=rs("id") set rs=conn.execute("select top 1 * from type3 order by id desc") maxtype3=rs("id") sqlfind="select * from report where 试卷id="&testid&" and 学生id="&session("id")&" and (是否补考=False or 补考成绩<>0)" set rsfind=conn.execute (sqlfind) if not rsfind.eof then %> <script language=javascript> alert("你已经参加过这次考试了，请等待下一次考试！"); window.navigate("index.asp"); </script> <% else if Session("startTime") = "" then NowTime = Now() Session("startTime") = NowTime end if set rsfinds=conn.execute("select * from report where 试卷id="&testid&" and 学生id="&session("id")&" and (是否补考=True and 补考成绩=0)") if not rsfinds.eof then else sqlin="insert into report (id,试卷id,学生id,分数) values("&qi&","&testid&","&session("id")&",0)" 'response.write sqlin 'response.end set rsin=conn.execute(sqlin) end if end if %> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>网上考试系统</title> <link rel="stylesheet" type="text/css" href="css.css"> </head> <body topmargin="0" leftmargin="0"> <!--#include file = "top.htm" --> <table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" height ="100" align="center"> <tr> <td align="center"> <font class=test1>第 <%=qi%> 期考试</font> <br>（本期考试 <%=pd%> 道判断题，<%=xz%> 道选择题，<%=tk%> 道填空题，总分 <%=zf%> 分） </td> </tr> <tr> <td align="center"> <!--#include file="js2.asp" --> </td> </tr> <form name="form1" action="test_over.asp" method="post"> <tr> <td align="center" bgcolor="#CBEFDC"> <font color="#000080"> <input type="hidden" name=qi value=<%=qi%>> <input type="hidden" name=testid value=<%=testid%>> <input type="hidden" name=pd value=<%=pd%>> <input type="hidden" name=xz value=<%=xz%>> <input type="hidden" name=tk value=<%=tk%>> <input type="hidden" name=zf value=<%=zf%>> <input type="hidden" name=pds value=<%=pds%>> <input type="hidden" name=xzs value=<%=xzs%>> <input type="hidden" name=tks value=<%=tks%>> 考生姓名：<%=session("student")%> 性别： <%=session("sex")%> 班级：<%=session("classes")%> 学号：<%=session("number")%></font> </td> </tr> <tr> <td align="center"> <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" align="center"> <tr> <td bgcolor="#CBEFDC"> 一、判断题（共 <%=pd%> 道，每题 <%=pds%> 分） </td> </tr> <% if pd=0 then Response.write "<input type='hidden' name=messagepd value='本次考无判断题'>" flagpd=1 %> <tr> <td align=center>本次不考判断题</td> </tr> <% else for i=1 to pd if maxtype1=0 then Response.write "<input type='hidden' name=messagepd value='题库里暂无判断题'>" flagpd=1 %> <tr> <td align=center>题库里暂无判断题</td> </tr> <% else randomize sid=int((maxtype1+1)*rnd+1) set rst=conn.execute("select * from type1 where id="&sid) while rst.eof randomize sid=int((maxtype1+1)*rnd+1) set rst=conn.execute("select * from type1 where id="&sid) wend %> <tr> <td> <%=i%>、<%=rst("题干")%> <input type="hidden" name="tgpd<%=i%>" value="<%=rst("题干")%>"> <select name="cate<%=i%>" size="1" style="background-color: rgb(224,252,255)"> <option selected value=True>对</option> <option value=False>错</option> </select> <input type="hidden" name="pdda<%=i%>" value="<%=rst("正确答案")%>"> </td> </tr> <% end if next end if %> </table> <br> <table align="center" border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750"> <tr> <td bgcolor="#CBEFDC">二、选择题（共 <%=xz%> 道，每题 <%=xzs%> 分）</td> </tr> <% if xz=0 then response.write "<input type='hidden' name=messagexz value='本次考无选择题'>" flagxz=1 %> <tr> <td align=center> 本次考无选择题 </td> </tr> <% else for i=1 to xz if maxtype2=0 then response.write "<input type='hidden' name=messagexz value='题库里暂无选择题'>" flagxz=1 %> <tr> <td align=center> 题库里暂无选择题 </td> </tr> <% else randomize sid=int((maxtype2+1)*rnd+1) set rst=conn.execute("select * from type2 where id="&sid) while rst.eof randomize sid=int((maxtype2+1)*rnd+1) set rst=conn.execute("select * from type2 where id="&sid) wend %> <tr> <td> <%=i%>、<%=rst("题干")%> <input type="hidden" name="tgxz<%=i%>" value="<%=rst("题干")%>"> </td> </tr> <tr> <td> <input type="radio" value="A" name="sele<%=i%>"> A.<%=rst("选项1")%> <input type="hidden" name="xzxx1<%=i%>" value="<%=rst("选项1")%>" > <input type="radio" value="B" name="sele<%=i%>"> B.<%=rst("选项2")%> <input type="hidden" name="xzxx2<%=i%>" value="<%=rst("选项2")%>" > <input type="radio" value="C" name="sele<%=i%>"> C.<%=rst("选项3")%> <input type="hidden" name="xzxx3<%=i%>" value="<%=rst("选项3")%>" > <input type="radio" value="D" name="sele<%=i%>"> D.<%=rst("选项4")%> <input type="hidden" name="xzxx4<%=i%>" value="<%=rst("选项4")%>" > <input type="hidden" name="xzda<%=i%>" value="<%=rst("正确答案")%>" > </td> </tr> <% end if next end if %> </table> </center> </div> <br> <div align="center"> <center> <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750"> <tr> <td bgcolor="#CBEFDC"> 三、填空题（共 <%=tk%> 道，每题 <%=tks%> 分） </td> </tr> <% if tk=0 then response.write "<input type='hidden' name=messagetk value='本次考无填空题'>" flagtk=1 %> <tr> <td align=center> 本次考无填空题 </td> </tr> <% else for i=1 to tk if maxtype3=0 then response.write "<input type='hidden' name=messagetk value='题库里暂无填空题'>" flagtk=1 %> <tr> <td align=center> 题库里暂无填空题 </td> </tr> <% else randomize sid=int((maxtype3+1)*rnd+1) set rst=conn.execute("select * from type3 where id="&sid) while rst.eof randomize sid=int((maxtype3+1)*rnd+1) set rst=conn.execute("select * from type3 where id="&sid) wend %> <tr> <td> <%=i%>、<%=rst("题干")%> <input type="hidden" name="tgtk<%=i%>" value="<%=rst("题干")%>"> 您的答案：<input type="text" name="T<%=i%>" size="20" class="line"> </td> <input type="hidden" name="tkda<%=i%>" value="<%=rst("正确答案")%>"> </tr> <% end if next end if %> </table> </center> </div> <br> <input type="hidden" name="flagpd" value=<%= flagpd %>> <input type="hidden" name="flagxz" value=<%= flagxz %>> <input type="hidden" name="flagtk" value=<%= flagtk %>> <input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"> <p> <br> </td> </tr> </table> </form> </center> </div> <!--#include file="adv.htm"--> </body> </html> <% end if %> randomize sid=int((maxtype3+1)*rnd+1) set rst=conn.execute("select * from type3 where id="&sid) while rst.eof randomize sid=int((maxtype3+1)*rnd+1) set rst=conn.execute("select * from type3 where id="&sid) wend 看了一下代码大致明白了二次随机数的目的，一次随机数只产生一个提干，再循环时容易出现重复，所以增加一个循环产生一个二次随机数，两次循环后题干就不会重复出现了。 |
|
|
#10
sylknb2010-04-22 17:17
谢谢！
|