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

waq5253

waq5253

2016-01-29 17:40

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

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

二、程序组成 
本系统由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://m.tulaoshi.com/asp/)
展开更多 50%)
分享

猜你喜欢

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

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

用asp处理access数据库

ASP
用asp处理access数据库

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

如何利用路由器限制局域网网速

电脑网络
如何利用路由器限制局域网网速

利用ASP在线维护数据库

ASP
利用ASP在线维护数据库

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

ACCESS数据库安全系统

编程语言 网络编程
ACCESS数据库安全系统

基于ACCESS数据库的纯asp论坛制作心得

ASP
基于ACCESS数据库的纯asp论坛制作心得

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

为Linux安装触摸屏

为Linux安装触摸屏

Windows XP后台打印文件夹位置任意定

Windows XP后台打印文件夹位置任意定
下拉加载更多内容 ↓