当前位置: 首页 > 图文教程 > 网络编程 > ASP > 利用ASP和Access数据库制作局域网网上答题系统

ASP
ASP基础讲座（下）
解决IIS5 HTTP500内部错误
ASP 3.0高级编程（四十六）
ASP 3.0高级编程（四十五）
ASP 3.0高级编程（四十四）
ASP 3.0高级编程（四十三）
ASP 3.0高级编程（四十二）
ASP 3.0高级编程（四十一）
ASP 3.0高级编程（三十九）
ASP 3.0高级编程（三十八）
ASP 3.0高级编程（三十七）
ASP 3.0高级编程（三十六）
ASP 3.0高级编程（三十五）
ASP 3.0高级编程（三十四）
ASP 3.0高级编程（三十三）
ASP 3.0高级编程（三十二）
ASP 3.0高级编程（三十一）
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

No. « 12 13 14 15 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 49 ::
收藏到网摘: n/a

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

二、程序组成 
本系统由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>网上司考试题库</title> 
</head> 
<frameset rows="87%,*" framespacing="0"> 
<frame name="top" src="lkzk.asp" scrolling="auto"> 
<frame name="bottom" scrolling="auto" marginwidth="0" marginheight="0"> 
<noframes> 
<body> 
<p>此网页使用了框架，但您的浏览器不支持框架。</p> 
</body> 
</noframes> 
</frameset> 
</html> 
--------------Lkzk.asp------------- 
<!-- #include virtual="/lkzk/DB0.fun" --> 
<% 
Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")  
Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库") 
%> 
<HTML> 
<head> 
<title>网上司考试题库</title> 
</head> 
<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> '显示是单选还是多选题 
</font> 
<% 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