利用ASP和Access数据库制作局域网网上答题系统

2016-01-29 17:40 123 1 收藏

利用ASP和Access数据库制作局域网网上答题系统,利用ASP和Access数据库制作局域网网上答题系统

【 tulaoshi.com - ASP 】

      信息社会对人的学历、素质要求越来越高,人们为了找到前途更好、收入更加诱人的工作岗位,必须通过各种各样的考试如注册会计师资格考试、司法资格考试等等,而各种各样的试题资料也应运而生,但所有的资料所共有的一个缺点就是使用上的不方便、不灵活、及效率不高,本网上答题系统正是为了弥补这些诸多不便而编制的、适合于局域网并能在单机上运行的系统,下面就详细介绍本系统的编制及使用方法。 
一、界面  
如图所示:  

二、程序组成 
本系统由Index. asp、Lkzk.asp、Save.asp、Db0.fun 四个小程序及Access数据库文件lkzk.mdb组成各程序的功能分别是: 
1. Index. asp 是框架网页,负责导入Lkzk.asp、Save.asp两个子网页组成完整的程序页面。 
2. Lkzk.asp 是随机出题答题的交互页面生成程序,主要完成随机选题、题目显示、答案输入及正确率、总答题数显示等功能。 
3. Save.asp 完成答题正误判断、显示及成绩登记(按客户端IP地址)。 
4. Db0.fun 包含打开Access数据库的多个函数(Lkzk.asp、Save.asp都用到的)。 
5. lkzk.mdb Access数据库文件,由表“IP”和表“题库”组成。 
表(IP)由编号字段ID(数字格式)、客户机地址字段IP(文本格式)、错误答案数字段nnn(数字格式)、正确答案数字段yyy(数字格式) 所组成; 
表“题库” 由题号字段ID(数字格式)、单选多选标记字段dx(数字格式)、答案字段xz(文本格式)、试题内容字段na(备注格式)所组成。(注:试题内容的选择部分必须为“A. …… B. …… C. …… D. ……” 格式) 
--------------- Index. Asp----------------- 
<html 
<head 
<title网上司考试题库<frameset rows="87%,*" framespacing="0" 
<frame name="top" src="http://img.tulaoshi.com/attachment/portal" scrolling="auto" 
<frame name="bottom" scrolling="auto" marginwidth="0" marginheight="0" 
<noframes 
<body 
<p此网页使用了框架,但您的浏览器不支持框架。--------------Lkzk.asp------------- 
<!-- #include virtual="/lkzk/DB0.fun" -- 
<% 
Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")  
Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库") 

<HTML 
<head 
<title网上司考试题库<BODY  
<font size="4" color="#000080"司考试题库  
<%  
ClientIP = Request.ServerVariables("REMOTE_ADDR")  
userIP=Right(ClientIP,Len(ClientIP)-InStrRev(ClientIP,"."))  
rsu2.AbsolutePosition=userIP  
Randomize  
I=Fix(Rnd*1800)  
rs.AbsolutePosition=I+1  
%  
总第<%=CStr(I+6)%题  <%'=rs("type")% 
<FORM Action=save.asp Method=GET target="bottom" 
<INPUT Type=Hidden Name=AI Value="<%=I%" 
<HR 
<% s=rs("na") 
x=InStr(s,"A.") 
sx="多选"  
if rs("dx")=0 then  
sx="单选"  
end if %  
<%=Left(s,x-1)% '显示除选择部分外的试题内容 
<font color="red"  
<%=sx% <BR '显示是单选还是多选题 
<% s=Right(s,Len(s)-x+1)  
x=InStr(s,"B.") % '以下开始显示复选框及选择部分 
<INPUT Type=CheckBox Name=A Value="a" 
<%=Left(s,x-1)%<BR  
<%s=Right(s,Len(s)-x+1) 
x=InStr(s,"C.")%  
<INPUT Type=CheckBox Name=A Valu

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

来源:http://www.tulaoshi.com/n/20160129/1502476.html

延伸阅读
    Access是MicroSoft公司始于1994年发表的微机数据库管理系统。作为一种功能强大的MIS系统开发工具,它具有界面友好,易学易用,开发简单,接口灵活等特点,是一个典型的新一代数据管理和信息系统开发工具。与Microsoft的其他数据库产品如FOXPRO等相比,Access具有较独特的优势-提供了更强大的数据组织,用户管理,安全检查等功...
面向:初学者。 目的:如果一年的数据较多,希望在分年的数据库中保存数据。 知识点: 1.数据库拆分。 2.文件查找技术。 3.文件复制。 4.链接表的刷新。 步骤: 1.将一些每年都要使用(修改,添加等)的表的名称前两个字母改为共同的(如:Or_业务人员名单,Or_收货人名单等),注意不要是“MS”,“SW”,“US”等系统要使用的字母。 2.将...
标签: Web开发
写在前面: 都是XP惹的祸.个人认为XP过度的追求安全性,而以具体功能无法实现作为代偿.下面来看看这个ASP例子,相信经常接触ASP的人会时常碰到这个问题:明明自己的代码写的非常正确,为什么就是不能正常更新呢?以下几个错误信息不是因为ASP本身的代码错误导致的,而是一些权限的设置问题.开始我碰到这个问题的时候,曾经自习检查自己代码不...
摘 要 介绍了抽奖信息管理系统的设计思路和基本原理,结合Access,通过软件系统开发,实现了具有随机性和相对均衡性的抽奖。 关键词 抽奖系统 Access VBA 随机 相对均衡性 引言 当今社会,各种各样的抽奖活动相当普遍,抽奖活动的基本原则和主要特征是随机性,但对于某一团体内部的抽奖活动来说,还有一个相对均衡的问题,...
如何操作access数据库 一、查找记录 find.htm 请输入您要查找的人的姓名: find.asp 二、过滤记录 filter.asp 三、添加记录 add.asp 四、更新记录 和上面的“添加记录”一样,只需把“添加”命令改做“更新”就可以了: objrs.update 五、删除记录 本文来自学习网(www.gzu521.com),原文地址:http://www.gzu521.com/campus/artic...

经验教程

233

收藏

51
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部