51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1446|回复: 0
打印 上一主题 下一主题

[讨论] 谁能具体解释一下这段代码所表达的意思?最好能一行行解释

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-5-2 16:20:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
谁能具体解释一下这段代码所表达的意思?最好能一行行解释
for each element in request.form
  for i=1 to request.form(element).count
    if instr(element,"NO")<>0 then
      id=mid(element,3,3)
      result=request.form(element)(i)
      sql="select * from exam_database where id="& clng(id)
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      if rs("type")="单选题" then
        if result=rs("answer") then
          score=score+cint(singleper)
        end if
      end if
      if rs("type")="多选题" then
        if instr(rs("answer"),result)<>0 then
          score=score+cint(multiper)/4
          j=j+1'多选循环
          answer=split(rs("answer"),",")
          answercount=ubound(answer)+1
          if answercount=j then
            score=score+cint(multiper)*(1-j/4)
          end if
        else
          score=score-cint(multiper)/4*(j)
        end if
      end if
     end if
  next
next

(multiper)/4是多选题的少选每答对一题得<%=multiper/4%>分
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-16 07:45 , Processed in 0.062238 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表