判断问题！验证答案是否正确（急！！！！！！！！）

bowu 2003-05-23 08:27:23

我要做试题判断，我用：if (request.form("R1")=session("answer"))then....
选项为四个，如果答案（answer）的值为一个，则可正常判断，但当，（answer）的值为多个时，比如（A,B）,我即便选择（A,B）还会出错，怎么回事，该怎么做？请大家指点！

...全文

105 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

zurong 2003-05-23

打赏
举报

应该没问题了吧，呵呵

zurong 2003-05-23

打赏
举报

你看这样行嘛？
dim i,p,num
i=split(request.form("R1"),",")
for num=0 to ubound(i)-1
p=P&trim(i(num))&","
next
p=p&trim(i(ubound(i)))
response.write p
if p=session("answer") then...

bowu 2003-05-23

打赏
举报

bowu 2003-05-23

打赏
举报

还是不行，if CStr(request.form("R1"))=session("answer") then不行，
if (trim(request.form("R1"))=session("answer"))then....也不行
response.write request.form("R1")出来后，还是：A, B（A,和B之间有一个空格）
能去掉吗？

zurong 2003-05-23

打赏
举报

写错了
if (trim(request.form("R1"))=session("answer"))then....

possible_Y 2003-05-23

打赏
举报

try:
session("answer")="a,b"
if CStr(request.form("R1"))=session("answer") then
……

zurong 2003-05-23

打赏
举报

if (request.form("R1")=session("answer"))then....
改为：if trim((request.form("R1"))=session("answer"))then....
或者你的答案这样写：session("answer"))="A, B"
提交的答案在逗号后面有一个空格，所以你的答案也要在逗号后面加个空格

bowu 2003-05-23

打赏
举报

不明白？？

zurong 2003-05-23

打赏
举报

你可以试一下，改session("answer")为（A,B)或者其他你认为可能的组合看看，多试，但是还时建议你采用 maklonzjing(麦克仑) 的方法

bowu 2003-05-23

打赏
举报

response.write request.form("R1")出来后，则是：A, B（我试了A,和B之间的是空格）答案（answer）的值是(A,B)，判断结果是错误我把（answer）的值改为(A, B）就好了
我用trim(request.form("R1"))想去掉R1的空格，但好象没有用。请再帮我看看！

bowu 2003-05-23

打赏
举报

如果我选择的是A和B，那么response.write request.form("R1")出来后，则是：A, B（我不知道A,和B之间的是空格还是汉字输入下的A，B）答案（answer）的值是(A,B)，判断结果是错误
我trim(request.form("R1"))后，还是没有用。请再帮我看看！

possible_Y 2003-05-23

打赏
举报

response.write request.form("R1")
出来看看是什么，这样你就可以根据此来设置你的session值了

bowu 2003-05-23

打赏
举报

bowu 2003-05-23

打赏
举报

bowu 2003-05-23

打赏
举报

我是这样做的，该怎么办呢？
<td width="760" height="33" colspan="4">　<form method="POST" action="check.asp" name="form">
<input type="checkbox" name="R1" value="A">A、<%=rs("ansa")%>
<input type="checkbox" name="R1" value="B">B、<%=rs("ansb")%>
<input type="checkbox" name="R1" value="C">C、<%=rs("ansc")%>
<input type="checkbox" name="R1" value="D">D、<%=rs("ansd")%>

<input type="submit" value="确定" name="B1">

maklonzjing 2003-05-23

打赏
举报

你最好将备选答案和正确答案放在数据库中,备选答案中某个符号分隔如*号!在生成页面时使用split函数将答案放在一个数组里.用for each循环可以动态生成备选答案的按钮个数.
整段循环如下:假设你先读完数据库备选答案字段的值并放入result变量中!
dim tmptxt,n,txt
tmptxt=split(result,"*")
n=0
for each txt in tmptxt
n=n+1
response.write "<input type=checkbox name="+题目ID号(前面应还有个循环读数据库)+" value="+n+">
response.write txt+" "
next
所有题目放在一个form里提交到另一个页面.在另一页面里用循环读取每个checkbox值,然后再跟数据库中正确答案进行匹配!

bowu 2003-05-23