收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1826|回复: 6

[asp] ASP 多选题判断问题

[复制链接]
发表于 2014-8-6 23:41:56 | 显示全部楼层 |阅读模式
asp  多选题怎么判断
全部选对=2分
多选、错选=0分
少选,选对一个=0.5分

<%
aa="100"
a1="A,B,C" '正确答案
b1="A,B,c,d" '选择答案
t1=Split(a1,",")
t2=Split(b1,",")
...............................................'请问怎么写代码

%>
 楼主| 发表于 2014-8-7 08:10:17 | 显示全部楼层
请高手指点!!
回复 支持 反对

使用道具 举报

发表于 2014-8-13 09:01:48 | 显示全部楼层
呵呵,这也是我遇到的难题啊
回复 支持 反对

使用道具 举报

发表于 2014-8-13 09:02:03 | 显示全部楼层
期待高人回答
回复 支持 反对

使用道具 举报

发表于 2014-8-16 18:40:04 | 显示全部楼层
  1. <%
  2. a1="A,B,C" '正确答案
  3. b1="A,B,c,d" '选择答案
  4. c1="A,c,d" '选择答案
  5. d1="A,b" '选择答案

  6. s1 = "a,c"
  7. Response.Write("答案:" & a1 & ";选择结果:" & s1 & ";得分:" & Check(a1, s1) & "(少选)<br />")
  8. s2 = "a,b,c,d"
  9. Response.Write("答案:" & b1 & ";选择结果:" & s2 & ";得分:" & Check(b1, s2) & "(全对)<br />")
  10. s3 = "a,b,c"
  11. Response.Write("答案:" & c1 & ";选择结果:" & s3 & ";得分:" & Check(c1, s3) & "(错选)<br />")
  12. s3 = "a,b,c"
  13. Response.Write("答案:" & d1 & ";选择结果:" & s4 & ";得分:" & Check(d1, s4) & "(多选)<br />")

  14. Function Check(a, b)
  15.         a = LCase(a)
  16.         b = LCase(b)
  17.         Dim i, t_arr, integral
  18.         t_arr = Split(b, ",")
  19.         integral = 0
  20.         For i = 0 To UBound(t_arr)
  21.                 If InStr("," & a & ",", "," & t_arr(i) & ",")>0 Then
  22.                         integral = integral + 0.5
  23.                 Else
  24.                         integral = 0
  25.                         Exit For
  26.                 End If
  27.         Next
  28.         Check = integral
  29. End Function
  30. %>
复制代码
回复 支持 反对

使用道具 举报

发表于 2014-8-19 22:19:19 | 显示全部楼层
应该是一个form 吧
request["input1"]
request["input2"]
request["input3"]
request["input4"]
选择了以后值是选中值,没选的话值是0
这 样好判断了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-22 16:55:42 | 显示全部楼层
其实我已经写出来了,很简单的循环就可以了!!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-22 04:26 , Processed in 0.124684 second(s), 7 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

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