网站导航网学 原创论文 原创专题 网站设计 最新系统 原创论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 交易代码 > 课程设计 > 正文

Asp实现简单在线考试系统

论文降重修改服务、格式排版等 获取论文 论文降重及排版 论文发表 相关服务

  用asp做了一个简单的在线考试系统,原理和代码如下:
  题目和答案都没有存放数据库,也就是在页面里把问题做好,然后在提交到处理的页面,在处理的页面里算出结果。
  先做几组单选题,把input组命名为1,在把value赋值,如:
  <input type="radio" name="1" value="1" /> http://www.myeducs.cn
  <input type="radio" name="1" value="2" />http://www.sina.com.cn
  <input type="radio" name="1" value="3" />http://www.163.com
  <input type="radio" name="1" value="3" />http://www.baidu.com
  我做的是8个跟这个类似的选项。
  然后提交到处理的页面,代码如下:
  resultReuest=request.Form("1")&"|"&request.Form("2")&"|"&request.Form("3")&"|"&request.Form("4")&"|"&request.Form("5")&"|"&request.Form("6")&"|"&request.Form("7")&"|"&request.Form("8")
  '获取的提交答案
  resultOk="1|2|3|2|4|3|2|3
  '正确的答案,在这里自己设置,呵呵
  resultReuestList=split(resultReuest,"|")
  resultOkList=split(resultOk,"|")
  resultOkNums =0
  resultErrorNums = 0
  for i = 0 to 7
  if resultReuestList(i)=resultOkList(i) then
  resultOkNums=resultOkNums+1
  else
  resultErrorNums=resultErrorNums+1
  end if
  next
  if resultErrorNums = 0 then
  resposne.write "恭喜您! 全部回答正确!"
  else
  resposne.write "抱歉! 您的答错了"&resultErrorNums&"道题!"
  end if
  这样就实现了简单的asp考试系统了,上面的程序中没有判断是哪道题目答错了,需要的话可以自己改一下。

  • 上一篇资讯: 光盘使用说明
  • 设为首页 | 加入收藏 | 网学首页 | 原创论文 | 计算机原创
    版权所有 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师