注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

中老年人学电脑摄影博客

摄影采风、摄影作品欣赏、摄影指导、摄影教程、后期制作教程

 
 
 

日志

 
 
关于我

我从事中老年人摄影、计算机教育行业,在哈尔滨老年人大学任教,在从事摄影、计算机教育13年当中11年从事中老年人摄影、计算机教育,是国内最早从事中老年人计算机教育者之一,给我的感觉是中老人学得快,忘的快,人非常好,乐观向上。是我学习的榜样,我非常感谢中老年朋友,让我在学习和工作中得到了宝贵财富。

网易考拉推荐

asp在线考试系统源代码  

2009-11-21 20:44:09|  分类: asp |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
8.3 在线考试系统源代码
Exam.asp
<%@ Language=VBScript %>
<%
''创建与Exam.mdb数据库的连接:
Dim Conn, P1, Path1, rs
Set Conn = Server.CreateObject("ADODB.Connection")
P1="Provider=Microsoft.Jet.OLEDB.4.0;"
Path1="Data Source="&Server.MapPath("EXAM.mdb")
Conn.Open P1&Path1
'创建rs记录集并以只读方式打开Exam表
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Exam",Conn,0,1
%>
<html>
<head>
<title>在线考试</title>
</head>
<body bgcolor="#CCFFFF" topmargin="5">
<center>
<img border="0" src="Exam.jpg"><hr>
</center>
<form Method="GET" Action="Score.asp">
<%
Dim k, n, i
'产生一个0~8的随机整数k:
Randomize
k=int(rnd()*8)+1
'记录指针向下移动k条:
rs.move k
n=1
'利用循环随机抽取10道题并逐一显示:
While Not rs.eof and n<=10
  '输出题号及题目文字:
  Response.Write "<B>"&n&". "&rs(1)&"</B>"
  Response.Write "<Blockquote>"
  '生成4个单选按钮并输出对应的选项内容:
  For i=1 To 4
     Response.Write "<Input Type=Radio Name=No"&n&" Value="&i&">"
     Response.Write "&nbsp;"&rs("选项"&i)&"<br>"
  Next
  Response.Write "</Blockquote>"
  '用隐含方式传送当前试题的答案:
  Response.Write "<Input Type=Hidden Name=Da"&n&" Value="&rs(6)&">"
  '产生一个0~6的随机整数k:
  k=int(rnd()*6)+1
  '记录指针向下移动k条:
  rs.move k
  n=n+1
Wend
'关闭记录集并断开与数据库的连接:
rs.close
Set Conn=Nothing
%>
<p align="center"><Input type="Submit" Value="交 卷"></p>
</form>
</body>
</html>
  评论这张
 
阅读(2092)| 评论(4)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017