基于局域网计算机考试平台设计与实现.docVIP

基于局域网计算机考试平台设计与实现.doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
基于局域网计算机考试平台设计与实现

基于局域网计算机考试平台设计与实现   摘 要: 针对计算机实验室提供的考试服务,笔者设计了一个具有服务器管理模块和考试控制模块的考试平台。采用VBScript结合数据库技术实现服务器管理模块,采用.NET平台以C#语言实现了考试控制模块,考试控制模块借助广播发出考试控制指令,考试机上的驻守程序接收并执行相应的考试控制指令。经过多年的实际运行表明该考试平台能够为多种考试提供服务。   关键词: 局域网 考试平台 计算机考试   高校计算机类实验室通常不仅要承担计算机相关课程的实验教学工作,而且要承担计算机相关课程考试、计算机等级考试、职称计算机考试,以及社会性选拔考试等工作。在这些种类繁多考试中,部分考试有专门的考试系统,例如全国计算机等级考试。但众多其他的考试却没有一个能够统一的考试平台,每次考试时,实验室工作人员的准备工作量都很大,考试的过程管理、考试结果的收集都很困难。所以设计一个能够适应大多数计算机考试的考试平台就显得很有必要。   1.系统分析   计算机考试平台涉及的主要内容有以下几个方面:1)考试账号管理:考试账号管理需要对每一个考生分配一个登录账号和密码,并分配独立且安全地存储空间;2)试卷发放:试卷可以按要求随机或预先定义的方式发放;3)考试结果收集:考试结果收集需要快捷方便;4)考试时间控制:考试时间控制需要准确,特别是考试结束时一定要通过技术手段防止学生耗时间;5)考场信号发送:考场中的各种指令必须及时有效地传送给每一个考生。   2.系统架构   为了实现考试平台中的这五个主要内容,考试平台分为两个主要控制模块:考试服务器管理模块和考试过程控制模块。考试服务器管理模块主要负责完成考试账号管理、试卷分发和试卷收集的考试管理功能;考试过程控制模块主要完成考试时间控制、考试信号发送及考试现场清理等。   整个系统采用Windows Server 2003作为考试服务器,借助Windows的账号服务实现考试用户身份验证、Windows文件系统。   3.系统设计   3.1服务器管理模块   服务器管理模块主要采用Windows脚本实施管理,具体地采用VBScript语言编程实现,主要完成考生用户创建、考生目录创建、考生目录权限设置、考生目录共享等,考生报名库采用Access数据库存放,通过在脚本中利用ADO读取考生信息完成这些功能。其中读取数据库后将考生信息填充在一个ADODB.RecordSet对象Rs中。下面是几个关键功能的示例代码,其他模块的实现代码风格类似。   1)创建考生账号:   subCreatUser()   setobj=GetObject(WinNT://DNS)   rs.MoveFirst   While(not rs.eof)   setusr=obj.Create(user,rs(KSXH))   usr.SetPassword(ak*%#1#%_$!@)   usr.Description=rs(KSXB)rs(KSZY)rs(KSXM)   usr.SetInfo   setusr=nothing   rs.MoveNext   Wend   end sub   2)创建考生目录并设置权限   Sub CreatFoldr()   setfs=createObject(Scripting.FileSystemObject)   setws=WScript.CreateObject(WScript.Shell)   Set fs=CreateObject(Scripting.FileSystemObject)   Set f=fs.OpenTextFile(SCRIPTFILE,FORWRITING,true)   rs.MoveFirst   While(not rs.eof)   myFoldr=ROOTFOLDR rs(KSXH)   setFoldr=fs.CreateFolder(myFoldr)   setFoldr=nothing   ’设置权限   f.Write cacls myFoldr /g DNS\ rs(KSXH) :F DNS\administrator:Fkey   f.Writechr(13)chr(10)   Wend   f.Close   ws.run SCRIPTFILE   end sub   3)目录共享   Sub FoldrShar()   set cont=GetObject(WinNT://FILESERVER/LanmanServer,FileService)   rs.MoveFirst   While(not rs.eof)   set fs1=cont.Create(FileShare,jrs(KSXH))   

文档评论(0)

erterye + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档