28,390
社区成员
发帖
与我相关
我的任务
分享~~~客户端如何判断单选按钮没有选中？~~~~高分相送！！！
以下是我的程序，我想在客户端检查提交的时候检查是否都选过了，否则就提示。
各位大虾请帮小弟，如能解决，给500分，绝不失言。QQ ：3486176
<%@ Language=VBScript %>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>准经销商考核</title>
</head>
<%
Dim objExam, rstProblem, rstDetail
Dim ExamId, lngI, intI, intJ, strA, lngResult, errMsg, strB
Dim problemId, detailId, detailTitle, ResultId
ResultId = Session("Result_Id")
Set objExam = Server.CreateObject("ExamCom.Exam")
%>
<body bgcolor="FEF8FA">
<form name="ExStep2" id="ExStep2" method="post">
<table width="787" border="0" align="center" cellpadding="0" cellspacing="1" ID="Table1">
<%
For lngI = 1 To objExam.control_count
objExam.control_nb = lngI
Response.write "<tr bgcolor=F3B9C8> "
Response.write "<td height=20 colspan=2 > " & objExam.control_disp_title
Response.write "</td></tr>"
intJ =0
Do While Not rstDetail.EOF
intJ = intJ + 1
strA = Chr(64+intJ)
problemId = rstProblem("Result_problem_id").Value
detailId = rstDetail("Detail_id").Value
detailTitle = rstDetail("Detail_title").Value
Response.write "<tr class=font1>"
Response.write "<td colspan=2><input type=radio name='" & problemId & "' value='"& detailId & "'>" & strA & "、" & detailTitle
Response.write "</td></tr>"
rstDetail.MoveNext
Loop
Next
rstProblem.Close
rstDetail.Close
Set rstProblem = Nothing
Set rstDetail = Nothing
Set objExam = Nothing
%>
</table>
<p align="center"><br>
<input name="ACT" type="hidden" id="ACT" value="GO"> <input name="Submit" type="image" id="Submit" style="border:0px" src="../image/subTest.jpg"
width="64" height="34"> <a href="../main.asp"><img src="../image/quitTest.jpg" width="64" height="34" border="0"></a>
</p>
</form>
</body>
</html>
各位大虾请帮小弟，如能解决，给500分，绝不失言。QQ ：3486176
<%@ Language=VBScript %>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>准经销商考核</title>
</head>
<%
Dim objExam, rstProblem, rstDetail
Dim ExamId, lngI, intI, intJ, strA, lngResult, errMsg, strB
Dim problemId, detailId, detailTitle, ResultId
ResultId = Session("Result_Id")
Set objExam = Server.CreateObject("ExamCom.Exam")
%>
<body bgcolor="FEF8FA">
<form name="ExStep2" id="ExStep2" method="post">
<table width="787" border="0" align="center" cellpadding="0" cellspacing="1" ID="Table1">
<%
For lngI = 1 To objExam.control_count
objExam.control_nb = lngI
Response.write "<tr bgcolor=F3B9C8> "
Response.write "<td height=20 colspan=2 > " & objExam.control_disp_title
Response.write "</td></tr>"
intJ =0
Do While Not rstDetail.EOF
intJ = intJ + 1
strA = Chr(64+intJ)
problemId = rstProblem("Result_problem_id").Value
detailId = rstDetail("Detail_id").Value
detailTitle = rstDetail("Detail_title").Value
Response.write "<tr class=font1>"
Response.write "<td colspan=2><input type=radio name='" & problemId & "' value='"& detailId & "'>" & strA & "、" & detailTitle
Response.write "</td></tr>"
rstDetail.MoveNext
Loop
Next
rstProblem.Close
rstDetail.Close
Set rstProblem = Nothing
Set rstDetail = Nothing
Set objExam = Nothing
%>
</table>
<p align="center"><br>
<input name="ACT" type="hidden" id="ACT" value="GO"> <input name="Submit" type="image" id="Submit" style="border:0px" src="../image/subTest.jpg"
width="64" height="34"> <a href="../main.asp"><img src="../image/quitTest.jpg" width="64" height="34" border="0"></a>
</p>
</form>
</body>
</html>
...全文
请发表友善的回复…
发表回复
GerardDu 2003-10-21
- 打赏
- 举报
关注！
qdubit 2003-10-21
- 打赏
- 举报
关注！
BraveHorse 2003-10-21
- 打赏
- 举报
楼主，有个问题：为什么要用radio？或者你的problemId 有重复的？
radio是单选，如果name属性不一样是没有单选的效果的。我想你想要的情况是checkbox吧？
radio是单选，如果name属性不一样是没有单选的效果的。我想你想要的情况是checkbox吧？
