asp复选框取值问题.急急急
有一个题目源码如下：请问如何才能使选择答案A、C后使这个题目得分加10分呢？我不知道那个result.asp里那个FOR循环是不是那样判断的，谁能帮我看一下啊。我那样做是...
有一个题目源码如下：请问如何才能使选择答案A、C后使这个题目得分加10分呢？我不知道那个result.asp里那个FOR循环是不是那样判断的，谁能帮我看一下啊。我那样做是错的，得不到正确结果……谢谢
exam.asp源码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Linux系统管理员测试题</title></head>
<body>
<form name="linuxexam" method="post" action="result.asp" >
3、LINUX网络安装时（多选）：<br />
<input name="3" type="checkbox" id="3" value="A" />
A. PXE网卡芯片一定要可得<br />
<input name="3" type="checkbox" id="3" value="B" />
B. 必须要有光盘安装介质<br />
<input name="3" type="checkbox" id="3" value="C" />
C.
必须是采用FTP方式<br />
<input name="3" type="checkbox" id="3" value="D" />
D.安装服务器上一定要有相应的映像文件
<p>
<input type="submit" name="Submit" value="交卷并查看成绩" />
<input type="reset" name="Submit2" value="重新做一遍" />
</form>
</body>
<html>
result.asp源码
<%
dim score
score=0
dim sc(3)
sc(0)="A"
sc(1)="B"
sc(2)="C"
sc(3)="D"
dim test3
test3=Split(request.form("3"),", ")
for i=0 to UBound(test3)
if test3(i)=sc(0) then
if test3(i)=sc(3) then
score=score+10
end if
end if
next
reponse.write(score)
%> 展开
exam.asp源码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Linux系统管理员测试题</title></head>
<body>
<form name="linuxexam" method="post" action="result.asp" >
3、LINUX网络安装时（多选）：<br />
<input name="3" type="checkbox" id="3" value="A" />
A. PXE网卡芯片一定要可得<br />
<input name="3" type="checkbox" id="3" value="B" />
B. 必须要有光盘安装介质<br />
<input name="3" type="checkbox" id="3" value="C" />
C.
必须是采用FTP方式<br />
<input name="3" type="checkbox" id="3" value="D" />
D.安装服务器上一定要有相应的映像文件
<p>
<input type="submit" name="Submit" value="交卷并查看成绩" />
<input type="reset" name="Submit2" value="重新做一遍" />
</form>
</body>
<html>
result.asp源码
<%
dim score
score=0
dim sc(3)
sc(0)="A"
sc(1)="B"
sc(2)="C"
sc(3)="D"
dim test3
test3=Split(request.form("3"),", ")
for i=0 to UBound(test3)
if test3(i)=sc(0) then
if test3(i)=sc(3) then
score=score+10
end if
end if
next
reponse.write(score)
%> 展开
展开全部
result.asp
<%
dim score
score=0
temp1=replace(request.form("3")," ","")
temp2=split(temp1,",")
if UBound(temp2)=1 then
if getda(temp1,"A,C")=true then
score=score+10
end if
end if
response.write score
function getda(str1,str2)
if str1=str2 then
getda=true
else
getda=false
end if
end function
%>
<%
dim score
score=0
temp1=replace(request.form("3")," ","")
temp2=split(temp1,",")
if UBound(temp2)=1 then
if getda(temp1,"A,C")=true then
score=score+10
end if
end if
response.write score
function getda(str1,str2)
if str1=str2 then
getda=true
else
getda=false
end if
end function
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
