京昆高速路况最新消息:利用ASP和Access数据库制作局域网网上答题系统

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

二、程序组成 
本系统由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----------------- 
 
 
网上司考试题库 
 
 
 
 
 <br><body> <br><p>此网页使用了框架，但您的浏览器不支持框架。</p> <br></body> <br> 
 
 
--------------Lkzk.asp------------- 
 
<% 
Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")  
Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库") 
%> 
 
 
网上司考试题库 
 
 
司考试题库  
<%  
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")%> 
 
"> 
 
<% s=rs("na") 
x=InStr(s,"A.") 
sx="多选"  
if rs("dx")=0 then  
sx="单选"  
end if %>  
<%=Left(s,x-1)%> 显示除选择部分外的试题内容 
  
<%=sx%> 
 显示是单选还是多选题 
 
<% s=Right(s,Len(s)-x+1)  
x=InStr(s,"B.") %> 以下开始显示复选框及选择部分 
 
<%=Left(s,x-1)%>
  
<%s=Right(s,Len(s)-x+1) 
x=InStr(s,"C.")%>  
 
<%=Left(s,x-1)%>
  
<%s=Right(s,Len(s)-x+1) 
x=InStr(s,"D.")%>  
 
<%=Left(s,x-1)%>
  
<%s=Right(s,Len(s)-x+1)%>  
 <%=s%>  

  
  
继续做题 
 
<%if rsu2("nnn")+rsu2("yyy")=0 then rsu2("yyy")=1 end if%> 
正确率：<%=FormatNumber(rsu2("yyy")/(rsu2("nnn")+rsu2("yyy"))*100, 2, True)%>%  
总答题数：<%=rsu2("nnn")+rsu2("yyy")%> 
 
 
  
-----------------Save.asp------------------- 
 
<% 
Set rsu2 = GetMdbStaticRecordset("lkzk.mdb", "IP")  
Set rs = GetMdbStaticRecordset("lkzk.mdb", "题库") 
%> 
 
 
<% I=CInt(Request("AI")) 
rs.AbsolutePosition=I+1 
ssx="错"  
A=Replace( Request("A"), ", ", "" ) 
if A=rs("xz") then 判断答题正误 
ssx="对"  
end if 
%>  
 
您答<%=ssx%>了 显示答案正误等信息 
 
试题库总第<%=CStr(I+1+5)%>题 您的答案是：<%=A%>  
参考答案是：<%=rs("xz")%>  
<%  
ClientIP = Request.ServerVariables("REMOTE_ADDR")  
userIP=Right(ClientIP,Len(ClientIP)-InStrRev(ClientIP,".")) 
rsu2.AbsolutePosition=userIP  
rsu2.Update  
If ssx="对" then 
rsu2("yyy") =rsu2("yyy")+1  
End if 
if ssx<>"对" then  
rsu2("nnn") =rsu2("nnn")+1  
End if 
rsu2.Update 以下将正误结果记录于数据库表“IP”中 
%>  
  
  
--------------Db0.fun---------------- 
<%  以下为函数程序 
--------------------------------------------------- 
Function GetMdbConnection( FileName ) 
Dim Provider, DBPath 
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" 
DBPath = "Data Source=" & Server.MapPath(FileName) 
Set GetMdbConnection = GetConnection( Provider & DBPath ) 
End Function 
--------------------------------------------------- 
Function GetMdbRecordset( FileName, Source ) 
Set GetMdbRecordset = GetMdbRs( FileName, Source, 2, "" ) 
End Function 
--------------------------------------------------- 
Function GetMdbStaticRecordset( FileName, Source ) 
Set GetMdbStaticRecordset = GetMdbRs( FileName, Source, 3, "" ) 
End Function 
--------------------------------------------------- 
Function GetConnection( Param ) 
Dim conn 
On Error Resume Next 
Set GetConnection = Nothing 
Set conn = Server.CreateObject("ADODB.Connection") 
If Err.Number <> 0 Then Exit Function 
conn.Open Param 
If Err.Number <&
如何利用ASP删除ACCESS数据库 ASP和ACCESS数据库问题 asp连接Access数据库制作注册表单 asp怎么和ACCESS数据库相连 ASP + ACCESS 数据库 求某列的和 关于ASP和Access数据库的问题 如何利用VB或ASP与ACCESS数据库连接制作选择题 asp+access如何制作站内搜索,包括所有数据库? ASP与数据库ACCESS asp连接ACCESS数据库 asp 与 access数据库 asp 求和 access数据库 如何用Dreamweawer和ASP连Access数据库并上传 ASP如何连接ACCESS数据库 asp+access数据库查询问题 asp怎么连接access数据库? asp搜索access数据库问题 asp 连接 access数据库问题 ASP,ACCESS数据库筛选问题 asp与access数据库链接 ASP连接ACCESS数据库问题 asp update access 数据库相关 关于access和asp asp可以访问远程access数据库吗？